常用控件与窗体

1、第9章 常用控件与窗体 第9章 常用控件与窗体 9.1 标签控件 9.2 命令按钮控件 9.3 文本框控件 9.4 单项选择钮和检查框 9.5 框架 9.6 滚动条 9.7 列表框 9.8 组合框 9.9 时钟 9.10 窗体 第9章 常用控件与窗体 9.1 标标 签签 控控 件件 标签的属性标签的属性 标签最常用的属性有Name、Caption、Height、Width、Top、Left、Enabled、Visible、FontName、 FontSize、 FontBold、 FontItalic、 FontUnderline、 Alignment、Autosize和BorderStyle

2、等。 标签接收的事件标签接收的事件 标签经常接收的事件有单击(Click)、双击(DblClick)和改变(Change)。第9章 常用控件与窗体 9.2 命令按钮控件命令按钮控件 在应用程序中，命令按钮的应用十分广泛。在程序执行期间，当用户选择某个命令按钮时就会执行相应的事件过程。在程序运行时，常用以下三种方法选中命令按钮：(1) 用鼠标单击。(2) 按Tab键将焦点移到相应按钮上，再按回车键。(3) 按快捷键(Alt有下划线的字母)。 第9章 常用控件与窗体 命令按钮的属性命令按钮的属性 1根本属性根本属性 命令按钮最常用的根本属性有命令按钮最常用的根本属性有Name、Height、Wid

3、th、Top、Left、Enabled、Visible、FontName、FontSize、BackColor和和Index等。等。 2Caption(标题标题)属性属性 在设置在设置Caption属性时，如果在某个字母前参加属性时，如果在某个字母前参加“&，那，那么程序运行时标题中的该字母带有下划线，该带有下划线的字么程序运行时标题中的该字母带有下划线，该带有下划线的字母就成为快捷键。当用户按下母就成为快捷键。当用户按下Alt快捷键时，便可激活并操作快捷键时，便可激活并操作该按钮。例如，在对某个按钮设置其该按钮。例如，在对某个按钮设置其Caption属性时键入属性时键入&OK，程序运行时就会

4、显示程序运行时就会显示OK，当用户按下，当用户按下AltO时便可激活并操时便可激活并操作作OK按钮。按钮。 第9章 常用控件与窗体 3Default(确认确认)属性属性 只有命令按钮支持Default属性。当Default属性值为True时，按Enter键相当于用鼠标器单击了该按钮。在一个窗体中只能有一个按钮的Default属性被设为True。当某按钮的Default属性值被设为True以后，该窗体中的所有其它按钮的Default属性全部被自动设为False。 4Cancel(取消功能取消功能)属性属性 当Cancel属性值为True时，按此按钮与按Esc键的效果相同。在一个窗体中只能有一个按

5、钮的Cancel属性可为True，其它按钮的Cancel属性自动变为False。 第9章 常用控件与窗体 9Value(检查按钮状态检查按钮状态)属性属性 该属性在设计阶段无效，只能在程序运行期间设置或引用，用于检查该按钮是否被按下。True表示该按钮被按下，False(缺省)表示按钮未被按下。在程序运行过程中，只要Value值为True，便引发按钮的Click事件转去执行相应的程序。第9章 常用控件与窗体 6Picture(图片图片)属性属性 要说明的是，在以前的版本中，有两种命令按钮控件：标准命令按钮(CommandButton)和三维命令按钮(SSCommand)。前者按钮上只能显示文字

6、；后者可以显示图形，可用于工具栏按钮的制作。在Visual Basic 9.0中，两者合一，并且可在Style属性中区分标准和图形。对图形的命令按钮增加了Picture属性，用以显示图片文件(.bmp和.ico)。Visual Basic中的图片文件存放在Visual Basic文件夹的Graphic子文件夹中。第9章 常用控件与窗体 7Style属性 该属性返回或设置一个值，该值用来指示控件的显示类型和行为。在运行时是只读的。 0standard(缺省)：标准的，按钮上不能显示图形。 1graphical：图形的，按钮上可以显示图形的样式，也能显示文字。 假设在Picture(图片)属性中选

7、择了图片文件，那么Style属性值必须为1，否那么无法显示图形。 第9章 常用控件与窗体 8ToolTipText(工具提示工具提示)属性属性 ToolTipText属性与Picture(图片)属性同时使用。如果仅用图像作为对象的标签，那么能够使用此属性以较少的文字解释每个对象。在以前的版本中，用户要设计具有工具栏提示功能的界面，需要编写一段程序来实现，现在通过该属性就可以轻而易举地实现了。 第9章 常用控件与窗体 命令按钮接收的事件命令按钮接收的事件命令按钮主要接收Click事件。 第9章 常用控件与窗体 9.3 文文 本本 框框 控控 件件 文本框的属性文本框的属性 1根本属性根本属性 N

