常用标准控件扩充课件

《常用标准控件扩充课件》由会员分享，可在线阅读，更多相关《常用标准控件扩充课件（53页珍藏版）》请在金锄头文库上搜索。

1、信息系信息系3.4 框架和选择控件框架和选择控件框架（框架（框架（框架（FrameFrameFrameFrame）在在VB中，可以作为其他对象容器的有窗体、图片框中，可以作为其他对象容器的有窗体、图片框和框架。框架的主要作用是将窗体上的控件进行分和框架。框架的主要作用是将窗体上的控件进行分组，让窗体界面整齐。组，让窗体界面整齐。框架控件的属性框架控件的属性Caption：设置框架的标题，说明框架的功能。：设置框架的标题，说明框架的功能。Enabled：设置框架及框架内控件是否可用。属性：设置框架及框架内控件是否可用。属性值为值为True（默认值）表示框架可用，属性值为（默认值）表示框架可用，属

2、性值为False则表示框架和其上的控件不可用。则表示框架和其上的控件不可用。Visible：设置框架及框架内控件是否可见。：设置框架及框架内控件是否可见。 1信息系信息系3.4 框架和选择控件框架和选择控件框架（框架（FrameFrame）框架控件的事件框架控件的事件 框架的常用事件是框架的常用事件是ClickClick，在框架上单击鼠标，在框架上单击鼠标时触发。时触发。 向框架添加控件的方法向框架添加控件的方法 先框架后控件：先添加一个框架，在框架处于先框架后控件：先添加一个框架，在框架处于激活状态时，在工具栏中选择要添加的控件添激活状态时，在工具栏中选择要添加的控件添加到框架中。加到框架中

3、。先控件后框架：即添加窗体中已存在的控件到先控件后框架：即添加窗体中已存在的控件到框架中。先添加一个框架，然后将窗体中要添框架中。先添加一个框架，然后将窗体中要添加的控件剪贴到框架中。加的控件剪贴到框架中。 判断一个控件是否已添加到框架上，主判断一个控件是否已添加到框架上，主要是看移动框架时该控件是否也跟随一起要是看移动框架时该控件是否也跟随一起移动。移动。2信息系信息系3.4 框架和选择控件框架和选择控件单选按钮（单选按钮（单选按钮（单选按钮（OptionButtonOptionButtonOptionButtonOptionButton） 单选按钮控件是多选一控件，只能从多个选项中单选按钮

4、控件是多选一控件，只能从多个选项中选择一个，各选项间的关系是互斥的，同一时刻选择一个，各选项间的关系是互斥的，同一时刻只能选择同一组中的一个单选按钮。只能选择同一组中的一个单选按钮。单选按钮控件的属性单选按钮控件的属性Caption：设置单选按钮的标题。：设置单选按钮的标题。Alignment：设置单选按钮中文字的对齐方式。：设置单选按钮中文字的对齐方式。 其中：其中：属性值为属性值为0（默认值）表示靠左对齐，圆形按（默认值）表示靠左对齐，圆形按钮位于控件的左边，文字显示在右边；属性值钮位于控件的左边，文字显示在右边；属性值为为1表示靠右对齐。表示靠右对齐。对象名对象名.Alignment=0

5、 | 13信息系信息系3.4 框架和选择控件框架和选择控件单选按钮（单选按钮（单选按钮（单选按钮（OptionButtonOptionButtonOptionButtonOptionButton） 单选按钮控件的属性单选按钮控件的属性ValueValue：设置单选按钮在执行时是否被选中。：设置单选按钮在执行时是否被选中。语法格式：语法格式： 其中：其中： 属性值为属性值为FalseFalse（默认值）表示单选按（默认值）表示单选按钮处于未选中状态；为钮处于未选中状态；为TrueTrue表示单选按钮表示单选按钮被选中。被选中。在在一组一组单选按钮控件中，有且只单选按钮控件中，有且只有一个单选按钮

6、能被选中，该控件的有一个单选按钮能被选中，该控件的ValueValue值变成值变成TrueTrue的同时，其他控件的的同时，其他控件的ValueValue属性属性将自动变成将自动变成FalseFalse。 对象名对象名. Value=True | False4信息系信息系3.4 框架和选择控件框架和选择控件单选按钮（单选按钮（单选按钮（单选按钮（OptionButtonOptionButtonOptionButtonOptionButton） 单选按钮控件的属性单选按钮控件的属性StyleStyle：设置单选按钮的显示方式。：设置单选按钮的显示方式。 语语法格式：法格式： 其中：其中： 属性值

7、为属性值为0 0（默认值）表示单选按钮用（默认值）表示单选按钮用标准方式（标准方式（StandardStandard）显示；为）显示；为1 1表示单选表示单选按钮用图形方式（按钮用图形方式（GraphicalGraphical）显示。）显示。此属此属性与命令按钮的性与命令按钮的StyleStyle属性相似属性相似。 对象名对象名. Style=0 | 15信息系信息系3.4 框架和选择控件框架和选择控件单选按钮（单选按钮（单选按钮（单选按钮（OptionButtonOptionButtonOptionButtonOptionButton） 单选按钮控件的属性单选按钮控件的属性Picture：给

