第3章常用标准控件扩充ppt课件

1、信息系信息系信息系信息系 判断一个控件是否已添加到框架上，主要是看移动框架时该控件是否也跟随一起移动。信息系信息系对象名.Alignment=0 | 1信息系信息系对象名. Value=True | False信息系信息系对象名. Style=0 | 1信息系信息系 注意：只有在Style属性设置为图形方式时Picture属性才有效。信息系信息系信息系信息系例例 设计一个窗体选择不同字体、不同字号的选项，设计一个窗体选择不同字体、不同字号的选项，文本框的文字会产生相应的变化。文本框的文字会产生相应的变化。界面设计界面设计属性设置属性设置信息系信息系代码设计：代码设计：Private Sub O

2、ption1_Click() If Option1.Value = True Then Label1.FontName = 宋体宋体End SubPrivate Sub Option2_Click() If Option2.Value = True Then Label1.FontName = 隶书隶书End SubPrivate Sub Option3_Click() If Option3.Value = True Then Label1.FontName = 黑体黑体End Sub信息系信息系代码设计：代码设计：Private Sub Option4_Click() If Option4.

3、Value = True Then Label1.FontSize =30End SubPrivate Sub Option5_Click() If Option5.Value = True Then Label1.FontSize = 40End SubPrivate Sub Option6_Click() If Option6.Value = True Then Label1.FontSize = 50End Sub信息系信息系运行结果运行结果信息系信息系对象名. Value=0 | 1 | 2属性值属性值说说 明明0(默认值默认值)未选中，此时复选框前面小方块没有未选中，此时复选框前面小

4、方块没有“”标志标志1选中状态，此时复选框前面小方块带有选中状态，此时复选框前面小方块带有“”标志标志2处于禁止选择状态，复选框呈现处于禁止选择状态，复选框呈现“”标志但以灰色显示。标志但以灰色显示。信息系信息系 注意：只有在Style属性设置为图形方式时Picture属性才有效。信息系信息系信息系信息系 设计一个窗体，说明复选框的基本应用方法。 界面设计界面设计信息系信息系对象对象属性属性属性值属性值LabelNameLabel1Caption我的爱好是我的爱好是CheckBoxNameCheck1Caption音乐音乐CheckBoxNameCheck2Caption足球足球CheckBo

5、xNameCheck3Caption看书看书CheckBoxNameCheck4Caption购物购物CommandButtonNameCommand1Caption确定确定CommandButtonNameCommand2Caption清除清除信息系信息系代码设计： Private Sub Command1_Click() a = Check1.Caption b = Check2.Caption c = Check3.Caption d = Check4.Caption If Check1.Value = 1 Then Label1.Caption = Label1.Caption &am

6、p; & a If Check2.Value = 1 Then Label1.Caption = Label1.Caption & & b If Check3.Value = 1 Then Label1.Caption = Label1.Caption & & c If Check4.Value = 1 Then Label1.Caption = Label1.Caption & & dEnd SubPrivate Sub Command2_Click() a = b = c = d = Label1.Caption = 我的爱好是：En

7、d Sub信息系信息系列表框和组合框都是通过列表的形式显示多个选项，供用列表框和组合框都是通过列表的形式显示多个选项，供用户来选择。户来选择。列表框是一个为用户提供选择的列表，用户可从中单击选列表框是一个为用户提供选择的列表，用户可从中单击选取自己所需的一个或多个选项。如果选项太多，超出列表取自己所需的一个或多个选项。如果选项太多，超出列表框设计的大小时，不能一次全部显示，框设计的大小时，不能一次全部显示，VBVB会自动加上垂直会自动加上垂直滚动条。滚动条。组合框的功能与列表框相近，其主要特点是它综合了列表组合框的功能与列表框相近，其主要特点是它综合了列表框和文本框的特性。在程序运行时，用户既

8、可以在组合框框和文本框的特性。在程序运行时，用户既可以在组合框中选择已有的选项，选中的内容自动放入文本框中；又能中选择已有的选项，选中的内容自动放入文本框中；又能够在文本框中直接输入所需的内容。够在文本框中直接输入所需的内容。列表框控件列表框控件组合框控件组合框控件信息系信息系List1.list(2)= List1.list(2)= 北京北京 列表框的第三项列表框的第三项对象名.list(下标) = 字符串注意：List数组的第一个元素的下标是0，即List(0)为第一个元素，往后依次为List(1)、List(2)、List(3)，如果List数组中有n个元素，则最后一个列表项对应的数组元