8、ame、Height、Width、Top、Left、Enabled、Visible、FontName、FontSize、FontBold、FontItalic、FontUnderline和和Alignment等都是文本框的根本属性。文本框没有等都是文本框的根本属性。文本框没有Caption属属性。性。 2Text文本属性文本属性 在文本框中显示的正文内容存放在在文本框中显示的正文内容存放在Text属性中。当程序执属性中。当程序执行时，用户通过键盘输入正文内容，行时，用户通过键盘输入正文内容，Visual Basic自动将其保存自动将其保存在在Text属性中。属性中。 第9章 常用控件与窗体 3

9、MaxLength属性属性 MaxLength属性指明文本框中能够输入的正文内容的最大长度。 0值：任意长字符串。 非零值：文本框中字符个数的最大值。需注意的是，在Visual Basic中一个汉字的长度相当于一个西文字符。 4MultiLine(多行多行)属性属性 当MultiLine属性为True时，文本框可以输入或显示多行正文，同时具有文字处理器的自动换行功能，即输入的正文超出显示框时，会自动换行。按CtrlEnter可插入一空行。 第9章 常用控件与窗体 9ScrollBars(滚动条)属性 当MultiLine属性为True时，ScrollBars属性才有效。ScrollBars不同

10、的值表示不同的含义。0None：无滚动条；1Horizontal：加水平滚动条；2Vertical：加垂直滚动条;3Both：同时加水平和垂直滚动条。 当参加了水平滚动条以后，文本框内的自动换行功能会自动消失，只有按Enter键才能回车换行。 第9章 常用控件与窗体 6Locked属性属性 Locked属性指定文本控件是否可被编辑，默认值为False，表示可编辑。当设置为True时，文本控件相当于标签的作用。 第9章 常用控件与窗体 7SelStart、SelLength和SelText属性 在程序运行中，对文本内容进行选择操作时，这三个属性用来标识用户选中的正文。SelStart：选定的正文

11、的开始位置，第一个字符的位置是0;SelLength：选定的正文长度；SelText：选定的正文内容。 设置了SelStart和SelLength属性后，Visual Basic会自动将设定的正文送入SelText存放。这些属性一般用于在文本编辑中设置插入点及范围、选择字符串和去除文本等，并且经常与剪贴板一起使用，完成文本信息的剪切、复制及粘贴等功能。 第9章 常用控件与窗体 【例9-1】 文本框的应用例如：将第一个文本框的内容拷贝到第二个文本框中。 Private Sub Form_Click( )Text1.SelStart0Text1.SelLength=29Text2.Text=Tex

12、t1.SelTextEnd Sub程序运行结果如图9.1所示。 第9章 常用控件与窗体 图9.1 文本框例如运行结果 第9章 常用控件与窗体 文本框响应的事件文本框响应的事件 在文本框所能响应的事件中，Change、KeyPress和LostFocus是最重要的事件。 1Change事件事件 当用户输入新内容或当程序将Text属性设置为新值从而改变文本框的Text属性时会引发该事件。当用户键入一个字符时，就会引发一次Change事件。例如，用户键入Hello一词时，会引发9次Change事件。 第9章 常用控件与窗体 2KeyPress事件 当用户按下并且释放键盘上的一个键(ANSI格式)时，

13、就会引发焦点所在控件的KeyPress事件，此事件会返回一个KeyAscii参数到该事件过程中。例如，当用户键入字符“a时，返回KeyAscii的值为96，通过Chr(KeyAscii)可以将ASCII码转换为字符“a。同Chang事件一样，每输入一个字符就会引发一次该事件。事件中最常用的是对键入符是否为回车符(KeyAscii的值为13)的判断，假设是那么表示文本的输入结束。 第9章 常用控件与窗体 3LostFocus事件 此事件是在一个对象失去焦点时发生的。焦点的丧失是由于Tab移动或单击另一个对象操作所造成的结果。LostFocus事件过程主要是用来对数据更新进行验证和确认，常用于检查

14、Text属性的内容，比在Change事件过程中检查Text文本内容更为有效。 第9章 常用控件与窗体 文本框使用的方法文本框使用的方法 文本框最有用的方法是SetFocus，该方法是把光标移到指定的文本框中。当在窗体上建立了多个文本框后，可以用该方法把光标置于所需要的文本框上。其形式如下：对象.SetFocus SetFocus还可以用于如CheckBox、CommandButton和ListBox等控件。第9章 常用控件与窗体 9.4 单项选择钮和检查框单项选择钮和检查框 单项选择钮和检查框的属性单项选择钮和检查框的属性 1根本属性根本属性 单项选择钮和检查框最常用的根本属性有单项选择钮和检