8、单选按钮装载图形。：给单选按钮装载图形。 注意：只有在注意：只有在StyleStyle属性设置为图形属性设置为图形方式时方式时PicturePicture属性才有效。属性才有效。6信息系信息系3.4 框架和选择控件框架和选择控件单选按钮（单选按钮（单选按钮（单选按钮（OptionButtonOptionButtonOptionButtonOptionButton） 单选按钮控件的事件单选按钮控件的事件单选按钮的常用事件为单选按钮的常用事件为Click，当用户在一个，当用户在一个单选按钮上单击时触发。单选按钮上单击时触发。7信息系信息系3.4 框架和选择控件框架和选择控件例例 设计一个窗体选择不

9、同字体、不同字号的选项，设计一个窗体选择不同字体、不同字号的选项，文本框的文字会产生相应的变化。文本框的文字会产生相应的变化。界面设计界面设计属性设置属性设置8信息系信息系3.4 框架和选择控件框架和选择控件代码设计：代码设计：Private Sub Option1_Click() If Option1.Value = True Then Label1.FontName = 宋体宋体End SubPrivate Sub Option2_Click() If Option2.Value = True Then Label1.FontName = 隶书隶书End SubPrivate Sub Op

10、tion3_Click() If Option3.Value = True Then Label1.FontName = 黑体黑体End Sub9信息系信息系3.4 框架和选择控件框架和选择控件代码设计：代码设计：Private Sub Option4_Click() If Option4.Value = True Then Label1.FontSize =30End SubPrivate Sub Option5_Click() If Option5.Value = True Then Label1.FontSize = 40End SubPrivate Sub Option6_Click(

11、) If Option6.Value = True Then Label1.FontSize = 50End Sub10信息系信息系3.4 框架和选择控件框架和选择控件运行结果运行结果11信息系信息系3.4 框架和选择控件框架和选择控件复选框（复选框（复选框（复选框（CheckBoxCheckBoxCheckBoxCheckBox）复选框的功能类似于单选按钮，不同的是：一组单选按钮中只允许复选框的功能类似于单选按钮，不同的是：一组单选按钮中只允许复选框的功能类似于单选按钮，不同的是：一组单选按钮中只允许复选框的功能类似于单选按钮，不同的是：一组单选按钮中只允许选定其中的一个；而在组复选框中却可

12、以选择多个，即复选框的功选定其中的一个；而在组复选框中却可以选择多个，即复选框的功选定其中的一个；而在组复选框中却可以选择多个，即复选框的功选定其中的一个；而在组复选框中却可以选择多个，即复选框的功能是独立的，各选项间不互斥。能是独立的，各选项间不互斥。能是独立的，各选项间不互斥。能是独立的，各选项间不互斥。复选框控件的属性复选框控件的属性Caption：设置复选框标题。：设置复选框标题。Value：设置复选框在执行时的状态。语法格式：设置复选框在执行时的状态。语法格式： 对象名对象名. Value=0 | 1 | 2属性属性值说 明明0(默认值默认值)未选中，此时复选框前面小方块没有未选中，

13、此时复选框前面小方块没有“”标标志志1选中状态，此时复选框前面小方块带有选中状态，此时复选框前面小方块带有“”标志标志2处于禁止选择状态，复选框呈现处于禁止选择状态，复选框呈现“”标志但以灰色显标志但以灰色显示。示。12信息系信息系3.4 框架和选择控件框架和选择控件复选框（复选框（CheckBoxCheckBox）复选框控件的属性复选框控件的属性Style：设置复选框的显示方式。：设置复选框的显示方式。Picture：用于给图形复选框装载图形。：用于给图形复选框装载图形。 注意：只有在注意：只有在StyleStyle属性设置为图形方式时属性设置为图形方式时PicturePicture属性才有

14、效。属性才有效。13信息系信息系3.4 框架和选择控件框架和选择控件复选框（复选框（CheckBoxCheckBox）复选框控件的事件和方法复选框控件的事件和方法复选框的常用事件为复选框的常用事件为Click，当用户在一个复，当用户在一个复选框上单击鼠标按钮时发生。选框上单击鼠标按钮时发生。复选框复选框不支持鼠不支持鼠标双击事件标双击事件，系统把一次双击解释为两次单击，系统把一次双击解释为两次单击事件。事件。复选框支持的方法较少，常用的主要有：复选框支持的方法较少，常用的主要有：SetFoucs、Move。 14信息系信息系复选框应用复选框应用设计一个窗体，说明复选框的基本应用方法。设计一个窗

15、体，说明复选框的基本应用方法。 界面设计界面设计15信息系信息系对象象属性属性属性属性值LabelNameLabel1Caption我的我的爱好是好是CheckBoxNameCheck1Caption音音乐CheckBoxNameCheck2Caption足球足球CheckBoxNameCheck3Caption看看书CheckBoxNameCheck4Caption购物物CommandButtonNameCommand1Caption确定确定CommandButtonNameCommand2Caption清除清除16信息系信息系3.4 框架和选择控件框架和选择控件代码设计：代码设计： Pri