9、素为List(n-1)。信息系信息系注意：任何列表框中的选项从0开始，到ListCount-1结束，通常和List属性一起使用，此属性只能在程序中引用。信息系信息系 如果选中列表框的第五个元素，则ListIndex值为多少？对象名.Sorted=True | False信息系信息系对象名. MultiSelect =0 | 1 | 2属性值属性值说说 明明0 (None)单选，一次只能选择一个选项单选，一次只能选择一个选项1 (Simple)简单多选，鼠标单击或按简单多选，鼠标单击或按Space键选取或取消选项键选取或取消选项2(Extended)高级多选，用高级多选，用Ctrl键与鼠标单击来

10、选中或取消不连续的键与鼠标单击来选中或取消不连续的选项；用选项；用Shift键与鼠标单击来选中或取消连续的选项键与鼠标单击来选中或取消连续的选项注意：若选择多项，则ListIndex和Text的属性只表示最后一次所选择的选项值。信息系信息系注意：注意：SelCount属性使用的前提是MultiSelect属性设置为1或2。信息系信息系信息系信息系属性值属性值说说 明明0(标准样式标准样式)不带复选框不带复选框1(复选框样式复选框样式)当复选框中出现当复选框中出现“”时表示选中该选项时表示选中该选项对象名. Style =0 | 1 信息系信息系对象名.AddItem 选项字符串 ,索引值其中：

11、其中：选项字符串是要添加到列表框中的字符表达式；选项字符串是要添加到列表框中的字符表达式；索引值是可选参数，用来指定新选项在列表框中的插入位置。若索引值是可选参数，用来指定新选项在列表框中的插入位置。若索引值为索引值为0，则插入到第一个选项位置；若索引值省略，当，则插入到第一个选项位置；若索引值省略，当Sorted属性设置为属性设置为True时，新选项将添加到恰当的排序位置，当时，新选项将添加到恰当的排序位置，当Sorted属性设置为属性设置为False时，新选项将添加到现有列表项的末尾。时，新选项将添加到现有列表项的末尾。 例如: list1.additem 中国 list1.additem

12、 美国,2信息系信息系对象名. RemoveItem 索引值对象名.Clear信息系信息系&例例 设计一个窗体，要求：可以通过在列表框设计一个窗体，要求：可以通过在列表框List1中选择，中选择，然后单击中间的命令按钮在列表框然后单击中间的命令按钮在列表框List2中执行相应的操作。中执行相应的操作。界面如图所示界面如图所示 ：属性设置属性设置信息系信息系代码设计： Private Sub Form_Load() List1.AddItem 苹果 List1.AddItem 香蕉 List1.AddItem 芒果 List1.AddItem 西瓜 List1.AddItem 哈密瓜 L

13、ist1.AddItem 葡萄 List1.AddItem 椰子 List1.AddItem 榴莲 List1.AddItem 菠萝 List1.AddItem 蟠桃End SubPrivate Sub Command1_Click()End SubPrivate Sub Command2_Click() End SubPrivate Sub Command3_Click() End SubPrivate Sub Command4_Click() End SubList2.AddItem List1.TextList2.RemoveItem List2.ListIndexList2.Clear

14、End信息系信息系组合框组合框组合框组合框(ComboBox)(ComboBox)是由文本框是由文本框(TextBox)(TextBox)与列表框与列表框(listBox) “(listBox) “组合而成的控件。用户可以通过在组合而成的控件。用户可以通过在文本框输入新文本内容或在列表框中单击列表选项文本框输入新文本内容或在列表框中单击列表选项选择已有内容。选择已有内容。组合框的形式有三种：下拉组合框组合框的形式有三种：下拉组合框( (默认方式默认方式) )；简；简单组合框；下拉列表框。单组合框；下拉列表框。组合框控件的属性组合框控件的属性StyleStyle：功能是设置组合框的显示类型，在运