15、查框最常用的根本属性有Name、Width、Height、Top、Left、ForeColor、BackColor、Enabled、Visible和和Index等。等。 2Caption属性属性 该属性设置单项选择钮或检查框的文本注释内容，即单项该属性设置单项选择钮或检查框的文本注释内容，即单项选择钮或检查框边上的文本标题。选择钮或检查框边上的文本标题。第9章 常用控件与窗体 3Alignment属性 0：控件钮在左边，标题显示在右边，缺省设置。1：控件钮在右边，标题显示在左边。 4Value属性 该属性表示单项选择钮或检查框的状态。 单项选择钮为True表示单项选择钮被选定，为False表示

16、单项选择钮未被选定，缺省设置。检查框有下面三种状态:0Unchecked：检查框未被选定，缺省设置;1Checked：检查框被选定;2Grayed：检查框变成灰色，禁止用户选择。 第9章 常用控件与窗体 9Style属性 Style属性是指定单项选择钮或检查框的显示方式，用于改善单项选择钮或检查框的视觉效果。 0Standard：标准方式; 1Graphical：图形方式。 当该属性设置为1(Standard)时，就可以在Picture、DownPicture和Disabled Picture中分别设置不同的图标或位图，用三种不同的图形分别表示未选定、选定和禁止选择。 第9章 常用控件与窗体

17、单项选择钮和检查框接收的事件单项选择钮和检查框接收的事件 单项选择钮和检查框都可以接收单项选择钮和检查框都可以接收Click事件，但一般不需要事件，但一般不需要编写编写Click事件过程。因为当用户单击单项选择钮或检查框时，事件过程。因为当用户单击单项选择钮或检查框时，它们自动改变状态。它们自动改变状态。 第9章 常用控件与窗体 9.9 框框 架架 框架的属性框架的属性 1根本属性根本属性 框架的根本属性有框架的根本属性有Name、Width、Height、Top、Left、BackColor、Font、ForeColor和和Index等。等。 第9章 常用控件与窗体 2Caption属性 由

18、Caption属性值设定框架上的标题名称。如果Caption为空字符，那么框架为封闭的矩形框，但是框架中的控件仍然与单纯用矩形框起来的控件不同。 框架内的所有控件将随框架一起移动、显示、消失和屏蔽。假设将框架的Enabled属性设为False，程序运行时该框架在窗体中的标题正文为灰色，表示框架内的所有对象均被屏蔽，不允许用户对其进行操作。假设将框架的Visible属性设为False，那么在程序执行期间，框架及其所有控件全部被隐藏起来，也就是说，对框架的操作也是对其内部的控件的操作。 第9章 常用控件与窗体 框架响应的事件框架响应的事件 框架可以响应框架可以响应Click和和DblClick事件

19、。但是，在应用程序事件。但是，在应用程序中一般不需要编写有关框架的事件过程。中一般不需要编写有关框架的事件过程。 【例【例9-2】 单项选择按钮、复选框和框架的应用例如。运单项选择按钮、复选框和框架的应用例如。运行结果如图行结果如图9.2所示。所示。 (1) 用户界面的设计以及属性设置，如图用户界面的设计以及属性设置，如图9.3所示。所示。 第9章 常用控件与窗体 图9.2 选择控件例如显示结果 第9章 常用控件与窗体 图9.3 选择控件例如界面 第9章 常用控件与窗体 (2) 事件驱动的响应程序。 是否加下划线Private Sub Check1_Click( ) If Check1.Val

20、ue = 1 Then Text1.FontUnderline = True Else Text1.FontUnderline = False End IfEnd Sub 是否斜体显示 Private Sub Check2_Click( ) If Check2.Value = 1 Then 第9章 常用控件与窗体 Text1.FontItalic = True Else Text1.FontItalic = False End If End Sub 单击Command按钮后Text文本框中的字体为黑体宋体，字号为1229 Private Sub Command1_Click( ) If Opt

21、ion1.Value Then Text1.FontName = 宋体 Else Text1.FontName = 黑体 End If 第9章 常用控件与窗体 If Option3.Value Then Text1.FontSize = 12 Else Text1.FontSize = 29 End If End Sub 终止程序 Private Sub Command2_Click( ) Unload Me End Sub 第9章 常用控件与窗体 9.6 滚滚 动动 条条 滚动条的属性滚动条的属性 1根本属性根本属性 滚动条的根本属性有滚动条的根本属性有Name、Height、Width、T