16、vate Sub Command1_Click() a = Check1.Caption b = Check2.Caption c = Check3.Caption d = Check4.Caption If Check1.Value = 1 Then Label1.Caption = Label1.Caption & & a If Check2.Value = 1 Then Label1.Caption = Label1.Caption & & b If Check3.Value = 1 Then Label1.Caption = Label1.Caption & & c If Check4

17、.Value = 1 Then Label1.Caption = Label1.Caption & & dEnd SubPrivate Sub Command2_Click() a = b = c = d = Label1.Caption = 我的爱好是：我的爱好是：End Sub17信息系信息系3.5 列表框和组合框列表框和组合框列表框和组合框都是通过列表的形式显示多个选项，供用户列表框和组合框都是通过列表的形式显示多个选项，供用户来选择。来选择。列表框是一个为用户提供选择的列表，用户可从中单击选取列表框是一个为用户提供选择的列表，用户可从中单击选取自己所需的一个或多个选项。如果选项太多，超

18、出列表框设自己所需的一个或多个选项。如果选项太多，超出列表框设计的大小时，不能一次全部显示，计的大小时，不能一次全部显示，VB会自动加上垂直滚动条。会自动加上垂直滚动条。组合框的功能与列表框相近，其主要特点是它组合框的功能与列表框相近，其主要特点是它综合了列表框综合了列表框和文本框的特性和文本框的特性。在程序运行时，用户既可以在组合框中选。在程序运行时，用户既可以在组合框中选择已有的选项，选中的内容自动放入文本框中；又能够在文择已有的选项，选中的内容自动放入文本框中；又能够在文本框中直接输入所需的内容。本框中直接输入所需的内容。列表框控件列表框控件组合框控件组合框控件18信息系信息系3.5 列

19、表框和组合框列表框和组合框列表框控件列表框控件列表框控件列表框控件列表框控件的属性列表框控件的属性List：设置列表框中列表项的内容。：设置列表框中列表项的内容。List属性值是一个一维数组，属性值是一个一维数组，每个数组元素是列表框中的一个选项。每个数组元素是列表框中的一个选项。 其中：其中：该属性既可以在设计时通过属性窗口设置，又可在代码窗口该属性既可以在设计时通过属性窗口设置，又可在代码窗口中设置；中设置；属性窗口设置时，每添加一个列表项，按属性窗口设置时，每添加一个列表项，按Ctrl+Enter键可以键可以换行继续添加下一个列表项，直接按换行继续添加下一个列表项，直接按Enter键表示

20、添加结束；键表示添加结束；代码窗口设置时，采用如下格式：代码窗口设置时，采用如下格式： 例如：例如： List1.list(0)= 武汉武汉 列表框的第一项列表框的第一项 List1.list(2)= 北京北京 列表框的第三项列表框的第三项对象名对象名.list(下标下标) = 字符字符串串注意：注意：List数组的第一个元素的下标是数组的第一个元素的下标是0，即，即List(0)为第一个元素，往后为第一个元素，往后依次为依次为List(1)、List(2)、List(3)，如果如果List数组中有数组中有n个元素，个元素，则最后一个列表项对应的数组元素为则最后一个列表项对应的数组元素为Lis

21、t(n-1)。19信息系信息系3.5 列表框和组合框列表框和组合框列表框控件列表框控件列表框控件列表框控件列表框控件的属性列表框控件的属性ListCount：表示当前列表框中选项的总数。：表示当前列表框中选项的总数。 注意：注意：任何列表框中的选项从任何列表框中的选项从0开始，到开始，到ListCount-1结束，结束，通常和通常和List属性一起使用，此属性只能在程序中引属性一起使用，此属性只能在程序中引用。用。20信息系信息系3.5 列表框和组合框列表框和组合框列表框控件列表框控件列表框控件列表框控件列表框控件的属性列表框控件的属性ListIndex：设置和返回选中的选项，即下标序号。如果

22、没有任何选项选：设置和返回选中的选项，即下标序号。如果没有任何选项选中，其值为中，其值为-1。 Sorted：设置列表框中的选项是否按字母表顺序排序。语法格式：设置列表框中的选项是否按字母表顺序排序。语法格式： 其中：其中：属性值为属性值为True表示列表框中的选项按字母表顺序排序；属性值为表示列表框中的选项按字母表顺序排序；属性值为False则表示列表框中的选项不按字母表顺序排序。则表示列表框中的选项不按字母表顺序排序。Sorted属性必须在属性窗口时设置，在运行时是只读的。属性必须在属性窗口时设置，在运行时是只读的。 list1.sorted=true 按字母顺序排列按字母顺序排列 lis

23、t1.sorted=false按加入时的顺序排列按加入时的顺序排列 如果选中如果选中列表框的第五个元素，则列表框的第五个元素，则ListIndex值为多少？值为多少？对象名对象名.Sorted=True | False21信息系信息系3.5 列表框和组合框列表框和组合框列表框控件列表框控件列表框控件列表框控件列表框控件的属性列表框控件的属性Text：返回或设置最后选中的列表项的文本内容。只读属性，不：返回或设置最后选中的列表项的文本内容。只读属性，不能直接修改其值，用于获取选定列表项的内容。能直接修改其值，用于获取选定列表项的内容。MultiSelect：设置该列表框是否能选择多项。语法格式：