15、行时：功能是设置组合框的显示类型，在运行时为只读的。为只读的。对象名. Style=0 | 1 | 2属性值属性值说说 明明0（默认值）下拉式组合框，包括一个下拉式列表和一个文本框，（默认值）下拉式组合框，包括一个下拉式列表和一个文本框，可以输入文本或从下拉列表中选择列表项可以输入文本或从下拉列表中选择列表项1简单组合框，包括一个文本框和一个无法下拉的列表，可以输简单组合框，包括一个文本框和一个无法下拉的列表，可以输入文本或选择列表项。入文本或选择列表项。2下拉式列表框，包括一个下拉式列表和一个文本框，但只能选下拉式列表框，包括一个下拉式列表和一个文本框，但只能选择列表项，不能在文本框中输入择

16、列表项，不能在文本框中输入信息系信息系组合框组合框组合框控件的事件组合框控件的事件ChangeChange：当组合框内容改变时发生。：当组合框内容改变时发生。ClickClick：当用户在一个组合框上单击鼠标按钮时发：当用户在一个组合框上单击鼠标按钮时发生。生。组合框控件的方法组合框控件的方法AddItemAddItem：用来向组合框中添加选项。：用来向组合框中添加选项。RemoveItemRemoveItem：从组合框中删除一个选项。：从组合框中删除一个选项。ClearClear：清除组合框的所有内容。：清除组合框的所有内容。信息系信息系&例例 单击选中项在文本框中显示选择的内容，如

17、果需要的城单击选中项在文本框中显示选择的内容，如果需要的城市组合框中没有列出，可以通过组合框来进行添加市组合框中没有列出，可以通过组合框来进行添加界面如图所示界面如图所示 ：信息系信息系代码设计： Private Sub Form_Load() Combo1.AddItem 武汉 Combo1.AddItem 北京 Combo1.AddItem 西安 Combo1.AddItem 重庆 Combo1.AddItem 长沙 Combo1.AddItem 海南 Combo1.AddItem 天津 Combo1.AddItem 南京 Combo1.AddItem 杭州End SubPrivate S

18、ub Combo1_Change() End SubPrivate Sub Combo1_Click() End SubCombo1.AddItem Combo1.TextText1.Text = Combo1.Text信息系信息系滚动条通常用来浏览内容或确定位置，也可以作为数据输入滚动条通常用来浏览内容或确定位置，也可以作为数据输入的工具。在实际应用中，滚动条也常用作数量、速度的指示的工具。在实际应用中，滚动条也常用作数量、速度的指示器，如在一些多媒体应用中用来控制音量、画面的滚动速度器，如在一些多媒体应用中用来控制音量、画面的滚动速度等。等。滚动条分为水平滚动条滚动条分为水平滚动条HScr

19、ollHScroll和垂直滚动和垂直滚动VScrollVScroll两种类型。两种类型。滚动条的结构滚动条的结构两端各有一个滚动箭头，在滚动条上有一个能够移动的小方两端各有一个滚动箭头，在滚动条上有一个能够移动的小方块，叫做滚动滑块；块，叫做滚动滑块；水平滚动条的最小值在最左边，最大值在最右边，从左向右水平滚动条的最小值在最左边，最大值在最右边，从左向右移动时，值依次递增；移动时，值依次递增；垂直滚动条的最小值在最上边，最大值在最下边，从上向下垂直滚动条的最小值在最上边，最大值在最下边，从上向下移动时，值依次递增。移动时，值依次递增。信息系信息系滚动条控件的属性滚动条控件的属性MaxMax：设

20、置滚动条的最大值。最大值为滚动滑块在右或下：设置滚动条的最大值。最大值为滚动滑块在右或下端时的值，其值介于端时的值，其值介于-32768-32768到到3276732767之间，之间，MaxMax的默认值为的默认值为3276732767。MinMin：设置滚动条的最小值。最小值为滚动滑块在左或上：设置滚动条的最小值。最小值为滚动滑块在左或上端时的值，端时的值，MinMin的默认值为的默认值为0 0。ValueValue：表示滚动滑块所在位置对应的值。如果用户拖动滑：表示滚动滑块所在位置对应的值。如果用户拖动滑动块，动块，ValueValue属性值随之改变，它是滚动滑块的位置与最大属性值随之改变