22、op、Left、Enabled和和Visible等。等。 2Max(最大值最大值)属性属性 该属性表示当滑块处于滚动条最大位置时所代表的值。该属性表示当滑块处于滚动条最大位置时所代表的值。 3Min(最小值最小值)属性属性 该属性表示当滑块处于滚动条最小位置时所代表的值。该属性表示当滑块处于滚动条最小位置时所代表的值。 第9章 常用控件与窗体 9SmallChange(最小变动值)属性 该属性表示用户单击滚动条两端箭头时，滑块移动的增量值。 9LargeChange(最大变动值)属性 该属性表示用户单击滚动条的空白处时，滑块移动的增量值。 6Value(值)属性 该属性表示滚动条内滑块所处位置

23、所代表的值-32 76832 767。 第9章 常用控件与窗体 滚动条响应的事件滚动条响应的事件 与滚动条有关的重要事件是Scroll和Change。当拖动滑块时会触发Scroll事件，而当改变Value属性时(滚动条内滑块位置改变)会触发Chang事件。 【例9-3】 编写使用滚动条计算利息的应用程序。当通过滚动条改变本金、月份或年利率时，能立即计算出利息及利息+本金。窗体上有9个文本框：本金、月份、年利率、利息和利息+本金，其名称分别为：vsbPrincipal、hsbMonth、hsbRate、txtInterest和txtTotal。各滚动条的属性按表9.1所示进行设置。 第9章 常用