24、设置该列表框是否能选择多项。语法格式： 对象名对象名. MultiSelect =0 | 1 | 2属性属性值说 明明0 (None)单选，一次只能选择一个选项单选，一次只能选择一个选项1 (Simple)简单多选，鼠标单击或按简单多选，鼠标单击或按Space键选取或取消选项键选取或取消选项2(Extended)高级多选，用高级多选，用Ctrl键与鼠标单击来选中或取消不连续的键与鼠标单击来选中或取消不连续的选项；用选项；用Shift键与鼠标单击来选中或取消连续的选项键与鼠标单击来选中或取消连续的选项注意：注意：若选择多项，则若选择多项，则ListIndex和和Text的属性只表示最后一次所选的

25、属性只表示最后一次所选择的选项值择的选项值。22信息系信息系3.5 列表框和组合框列表框和组合框列表框控件列表框控件列表框控件列表框控件列表框控件的属性列表框控件的属性SelCount：表示列表框中所选择的选项的数目。：表示列表框中所选择的选项的数目。通常与通常与Selected一起使用，以处理控件中所选一起使用，以处理控件中所选的选项。的选项。 注意：注意：注意：注意：SelCount属性使用的前提是属性使用的前提是MultiSelect属性设置为属性设置为1或或2。23信息系信息系3.5 列表框和组合框列表框和组合框列表框控件列表框控件列表框控件列表框控件列表框控件的属性列表框控件的属性S

26、elected：与：与List数组中的各个元素相对应的一数组中的各个元素相对应的一个数组，记录个数组，记录List数组中每个选项是否被选取。数组中每个选项是否被选取。例如，如果例如，如果List(1)被选取，则被选取，则Selected(1)的值的值为为True，如果，如果List(1)未被选取，则未被选取，则Selected(1)的值为的值为False。 如：如：list1.selected(0)=true表示选中第一项表示选中第一项24信息系信息系3.5 列表框和组合框列表框和组合框列表框控件列表框控件列表框控件列表框控件列表框控件的属性列表框控件的属性Style：设置列表框控件的外观。：

27、设置列表框控件的外观。语法格式：语法格式： 属性属性值说 明明0(标准样式标准样式)不带复选框不带复选框1(复选框样式复选框样式)当复选框中出现当复选框中出现“”时表示选中该选项时表示选中该选项对象名对象名. Style =0 | 1 25信息系信息系3.5 列表框和组合框列表框和组合框列表框控件列表框控件列表框控件列表框控件列表框控件的事件列表框控件的事件Click事件：在列表框获得焦点时用户单击某个选项，或按下方向事件：在列表框获得焦点时用户单击某个选项，或按下方向键，或按下选项的第一个英文字母，会触发该事件。键，或按下选项的第一个英文字母，会触发该事件。DblClick事件：双击某个选项

28、会触发该事件。事件：双击某个选项会触发该事件。列表框控件的方法列表框控件的方法AddItem：向列表框中添加列表项。语法格式：向列表框中添加列表项。语法格式： 对象名对象名.AddItem 选项字符串选项字符串 ,索引索引值值其中：其中：选项字符串是要添加到列表框中的字符表达式；选项字符串是要添加到列表框中的字符表达式；索引值是可选参数，用来指定新选项在列表框中的插入位索引值是可选参数，用来指定新选项在列表框中的插入位置。若索引值为置。若索引值为0，则插入到第一个选项位置；若索引值省，则插入到第一个选项位置；若索引值省略，当略，当Sorted属性设置为属性设置为True时，新选项将添加到恰当的

29、排时，新选项将添加到恰当的排序位置，当序位置，当Sorted属性设置为属性设置为False时，新选项将添加到现有时，新选项将添加到现有列表项的末尾。列表项的末尾。 例如例如: list1.additem 中国中国 list1.additem 美国美国,226信息系信息系3.5 列表框和组合框列表框和组合框列表框控件列表框控件列表框控件列表框控件列表框控件的方法列表框控件的方法RemoveItem：从列表框中删除指定选项。语法格式：从列表框中删除指定选项。语法格式： 例如例如:list1. RemoveItem,0其中：其中：索引值用来指定要删除的选项在列表框中的位置，每次只能索引值用来指定要删

30、除的选项在列表框中的位置，每次只能删除一个选项。删除一个选项。 Clear：清除列表框中的全部选项。语法格式：清除列表框中的全部选项。语法格式：对象名对象名. RemoveItem 索引值索引值对象名对象名.Clear27信息系信息系3.5 列表框和组合框列表框和组合框&例例 设计一个窗体，要求：可以通过在列表框设计一个窗体，要求：可以通过在列表框List1中选择，中选择，然后单击中间的命令按钮在列表框然后单击中间的命令按钮在列表框List2中执行相应的操作。中执行相应的操作。界面如图所示界面如图所示 ：属性设置属性设置28信息系信息系3.5 列表框和组合框列表框和组合框代码设计：代码设计：