21、，它是滚动滑块的位置与最大值、最小值换算而得的结果，取值范围为值、最小值换算而得的结果，取值范围为MinMinMaxMax。LargeChangeLargeChange：设置鼠标单击滚动条中间的空白处时，每次：设置鼠标单击滚动条中间的空白处时，每次增加和减少的数值。系统默认的数值为增加和减少的数值。系统默认的数值为1 1，取值范围为，取值范围为1用户可以自己修改，用户可以自己修改SmallChangeSmallChange：设置鼠标单击滚动条两边的箭头时，每次增：设置鼠标单击滚动条两边的箭头时，每次增加和减少的数值。系统默认的数值为加和减少的数值。系统默认的数值为1

22、1，取值范围为，取值范围为1用户可以自己修改。，用户可以自己修改。信息系信息系滚动条控件的事件滚动条控件的事件 滚动条控件的常用事件有滚动条控件的常用事件有Scroll事件和事件和Change事事件。件。Scroll滑动事件滑动事件单击滚动箭头或单击滚动条均不能触发该事件，仅单击滚动箭头或单击滚动条均不能触发该事件，仅在移动滚动滑块时被触发。一般可用该事件来跟踪在移动滚动滑块时被触发。一般可用该事件来跟踪滚动条的动态变化。滚动条的动态变化。Change变化事件变化事件单击滚动箭头、单击滚动条或移动滚动滑块时均可单击滚动箭头、单击滚动条或移动滚动滑块时均可触发该事件。一

23、般可用该事件来获得移动后滚动条触发该事件。一般可用该事件来获得移动后滚动条的最后值。的最后值。信息系信息系&例 利用水平滚动条和垂直滚动条的滚动，分别改变标签中文字的字体和颜色。 对象对象属性属性属性值属性值LabelLabelNameNameLabel1Label1CaptionCaption滴水穿石滴水穿石HScrollBaHScrollBar rNameNameHScroll1HScroll1MaxMax4848MinMin8 8VScrollBaVScrollBar rNameNameVScroll1VScroll1MaxMax3 3MinMin1 1LabelLabelNam

24、eNameLabel2Label2CaptionCaption字体颜色字体颜色LabelLabelNameNameLabel3Label3CaptionCaption黑体黑体LabelLabelNameNameLabel4Label4CaptionCaption宋体宋体LabelLabelNameNameLabel5Label5CaptionCaption隶书隶书界面设计界面设计 ：信息系信息系信息系信息系计时器是一个非常有用的控件，主要有两个功能：计时器是一个非常有用的控件，主要有两个功能：用于在程序中监视和控制时间进程，即每隔一段固定的时用于在程序中监视和控制时间进程，即每隔一段固定的时间

25、就有规律地执行一次相同的任务。如定时检测系统或控间就有规律地执行一次相同的任务。如定时检测系统或控件的状态、控制控件的移动、设置时钟、倒计时、秒表等；件的状态、控制控件的移动、设置时钟、倒计时、秒表等；进行某种后台处理。进行某种后台处理。因为计时器控件在设计时可见，运行时隐藏，所以它在界因为计时器控件在设计时可见，运行时隐藏，所以它在界面上的位置和大小无关紧要。但在后台每隔一定的时间，面上的位置和大小无关紧要。但在后台每隔一定的时间，系统就会自动触发一次计时器事件。系统就会自动触发一次计时器事件。信息系信息系对象名对象名.Enabled=True | False对象名对象名. Interval

26、=数值数值信息系信息系注意：注意： 计时器事件发生越频繁，响应事件所使用的处理器计时器事件发生越频繁，响应事件所使用的处理器事件就越多，这将降低系统综合性能。因而，除非有必事件就越多，这将降低系统综合性能。因而，除非有必要否则不要设置过小的时间间隔。要否则不要设置过小的时间间隔。信息系信息系&例例 设计一个窗体，运行窗体后，图片会不停地闪动。设计一个窗体，运行窗体后，图片会不停地闪动。界面设计界面设计 ：对象对象属性属性属性值属性值TimerTimerNameNameTimer1Timer1EnabledEnabledTrueTrueintervalinterval100100Pict