24、控件与窗体 表表9.1 各滚动条的属性设置各滚动条的属性设置 对 象 Name Max Min SmallChange LargeChange Value 本金滚动条 vsbPrincipal 0 1000 10 100 0 月份滚动条 HsbMonth 120 0 1 12 0 年利率滚动条 HsbRate 1 15 1 2 1 第9章 常用控件与窗体 过程Calc的功能是根据本金、月份和年利率计算利息及本金+利息，它将被各滚动条的Change事件过程调用：Sub Calc( ) Dim sTotal As Single sTotalsbPrincipal.Value*(1+(hsbRate

25、.Value/100)*(hsbMonth.Value/12) txtTotal.Text=sTotal txtInterest.Text=sTotal-vsbPrincipal.ValueEnd Sub 第9章 常用控件与窗体 下面是各滚动条的事件过程：Sub vsbPrincipal_change( ) TxtPrincipal.TextvsbPrincipal.Value CalcEnd Sub Sub hsbMonth_Change( ) txtMonth.Text = hsbMonth.Value Calc End Sub Sub hsbRate_Change( )txtRate.T

26、ext = hsbRate.ValueCalcEnd Sub 第9章 常用控件与窗体 列表框和组合框列表框和组合框列表框和组合框都是通过列表的形式显示多个选项，供列表框和组合框都是通过列表的形式显示多个选项，供用户来选择。用户来选择。列表框列表框是一个为用户提供选择的列表，用户可从中单是一个为用户提供选择的列表，用户可从中单击选取自己所需的一个或多个选项。如果选项太击选取自己所需的一个或多个选项。如果选项太多，超出列表框设计的大小时，不能一次全部显多，超出列表框设计的大小时，不能一次全部显示，示，VBVB会自动加上垂直滚动条。会自动加上垂直滚动条。组合框组合框的功能与列表框相近，其主要特点是它

27、综合了的功能与列表框相近，其主要特点是它综合了列表框和文本框的特性。在程序运行时，用户既列表框和文本框的特性。在程序运行时，用户既可以在组合框中选择已有的选项，选中的内容自可以在组合框中选择已有的选项，选中的内容自动放入文本框中；又能够在文本框中直接输入所动放入文本框中；又能够在文本框中直接输入所需的内容。需的内容。第9章 常用控件与窗体 列表框控件列表框控件组合框控件组合框控件第9章 常用控件与窗体 列表框和组合框列表框和组合框列表框控件列表框控件列表框控件的属性列表框控件的属性ListList：设置列表框中列表项的内容。：设置列表框中列表项的内容。ListList属性值是一个一维数组，属性

28、值是一个一维数组，每个数组元素是列表框中的一个选项。每个数组元素是列表框中的一个选项。 其中：其中：该属性既可以在设计时通过属性窗口设置，又可在代码窗口中该属性既可以在设计时通过属性窗口设置，又可在代码窗口中设置；设置；属性窗口设置时，每添加一个列表项，按属性窗口设置时，每添加一个列表项，按Ctrl+EnterCtrl+Enter键可以换键可以换行继续添加下一个列表项，直接按行继续添加下一个列表项，直接按EnterEnter键表示添加结束；键表示添加结束；代码窗口设置时，采用如下格式：代码窗口设置时，采用如下格式： 例如：例如： List1.list(0)= List1.list(0)= 武汉

29、武汉 列表框的第一项列表框的第一项 List1.list(2)= List1.list(2)= 北京北京 列表框的第三项列表框的第三项对象名对象名.list(.list(下标下标) = ) = 字符串字符串注意：注意：ListList数组的第一个元素的下标是数组的第一个元素的下标是0 0，即，即List(0)List(0)为第一个元素，往后为第一个元素，往后依次为依次为List(1)List(1)、List(2)List(2)、List(3)List(3)，如果，如果ListList数组中有数组中有n n个元素，个元素，那么最后一个列表项对应的数组元素为那么最后一个列表项对应的数组元素为Lis

30、t(n-1)List(n-1)。第9章 常用控件与窗体 第9章 常用控件与窗体 列表框和组合框列表框和组合框列表框控件列表框控件列表框控件的属性列表框控件的属性ListCountListCount：表示当前列表框中选项的总数。：表示当前列表框中选项的总数。 注意：注意：任何列表框中的选项从任何列表框中的选项从0 0开始，到开始，到ListCount-1ListCount-1结束，结束，通常和通常和ListList属性一起使用，此属性只能在程序中引属性一起使用，此属性只能在程序中引用。用。第9章 常用控件与窗体 列表框和组合框列表框和组合框 如果选中列表框的第五个元素，那么ListIndex值为

31、多少？对象名对象名.Sorted=True | False.Sorted=True | False第9章 常用控件与窗体 列表框和组合框列表框控件列表框控件列表框控件的属性列表框控件的属性TextText：返回或设置最后选中的列表项的文本内容。只读：返回或设置最后选中的列表项的文本内容。只读属性，不能直接修改其值，用于获取选定列表项的属性，不能直接修改其值，用于获取选定列表项的内容。内容。MultiSelectMultiSelect：设置该列表框是否能选择多项。语法格：设置该列表框是否能选择多项。语法格式：式： 对象名对象名. MultiSelect =0 | 1 | 2. MultiSele

32、ct =0 | 1 | 2属性值属性值说说 明明0 (None)0 (None)单选，一次只能选择一个选项单选，一次只能选择一个选项1 (Simple)1 (Simple)简单多选，鼠标单击或按简单多选，鼠标单击或按SpaceSpace键选取或取消选项键选取或取消选项2(Extended)2(Extended)高级多选，用高级多选，用CtrlCtrl键与鼠标单击来选中或取消不连键与鼠标单击来选中或取消不连续的选项；用续的选项；用ShiftShift键与鼠标单击来选中或取消连键与鼠标单击来选中或取消连续的选项续的选项注意：注意：假设选择多项，那么假设选择多项，那么ListIndexListInd

33、ex和和TextText的属性的属性只表示最后一次所选择的选项值。只表示最后一次所选择的选项值。第9章 常用控件与窗体 列表框和组合框列表框和组合框列表框控件列表框控件列表框控件的属性列表框控件的属性SelCountSelCount：表示列表框中所选择的选项的数目。通：表示列表框中所选择的选项的数目。通常与常与SelectedSelected一起使用，以处理控件中所选的一起使用，以处理控件中所选的选项。选项。 注意：注意：注意：注意：SelCountSelCount属性使用的前提是属性使用的前提是MultiSelectMultiSelect属性属性设置为设置为1 1或或2 2。第9章 常用控件

34、与窗体 列表框和组合框列表框和组合框列表框控件列表框控件列表框控件的属性列表框控件的属性SelectedSelected：与：与ListList数组中的各个元素相对应的一个数组，数组中的各个元素相对应的一个数组，记录记录ListList数组中每个选项是否被选取。例如，如果数组中每个选项是否被选取。例如，如果List(1)List(1)被选取，那么被选取，那么Selected(1)Selected(1)的值为的值为TrueTrue，如，如果果List(1)List(1)未被选取，那么未被选取，那么Selected(1)Selected(1)的值为的值为FalseFalse。 如：如：list1.

35、selected(0)=truelist1.selected(0)=true表示选中第一项表示选中第一项第9章 常用控件与窗体 列表框和组合框列表框和组合框列表框控件列表框控件列表框控件的属性列表框控件的属性StyleStyle：设置列表框控件的外观。：设置列表框控件的外观。语法格式：语法格式： 属性值属性值说说 明明0 0( (标准样式标准样式) )不带复选框不带复选框1 1( (复选框样式复选框样式) )当复选框中出现当复选框中出现“”时表示选中该时表示选中该选项选项对象名对象名. Style =0 | 1. Style =0 | 1 第9章 常用控件与窗体 列表框和组合框列表框和组合框列

36、表框控件列表框控件列表框控件的事件列表框控件的事件ClickClick事件：在列表框获得焦点时用户单击某个选项，事件：在列表框获得焦点时用户单击某个选项，或按下方向键，或按下选项的第一个英文字母，会或按下方向键，或按下选项的第一个英文字母，会触发该事件。触发该事件。DblClickDblClick事件：双击某个选项会触发该事件。事件：双击某个选项会触发该事件。列表框控件的方法列表框控件的方法AddItemAddItem：向列表框中添加列表项。语法格式：向列表框中添加列表项。语法格式： 对象名对象名.AddItem .AddItem 选项字符串选项字符串 , ,索引值索引值 第9章 常用控件与窗

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

38、末尾。时，新选项将添加到现有列表项的末尾。第9章 常用控件与窗体 列表框和组合框列表框和组合框列表框控件列表框控件列表框控件的方法列表框控件的方法RemoveItemRemoveItem：从列表框中删除指定选项。语法格式：从列表框中删除指定选项。语法格式： 例如例如:list1. RemoveItem,0:list1. RemoveItem,0其中：其中：索引值用来指定要删除的选项在列表框中的位置，每次索引值用来指定要删除的选项在列表框中的位置，每次只能删除一个选项。只能删除一个选项。 ClearClear：去除列表框中的全部选项。语法格式：去除列表框中的全部选项。语法格式：对象名对象名. R

39、emoveItem . RemoveItem 索引值索引值对象名对象名.Clear.Clear第9章 常用控件与窗体 列表框和组合框列表框和组合框例子：设计一个窗体，要求：可以通过在列表框例子：设计一个窗体，要求：可以通过在列表框List1List1中选中选择，然后单击中间的命令按钮在列表框择，然后单击中间的命令按钮在列表框List2List2中执行相中执行相应的操作。应的操作。界面如下图界面如下图 ：第9章 常用控件与窗体 列表框和组合框列表框和组合框代码设计： Private Sub Form_Load()Private Sub Form_Load() List1.AddItem List

40、1.AddItem 苹果苹果 List1.AddItem List1.AddItem 香蕉香蕉 List1.AddItem List1.AddItem 芒果芒果 List1.AddItem List1.AddItem 西瓜西瓜 List1.AddItem List1.AddItem 哈密瓜哈密瓜 List1.AddItem List1.AddItem 葡萄葡萄 List1.AddItem List1.AddItem 椰子椰子 List1.AddItem List1.AddItem 榴莲榴莲 List1.AddItem List1.AddItem 菠萝菠萝 List1.AddItem List1

41、.AddItem 蟠桃蟠桃 End SubEnd SubPrivate Sub Command1_Click()Private Sub Command1_Click()End SubEnd SubPrivate Sub Command2_Click()Private Sub Command2_Click() End SubEnd SubPrivate Sub Command3_Click()Private Sub Command3_Click() End SubEnd SubPrivate Sub Command4_Click()Private Sub Command4_Click() End

42、 SubEnd SubList2.AddItem List1.TextList2.RemoveItem List2.ListIndexList2.ClearEnd第9章 常用控件与窗体 列表框和组合框列表框和组合框组合框组合框组合框组合框(ComboBox)(ComboBox)是由文本框是由文本框(TextBox)(TextBox)与列表框与列表框(listBox) “(listBox) “组合而成的控件。用户可以通过组合而成的控件。用户可以通过在文本框输入新文本内容或在列表框中单击列表在文本框输入新文本内容或在列表框中单击列表选项选择已有内容。选项选择已有内容。组合框的形式有三种：下拉组合框

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

44、表，简单组合框，包括一个文本框和一个无法下拉的列表，可以输入文本或选择列表项。可以输入文本或选择列表项。2 2下拉式列表框，包括一个下拉式列表和一个文本框，但下拉式列表框，包括一个下拉式列表和一个文本框，但只能选择列表项，不能在文本框中输入只能选择列表项，不能在文本框中输入第9章 常用控件与窗体 第9章 常用控件与窗体 列表框和组合框列表框和组合框组合框组合框组合框控件的事件组合框控件的事件ChangeChange：当组合框内容改变时发生。：当组合框内容改变时发生。ClickClick：当用户在一个组合框上单击鼠标按钮时发生。：当用户在一个组合框上单击鼠标按钮时发生。组合框控件的方法组合框控件

45、的方法AddItemAddItem：用来向组合框中添加选项。：用来向组合框中添加选项。RemoveItemRemoveItem：从组合框中删除一个选项。：从组合框中删除一个选项。ClearClear：去除组合框的所有内容。：去除组合框的所有内容。第9章 常用控件与窗体 列表框和组合框列表框和组合框例子：单击中间的命令按钮在文本框中显示选择的内容，如例子：单击中间的命令按钮在文本框中显示选择的内容，如果需要的城市组合框中没有列出，可以通过组合框来进果需要的城市组合框中没有列出，可以通过组合框来进行添加行添加界面如下图界面如下图 ：第9章 常用控件与窗体 列表框和组合框列表框和组合框代码设计： P

46、rivate Sub Form_Load()Private Sub Form_Load() Combo1.AddItem Combo1.AddItem 武汉武汉 Combo1.AddItem Combo1.AddItem 北京北京 Combo1.AddItem Combo1.AddItem 西安西安 Combo1.AddItem Combo1.AddItem 重庆重庆 Combo1.AddItem Combo1.AddItem 长沙长沙 Combo1.AddItem Combo1.AddItem 海南海南 Combo1.AddItem Combo1.AddItem 天津天津 Combo1.Ad

47、dItem Combo1.AddItem 南京南京 Combo1.AddItem Combo1.AddItem 杭州杭州 End SubEnd SubPrivate Sub Combo1_Change()Private Sub Combo1_Change() End SubEnd SubPrivate Sub Combo1_Click()Private Sub Combo1_Click() End SubEnd SubCombo1.AddItem Combo1.TextText1.Text = Combo1.Text第9章 常用控件与窗体 【例】 通过列表框控件设计选项移动的窗体。列表框运行结

48、果如图9.9所示。 (1) 界面设计如图9.9所示。 图9.9 列表框例如显示结果 第9章 常用控件与窗体 图9.9 列表框例如界面设计 第9章 常用控件与窗体 (2) 响应事件的程序如下：初始化列表框Private Sub Form_Load()List1.AddItem 语文List1.AddItem 数学List1.AddItem 英语List1.AddItem 物理List1.AddItem 化学List1.AddItem 计算机End Sub 第9章 常用控件与窗体 控件按钮实现转换Private Sub Command1_Click(Index As Integer)Select

49、Case IndexCase 0 按钮的实现i = 0Do While i 的实现For i = 0 To List1.ListCount - 1List2.AddItem List1.List(i)NextList1.ClearCase 2 按钮的实现.Case 3 按钮的实现.End Select End Sub 第9章 常用控件与窗体 【例】 利用组合框设计一个“简易抽奖机。(1) 进行界面设计以及对象属性设置。(2) 编写如下事件代码： 组合框的事件响应Private Sub Combo1_KeyPress(KeyAscii As Integer) If KeyAscii = 13 T

50、hen 表示按下的是回车键 Combo1.AddItem Combo1.Text, 0 向组合框输入号码 Combo1.SelStart = 0 Combo1.SelLength = Len(Combo1.Text) End If If KeyAscii = 27 Then 表示按下的是Esc键 If Combo1.ListIndex -1 Then 第9章 常用控件与窗体 Combo1.RemoveItem Combo1.ListIndex 移去选项 End If End IfEnd Sub 按钮开始抽奖的代码实现Private Sub Command1_Click( ) Randomize

51、 n = Combo1.ListCount a = Int(Rnd * n) 利用随机函数求随机序号 Combo1.ListIndex = a MsgBox 中奖的号码是： & Chr(13) & Combo1.Text, 0, 恭喜End Sub 第9章 常用控件与窗体 (3) ComboBox例如界面及运行结果分别如图9.6和图9.7所示。 图9.6 ComboBox例如界面 第9章 常用控件与窗体 图9.7 ComboBox例如运行结果 第9章 常用控件与窗体 计时器计时器 计时器是一个非常有用的控件，主要有两个功能：计时器是一个非常有用的控件，主要有两个功能：用于在程序中监视和控制时间

52、进程，即每隔一段固定的时用于在程序中监视和控制时间进程，即每隔一段固定的时间就有规律地执行一次相同的任务。如定时检测系统间就有规律地执行一次相同的任务。如定时检测系统或控件的状态、控制控件的移动、设置时钟、倒计时、或控件的状态、控制控件的移动、设置时钟、倒计时、秒表等；秒表等；进行某种后台处理。进行某种后台处理。因为计时器控件在设计时可见，运行时隐藏，所以它在界因为计时器控件在设计时可见，运行时隐藏，所以它在界面上的位置和大小无关紧要。但在后台每隔一定的时面上的位置和大小无关紧要。但在后台每隔一定的时间，系统就会自动触发一次计时器事件。间，系统就会自动触发一次计时器事件。第9章 常用控件与窗体

53、 计时器计时器对象名对象名.Enabled=True | False对象名对象名. Interval=数值数值第9章 常用控件与窗体 计时器计时器计时器的事件计时器的事件计时器只有计时器只有TimerTimer事件。事件。TimerTimer事件具有周期性，在每事件具有周期性，在每隔隔IntervalInterval指定的时间间隔，就执行一次指定的时间间隔，就执行一次TimerTimer事件事件过程。在实际运用中，经常用过程。在实际运用中，经常用TimerTimer事件来实现有规事件来实现有规律的重复操作和简单的动画。律的重复操作和简单的动画。注意：注意： 计时器事件发生越频繁，响应事件所使用

54、的处理器计时器事件发生越频繁，响应事件所使用的处理器事件就越多，这将降低系统综合性能。因此，除非有必事件就越多，这将降低系统综合性能。因此，除非有必要否那么不要设置过小的时间间隔。要否那么不要设置过小的时间间隔。第9章 常用控件与窗体 计时器计时器设计一个窗体，运行窗体后，图片会不停地闪动。设计一个窗体，运行窗体后，图片会不停地闪动。界面设计界面设计 ：对象属性属性值TimerNameTimer1EnabledTrueTimer1100PictureBoxNamePicture1Picture1D:a003.bmp属性设计属性设计 ：Private Sub Timer1_Timer()Priv

55、ate Sub Timer1_Timer() End SubEnd Sub Picture1.Visible = Not (Picture1.Visible)第9章 常用控件与窗体 计时器计时器运行窗体后，文本框运行窗体后，文本框“谁知盘中餐，粒粒皆辛苦。从右谁知盘中餐，粒粒皆辛苦。从右向左移动，每当文本框全部移出左边界时要求从右边向左移动，每当文本框全部移出左边界时要求从右边界再次循环运行。界再次循环运行。界面设计界面设计 ：属性设计属性设计 ：对象对象属性属性属性值属性值LabelLabelNameNameLabel1Label1CaptionCaption从右向左循环滚动从右向左循环滚动

56、TimerTimerNameNameTimer1Timer1EnabledEnabledTrueTrueTimer1Timer1100100TextBoxTextBoxNameNameText1Text1TextText谁知盘中餐，谁知盘中餐，粒粒皆辛苦粒粒皆辛苦BackColorBackColor&H80000004&H80000004&MultiLineMultiLineTrueTrue第9章 常用控件与窗体 计时器计时器Private Sub Timer1_Timer()Private Sub Timer1_Timer() If Text1.Left + Text1.Width = 0

57、Then If Text1.Left + Text1.Width = 0 Then Text1.Left = Form1.WidthText1.Left = Form1.Width Text1.Left = Text1.Left - 100 Text1.Left = Text1.Left - 100End SubEnd Sub第9章 常用控件与窗体 时钟响应的事件时钟响应的事件 时钟控件只有一个Timer事件。 【例9-6】 用一个时钟控件控制蝴蝶在窗体内飞舞。程序运行结果如图9.8所示。在窗体上定义一个时钟、一个命令按钮和三个图像控件。窗体与其上的控件的属性如表9.2所示。程序界面如图9.9

58、所示。 第9章 常用控件与窗体 表表9.2 窗体界面控件属性设置窗体界面控件属性设置对象名 属 性 设 置 Form Name frmMain CommandButton Name Caption CmdEnd 退出 Timer Name Interval TmrClock 100 Image Name Picture ImgMain C:bfly1.bmp Image Name Picture OpenWings C:bfly1.bmp Image Name Picture CloseWings C:bfly2.bmp 第9章 常用控件与窗体 图9.8 运行结果显示 第9章 常用控件与窗体

59、图9.9 程序界面设计 第9章 常用控件与窗体 各事件的代码如下：Private Sub Form_Load( ) CmdEnd.Move 10, 10 移动CmdEnd按钮到指定位置 imgMain.Move 1000, 1000End Sub TmrClockTimer( )事件使时钟控件每100 ms交替显示不同的图形Private Sub tmrClock_Timer( )Static PickBmp As Boolean 定义图像交替控制指针ImgMain.Move ImgMain.Left + 20, ImgMain.Top-9 If PickBmp ThenImgMain.Pic

60、ture = OpenWings.Picture 显示蝴蝶图像1ElseImgMain.Picture = CloseWings.Picture 显示蝴蝶图像2End If 第9章 常用控件与窗体 PickBmp = Not PickBmp 图像交替控制指针End Sub 命令按钮Cmd End结束程序Private Sub CmdEnd_Click( ) EndEnd Sub 第9章 常用控件与窗体 图形控件图形控件VBVB中的图形控件分为中的图形控件分为、直线控件和形状控件。图形控件的使用能直线控件和形状控件。图形控件的使用能美化界面和增美化界面和增加界面的趣味性加界面的趣味性。一、图片框