31、Private Sub Form_Load() List1.AddItem 苹果苹果 List1.AddItem 香蕉香蕉 List1.AddItem 芒果芒果 List1.AddItem 西瓜西瓜 List1.AddItem 哈密瓜哈密瓜 List1.AddItem 葡萄葡萄 List1.AddItem 椰子椰子 List1.AddItem 榴莲榴莲 List1.AddItem 菠萝菠萝 List1.AddItem 蟠桃蟠桃End SubPrivate Sub Command1_Click() End SubPrivate Sub Command2_Click() End SubPrivat

32、e Sub Command3_Click() End SubPrivate Sub Command4_Click() End SubList2.AddItem List1.TextList2.RemoveItem List2.ListIndexList2.ClearEnd29信息系信息系3.5 列表框和组合框列表框和组合框组合框组合框组合框组合框(ComboBox)(ComboBox)是由文本框是由文本框(TextBox)(TextBox)与列表框与列表框(listBox) “(listBox) “组合组合”而成的控件。用户可以通过在文本而成的控件。用户可以通过在文本框输入新文本内容或在列表框

33、中单击列表选项选择已有框输入新文本内容或在列表框中单击列表选项选择已有内容。内容。组合框的形式有三种：下拉组合框组合框的形式有三种：下拉组合框(默认方式默认方式)；简单组；简单组合框；下拉列表框。合框；下拉列表框。组合框控件的属性组合框控件的属性Style：功能是设置组合框的显示类型，在运行时为只：功能是设置组合框的显示类型，在运行时为只读的。读的。对象名对象名. Style=0 | 1 | 2属性属性值说 明明0（默认值）下拉式组合框，包括一个下拉式列表和一个文本框，（默认值）下拉式组合框，包括一个下拉式列表和一个文本框，可以输入文本或从下拉列表中选择列表项可以输入文本或从下拉列表中选择列表

34、项1简单组合框，包括一个文本框和一个无法下拉的列表，可以输简单组合框，包括一个文本框和一个无法下拉的列表，可以输入文本或选择列表项。入文本或选择列表项。2下拉式列表框，包括一个下拉式列表和一个文本框，但只能选下拉式列表框，包括一个下拉式列表和一个文本框，但只能选择列表项，不能在文本框中输入择列表项，不能在文本框中输入30信息系信息系3.5 列表框和组合框列表框和组合框组合框组合框组合框控件的事件组合框控件的事件ChangeChange：当组合框内容改变时发生。：当组合框内容改变时发生。ClickClick：当用户在一个组合框上单击鼠标按钮时发生。：当用户在一个组合框上单击鼠标按钮时发生。组合框

35、控件的方法组合框控件的方法AddItemAddItem：用来向组合框中添加选项。：用来向组合框中添加选项。RemoveItemRemoveItem：从组合框中删除一个选项。：从组合框中删除一个选项。ClearClear：清除组合框的所有内容。：清除组合框的所有内容。31信息系信息系3.5 列表框和组合框列表框和组合框&例例 单击选中项在文本框中显示选择的内容，如果需要的城单击选中项在文本框中显示选择的内容，如果需要的城市组合框中没有列出，可以通过组合框来进行添加市组合框中没有列出，可以通过组合框来进行添加界面如图所示界面如图所示 ：32信息系信息系3.5 列表框和组合框列表框和组合框代码设计：

36、代码设计： Private Sub Form_Load() Combo1.AddItem 武汉武汉 Combo1.AddItem 北京北京 Combo1.AddItem 西安西安 Combo1.AddItem 重庆重庆 Combo1.AddItem 长沙长沙 Combo1.AddItem 海南海南 Combo1.AddItem 天津天津 Combo1.AddItem 南京南京 Combo1.AddItem 杭州杭州End SubPrivate Sub Combo1_Change() End SubPrivate Sub Combo1_Click() End SubCombo1.AddItem

37、Combo1.TextText1.Text = Combo1.Text33信息系信息系3.6 滚动条滚动条滚动条通常用来浏览内容或确定位置，也可以作为数据输入滚动条通常用来浏览内容或确定位置，也可以作为数据输入的工具。在实际应用中，滚动条也常用作数量、速度的指示的工具。在实际应用中，滚动条也常用作数量、速度的指示器，如在一些多媒体应用中用来控制音量、画面的滚动速度器，如在一些多媒体应用中用来控制音量、画面的滚动速度等。等。滚动条分为水平滚动条（滚动条分为水平滚动条（HScrollHScroll）和垂直滚动（）和垂直滚动（VScrollVScroll）两种类型。两种类型。滚动条的结构滚动条的结构

38、1.1.两端各有一个滚动箭头，在滚动条上有一个能够移动的小方两端各有一个滚动箭头，在滚动条上有一个能够移动的小方块，叫做块，叫做滚动滑块滚动滑块；2.2.水平滚动条的最小值在最左边，最大值在最右边，从左向右水平滚动条的最小值在最左边，最大值在最右边，从左向右移动时，值依次递增；移动时，值依次递增；3.3.垂直滚动条的最小值在最上边，最大值在最下边，从上向下垂直滚动条的最小值在最上边，最大值在最下边，从上向下移动时，值依次递增。移动时，值依次递增。34信息系信息系3.6 滚动条滚动条滚动条控件的属性滚动条控件的属性MaxMax：设置滚动条的最大值。最大值为滚动滑块在右（或下）设置滚动条的最大值。

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

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