27、ureBoxPictureBoxNameNamePicture1Picture1Picture1Picture1D:a003.bmD:a003.bmp p属性设计属性设计 ：Private Sub Timer1_Timer() End Sub Picture1.Visible = Not (Picture1.Visible)信息系信息系&例例 运行窗体后，文本框运行窗体后，文本框“谁知盘中餐，粒粒皆辛苦。谁知盘中餐，粒粒皆辛苦。”从从右向左移动，每当文本框全部移出左边界时要求从右边界再右向左移动，每当文本框全部移出左边界时要求从右边界再次循环运行。次循环运行。界面设计界面设计 ：属性设

28、计属性设计 ：对象对象属性属性属性值属性值LabelLabelNameNameLabel1Label1CaptionCaption从右向左循环滚动从右向左循环滚动TimerTimerNameNameTimer1Timer1EnabledEnabledTrueTrueTimer1Timer1100100TextBoxTextBoxNameNameText1Text1TextText谁知盘中餐，谁知盘中餐，粒粒皆辛苦粒粒皆辛苦BackColorBackColor&H80000004&H80000004&MultiLineMultiLineTrueTrue信息系信息系信息系信

29、息系界面设计界面设计 ：信息系信息系对象对象属性属性属性值属性值PictureBoxPictureBoxNameNamePicture1Picture1PicturePictureF:F:常用控件常用控件001.bmp 001.bmp PictureBoxPictureBoxNameNamePicture2Picture2PicturePictureF:F:常用控件常用控件002.bmp002.bmpPictureBoxPictureBoxNameNamePicture3Picture3PicturePictureF:F:常用控件常用控件003.bmp003.bmpPictureBoxPict

30、ureBoxNameNamePicture4Picture4PicturePictureF:F:常用控件常用控件004.bmp004.bmpPictureBoxPictureBoxNameNamePicture5Picture5属性设计属性设计 ： 信息系信息系信息系信息系3.8.1 设置焦点简单地说，焦点是接收用户鼠标或键盘输入的能力。当一个对象具有焦点时，它可以接收用户的输入。在Windows系统中，某个时刻可以运行多个应用程序，但只有具有焦点的应用程序才有活动标题栏，才能接收用户输入。类似地，在含有多个文本框的窗体中，只有具有焦点的文本框才能接收用户的输入。当对象得到焦点时，会产生Got

31、Focus事件；而当对象失去焦点时，将产生LostFocus事件。LostFocus事件过程通常用来对更新进行确认和有效性检查，也可用于修正或改变在GotFocus 事件过程中设立的条件，窗体和多数控件支持这些事件。信息系信息系3.8.1 设置焦点设置焦点用下面的方法可以设置一个对象的焦点：用下面的方法可以设置一个对象的焦点：（1在运行时单击该对象。在运行时单击该对象。（2运行时用快捷键选择该对象。运行时用快捷键选择该对象。（3在程序代码中使用在程序代码中使用SetFocus方法。方法。 焦点只能移到可视的窗体或控件上，因而，只有当一个对象的焦点只能移到可视的窗体或控件上，因而，只有当一个对象

32、的Enabled和和Visible属性均为属性均为True时，它才能接收焦点。时，它才能接收焦点。Enabled属性属性允许对象响应由用户产生的事件，如键盘和鼠标事件，而允许对象响应由用户产生的事件，如键盘和鼠标事件，而Visible属属性决定了对象是否可见。性决定了对象是否可见。对于大多数可以接收焦点的控件来说，从外观上可以看出它是否具对于大多数可以接收焦点的控件来说，从外观上可以看出它是否具有焦点。例如，当命令按钮、复选框、单选按钮等控件具有焦点时，有焦点。例如，当命令按钮、复选框、单选按钮等控件具有焦点时，在其内侧有一个虚线框。而当文本框具有焦点时，在文本框中有闪在其内侧有一个虚线框。而当文本框具有焦点时，在文本框中有闪烁的插入光标。烁的插入光标。信息系信息系注意：并不是所有对象都可以接收焦点，某些控件例如框注意：并不是所有对象都可以接收焦点，某些控件例如框架架Frame）、标签）、标签Label）、菜单）、菜单Menu）、直线）、直线Line）、形状）、形状Shape）、图像框）、图像框Image和计时