41、以自己修改。用户可以自己修改。35信息系信息系3.6 滚动条滚动条滚动条控件的事件滚动条控件的事件 滚动条控件的常用事件有滚动条控件的常用事件有ScrollScroll事件和事件和ChangeChange事件。事件。ScrollScroll（滑动）事件（滑动）事件单击滚动箭头或单击滚动条均不能触发该事件单击滚动箭头或单击滚动条均不能触发该事件，仅在仅在移动滚动滑块时被触发移动滚动滑块时被触发。一般可用该事件来跟踪滚动。一般可用该事件来跟踪滚动条的动态变化。条的动态变化。ChangeChange（变化）事件（变化）事件单击滚动箭头、单击滚动条或移动滚动滑块时均可触单击滚动箭头、单击滚动条或移动滚

42、动滑块时均可触发该事件。一般可用该事件来获得移动后滚动条的最发该事件。一般可用该事件来获得移动后滚动条的最后值。后值。36信息系信息系3.6 滚动条滚动条例例 利用水平滚动条和垂利用水平滚动条和垂直滚动条的滚动，分别改直滚动条的滚动，分别改变标签中文字的字体和颜变标签中文字的字体和颜色。色。 对象象属性属性属性属性值LabelLabelNameNameLabel1Label1CaptionCaption滴水穿石滴水穿石HScrollBarHScrollBarNameNameHScroll1HScroll1MaxMax4848MinMin8 8VScrollBarVScrollBarNameNa

43、meVScroll1VScroll1MaxMax3 3MinMin1 1LabelLabelNameNameLabel2Label2CaptionCaption字体字体颜色色LabelLabelNameNameLabel3Label3CaptionCaption黑体黑体LabelLabelNameNameLabel4Label4CaptionCaption宋体宋体LabelLabelNameNameLabel5Label5CaptionCaption隶隶书界面设计界面设计 ：37信息系信息系3.6 滚动条滚动条Private Sub HScroll1_Change()Private Sub H

44、Scroll1_Change() Label1.ForeColor = RGB(Rnd * 255, Rnd * 255, Rnd * 255)Label1.ForeColor = RGB(Rnd * 255, Rnd * 255, Rnd * 255)End SubEnd SubPrivate Sub VScroll1_Change()Private Sub VScroll1_Change() Select Case VScroll1.ValueSelect Case VScroll1.Value Case 1 Case 1 Label1.Font = Label1.Font = 黑体黑体黑

45、体黑体 Case 2 Case 2 Label1.Font = Label1.Font = 宋体宋体宋体宋体 Case 3 Case 3 Label1.Font = Label1.Font = 隶书隶书隶书隶书 End Select End SelectEnd SubEnd Sub38信息系信息系3.7计时器计时器 计时器是一个非常有用的控件，主要有两个功能：计时器是一个非常有用的控件，主要有两个功能：1.用于在程序中监视和控制时间进程，即每隔一段固定的时间用于在程序中监视和控制时间进程，即每隔一段固定的时间就有规律地执行一次相同的任务。如定时检测系统或控件的就有规律地执行一次相同的任务。如定

46、时检测系统或控件的状态、控制控件的移动、设置时钟、倒计时、秒表等；状态、控制控件的移动、设置时钟、倒计时、秒表等；2.进行某种后台处理。进行某种后台处理。因为计时器控件在设计时可见，运行时隐藏，所以它在界面因为计时器控件在设计时可见，运行时隐藏，所以它在界面上的位置和大小无关紧要。但在后台每隔一定的时间，系统上的位置和大小无关紧要。但在后台每隔一定的时间，系统就会自动触发一次计时器事件。就会自动触发一次计时器事件。39信息系信息系3.7计时器计时器计时器控件的属性计时器控件的属性计时器控件的属性计时器控件的属性 Enabled（响应）属性（响应）属性功能：设置计时器控件是否开始计时。语法格式：

47、功能：设置计时器控件是否开始计时。语法格式： 其中，属性值为其中，属性值为True（默认值）表示启动计时器开始计时；属（默认值）表示启动计时器开始计时；属性值为性值为False则表示暂停计时器的使用，待将则表示暂停计时器的使用，待将Enabled属性设置为属性设置为True时继续运行计时器。时继续运行计时器。Interval（间隔）属性（间隔）属性功能：设置两个计时器事件之间的时间间隔。功能：设置两个计时器事件之间的时间间隔。 设置时以毫秒（设置时以毫秒（ms）为单位，范围是）为单位，范围是065 535ms，系统初始，系统初始值设置为值设置为0。若希望每秒执行。若希望每秒执行n个计时器事件，

48、则将个计时器事件，则将Interval属性的属性的值设置为值设置为1000/n。 当当Interval属性的值为属性的值为0时，则计时器无效。时，则计时器无效。对象名对象名.Enabled=True | False对象名对象名. Interval=数值数值40信息系信息系3.7计时器计时器计时器的事件计时器的事件计时器的事件计时器的事件计计时时器器只只有有TimerTimer事事件件。TimerTimer事事件件具具有有周周期期性性，在在每每隔隔IntervalInterval指指定定的的时时间间间间隔隔，就就执执行行一一次次TimerTimer事事件件过过程程。在在实实际际运运用用中中，经经

49、常常用用TimerTimer事事件件来来实实现现有有规规律律的的重重复复操操作和简单的动画。作和简单的动画。注意：注意： 计时器事件发生越频繁，响应事件所使用的处理器计时器事件发生越频繁，响应事件所使用的处理器事件就越多，这将降低系统综合性能。因此，除非有必事件就越多，这将降低系统综合性能。因此，除非有必要否则不要设置过小的时间间隔。要否则不要设置过小的时间间隔。41信息系信息系3.7计时器计时器例例 设计一个窗体，运行窗体后，图片会不停地闪动。设计一个窗体，运行窗体后，图片会不停地闪动。界面设计界面设计 ：对象象属性属性属性属性值TimerTimerNameNameTimer1Timer1E

50、nabledEnabledTrueTrueintervalinterval100100PictureBoxPictureBoxNameNamePicture1Picture1Picture1Picture1D:a003.bmD:a003.bmp p属性设计属性设计 ：Private Sub Timer1_Timer() End Sub Picture1.Visible = Not (Picture1.Visible)42信息系信息系3.7计时器计时器例例 运运行行窗窗体体后后，文文本本框框“谁谁知知盘盘中中餐餐，粒粒粒粒皆皆辛辛苦苦。”从从右右向向左左移移动动，每每当当文文本本框框全全部部移移

51、出出左左边边界界时时要要求求从从右右边边界界再再次次循环运行。循环运行。界面设计界面设计 ：属性设计属性设计 ：对象象属性属性属性属性值LabelLabelNameNameLabel1Label1CaptionCaption从右向左循从右向左循环滚动TimerTimerNameNameTimer1Timer1EnabledEnabledTrueTrueTimer1Timer1100100TextBoxTextBoxNameNameText1Text1TextText谁知知盘中餐，中餐，粒粒皆辛苦粒粒皆辛苦BackColorBackColor&H80000004&H80000004&MultiL

52、ineMultiLineTrueTrue43信息系信息系3.7计时器计时器Private Sub Timer1_Timer()Private Sub Timer1_Timer() If Text1.Left + Text1.Width = 0 Then Text1.Left = If Text1.Left + Text1.Width = 0 Then Text1.Left = Form1.WidthForm1.Width Text1.Left = Text1.Left - 100 Text1.Left = Text1.Left - 100End SubEnd Sub44信息系信息系综合应用综合

53、应用例例例例 要求单击下方不同的单选按钮，窗体中央的图片框则显示要求单击下方不同的单选按钮，窗体中央的图片框则显示要求单击下方不同的单选按钮，窗体中央的图片框则显示要求单击下方不同的单选按钮，窗体中央的图片框则显示上方相应的图片。上方相应的图片。上方相应的图片。上方相应的图片。 界面设计界面设计 ：45信息系信息系综合应用综合应用对象象属性属性属性属性值PictureBoxPictureBoxNameNamePicture1Picture1PicturePictureF:F:常用控件常用控件001.bmp 001.bmp PictureBoxPictureBoxNameNamePicture2

54、Picture2PicturePictureF:F:常用控件常用控件002.bmp002.bmpPictureBoxPictureBoxNameNamePicture3Picture3PicturePictureF:F:常用控件常用控件003.bmp003.bmpPictureBoxPictureBoxNameNamePicture4Picture4PicturePictureF:F:常用控件常用控件004.bmp004.bmpPictureBoxPictureBoxNameNamePicture5Picture5属性设计属性设计 ： 46信息系信息系综合应用综合应用Private Sub O

55、ption1_Click()Private Sub Option1_Click() Picture5.Picture = Picture1.PicturePicture5.Picture = Picture1.PictureEnd SubEnd SubPrivate Sub Option2_Click()Private Sub Option2_Click() Picture5.Picture = Picture2.Picture Picture5.Picture = Picture2.PictureEnd SubEnd SubPrivate Sub Option3_Click()Private

56、 Sub Option3_Click() Picture5.Picture = Picture3.Picture Picture5.Picture = Picture3.PictureEnd SubEnd SubPrivate Sub Option4_Click()Private Sub Option4_Click() Picture5.Picture = Picture4.Picture Picture5.Picture = Picture4.PictureEnd SubEnd Sub47信息系信息系3.8 焦点与焦点与Tab顺序顺序3.8.1 设置焦点简单地说，焦点是接收用户鼠标或键盘输入

57、的能力。当一个简单地说，焦点是接收用户鼠标或键盘输入的能力。当一个对象具有焦点时，它可以接收用户的输入。在对象具有焦点时，它可以接收用户的输入。在Windows系统系统中，某个时刻可以运行多个应用程序，但只有具有焦点的应中，某个时刻可以运行多个应用程序，但只有具有焦点的应用程序才有活动标题栏，才能接收用户输入。类似地，在含用程序才有活动标题栏，才能接收用户输入。类似地，在含有多个文本框的窗体中，只有具有焦点的文本框才能接收用有多个文本框的窗体中，只有具有焦点的文本框才能接收用户的输入。户的输入。当对象得到焦点时，会产生当对象得到焦点时，会产生GotFocus事件；而当对象失去事件；而当对象失去

58、焦点时，将产生焦点时，将产生LostFocus事件。事件。LostFocus事件过程通常用事件过程通常用来对更新进行确认和有效性检查，也可用于修正或改变在来对更新进行确认和有效性检查，也可用于修正或改变在GotFocus 事件过程中设立的条件，窗体和多数控件支持这事件过程中设立的条件，窗体和多数控件支持这些事件。些事件。48信息系信息系3.8 焦点与焦点与Tab顺序顺序 3.8.1 设置焦点设置焦点用下面的方法可以设置一个对象的焦点：用下面的方法可以设置一个对象的焦点：（1）在运行时单击该对象。）在运行时单击该对象。（2）运行时用快捷键选择该对象。）运行时用快捷键选择该对象。（3）在程序代码中

59、使用）在程序代码中使用SetFocus方法。方法。 焦点只能移到可视的窗体或控件上，因此，只有当一个对象的焦点只能移到可视的窗体或控件上，因此，只有当一个对象的Enabled和和Visible属性均为属性均为True时，它才能接收焦点。时，它才能接收焦点。Enabled属属性允许对象响应由用户产生的事件，如键盘和鼠标事件，而性允许对象响应由用户产生的事件，如键盘和鼠标事件，而Visible属性决定了对象是否可见。属性决定了对象是否可见。对对于于大大多多数数可可以以接接收收焦焦点点的的控控件件来来说说，从从外外观观上上可可以以看看出出它它是是否否具具有有焦焦点点。例例如如，当当命命令令按按钮钮、

60、复复选选框框、单单选选按按钮钮等等控控件件具具有有焦焦点点时时，在在其其内内侧侧有有一一个个虚虚线线框框。而而当当文文本本框框具具有有焦焦点点时时，在在文文本本框框中中有有闪闪烁的插入光标烁的插入光标。49信息系信息系注意：注意：并不是所有对象都可以接收焦点，某些控件例如框架并不是所有对象都可以接收焦点，某些控件例如框架（Frame）、标签（）、标签（Label）、菜单（）、菜单（Menu）、直线）、直线（Line）、形状（）、形状（Shape）、图像框（）、图像框（Image）和计时器）和计时器（Timer）都不能接收焦点。对于窗体来说，只有当窗体上）都不能接收焦点。对于窗体来说，只有当窗体

61、上的任何控件都不能接收焦点时，该窗体才能接收焦点。的任何控件都不能接收焦点时，该窗体才能接收焦点。 50信息系信息系3.8 焦点与焦点与Tab顺序顺序 3.8.2 Tab顺序顺序 Tab顺序是在按顺序是在按Tab键时焦点在控件间移动的顺序。当窗体上有多个键时焦点在控件间移动的顺序。当窗体上有多个控件时，用鼠标单击某个控件，就可以把焦点移到该控件中（如果控件时，用鼠标单击某个控件，就可以把焦点移到该控件中（如果该控件有焦点）或者使该控件成为活动控件。除鼠标外，用该控件有焦点）或者使该控件成为活动控件。除鼠标外，用Tab键键也可以把焦点移到某个控件中。每按一次也可以把焦点移到某个控件中。每按一次T

62、ab键，可以使焦点从一键，可以使焦点从一个控件移到另一个控件。所谓个控件移到另一个控件。所谓Tab顺序，就是指焦点在各个控件之顺序，就是指焦点在各个控件之间移动的顺序。间移动的顺序。51信息系信息系在一般情况下，在一般情况下，Tab顺序由控件建立时的先后顺序确定顺序由控件建立时的先后顺序确定。 可以获得焦点的控件都有一种称为“TabStop”的属性，用它可以控制焦点的移动。该属性的默认值为True，如果把它设置为False，则在用Tab移动焦点时会跳过该控件。TabStop属性为False的控件，仍然保持它在实际的Tab顺序中的位置，只不过在按Tab键时这个控件被跳过。在设计阶段可以通过属性窗

63、口中的在设计阶段可以通过属性窗口中的TabIndex属性来改变属性来改变Tab顺序顺序。也可以在运行时改变Tab顺序。 52信息系信息系本章小结本章系统和深入地介绍了最基本的内部控件的用法，包括：本章系统和深入地介绍了最基本的内部控件的用法，包括：标签、文本框、图片框、图像框、直线和形状以及命令按钮标签、文本框、图片框、图像框、直线和形状以及命令按钮控件。利用控件。利用Visual Basic开发应用程序的过程，实际就是实开发应用程序的过程，实际就是实现与这些对象进行交互的过程。在程序运行过程中，当窗体现与这些对象进行交互的过程。在程序运行过程中，当窗体上具有多个控件时，必然涉及焦点及上具有多个控件时，必然涉及焦点及Tab顺序的转换，读者顺序的转换，读者应对此给于充分重视。应对此给于充分重视。53