《VB程序设计第2版第9章.ppt》由会员分享，可在线阅读，更多相关《VB程序设计第2版第9章.ppt（69页珍藏版）》请在taowenge.com淘文阁网|工程机械CAD图纸|机械工程制图|CAD装配图下载|SolidWorks_CaTia_CAD_UG_PROE_设计图分享下载上搜索。
1、第第九九章章 V Vi is su ua al l B Ba as si ic c常常用用控控件件第第9 9章章常用内部控件常用内部控件本章要点本章要点:控件的公共属性控件的公共属性鼠标和键盘事件鼠标和键盘事件常用内部控件常用内部控件 动画控件和多媒体控件动画控件和多媒体控件1第第九九章章 V Vi is su ua al l B Ba as si ic c常常用用控控件件9.1 控件的公共属性控件的公共属性1.Name属性属性 Name属性用于标识窗体、控件、或数据访问对属性用于标识窗体、控件、或数据访问对象的名称。在属性窗口的属性名为象的名称。在属性窗口的属性名为“(名称名称)”注意：注意
2、：1)Name属性运行时是只读的属性运行时是只读的2)新建立的控件有其缺省名称，如新建立的控件有其缺省名称，如Text1、Text23)以字母开始以字母开始,最长最长40个字符，可包括字母、数个字符，可包括字母、数字和下划线，不能包括标点符号或空格字和下划线，不能包括标点符号或空格(允许允许汉字汉字)4)控件数组的名称控件数组的名称:Name(Index)例如：例如：Text1(0)、Text1(1)Command1(0)、Command1(1)2第第九九章章 V Vi is su ua al l B Ba as si ic c常常用用控控件件2.Caption属性属性 Caption属性用于
3、设置或返回对象的标题或在对属性用于设置或返回对象的标题或在对象上显示的文字。象上显示的文字。注意：注意：1)当创建一个新的对象时，其缺省当创建一个新的对象时，其缺省Caption属性值属性值与其缺省的与其缺省的Name属性值相同。属性值相同。2)使用使用&符号可以为某些控件创建访问键，如果符号可以为某些控件创建访问键，如果需要在标题中加入一个需要在标题中加入一个“&”符号而不是创建访符号而不是创建访问键，需在标题中加入连续的两个问键，需在标题中加入连续的两个“&”符号。符号。3)Label控件标题大小没有限制。其他有标题的控控件标题大小没有限制。其他有标题的控件，标题大小限制为件，标题大小限制
4、为255个字符。个字符。3)注意与注意与Name属性、属性、Text属性的区别。属性的区别。3第第九九章章 V Vi is su ua al l B Ba as si ic c常常用用控控件件3.Enabled属性属性 决定控件是否能够对用户产生的事件作出响应。决定控件是否能够对用户产生的事件作出响应。4.Visible属性属性 用来确定一个窗体或控件是否可见。用来确定一个窗体或控件是否可见。注意注意:如果在属性窗口中将控件的如果在属性窗口中将控件的Visible属性设属性设置为置为False，则控件在设计窗体上仍是可见的，仅在则控件在设计窗体上仍是可见的，仅在运行时才不可见。运行时才不可见。
5、5.Left、Top、Height、Width属性属性HeightLeftTopWidth对于窗体，这些属性对于窗体，这些属性总是以缇为单位表示；总是以缇为单位表示；对于控件，它们的度对于控件，它们的度量单位取决于其容器量单位取决于其容器的坐标系统。的坐标系统。4第第九九章章 V Vi is su ua al l B Ba as si ic c常常用用控控件件6.BackColor、ForeColor属性属性 BackColor属性用来设置或返回控件的背景颜色。属性用来设置或返回控件的背景颜色。ForeColor属性用来设置或返回在控件里显示的图属性用来设置或返回在控件里显示的图形或文本的颜色
6、（前景颜色）。形或文本的颜色（前景颜色）。注意：注意：1)在在Label和和Shape控件中，如果控件中，如果BackStyle属性属性的设置值为的设置值为0(透明透明)，则忽略，则忽略BackColor属性。属性。2)如果在如果在Form对象或对象或PictureBox控件中设置控件中设置BackColor属性，则所有已经打印的文本或用属性，则所有已经打印的文本或用绘图方法绘制的图形都将被擦除掉。绘图方法绘制的图形都将被擦除掉。3)设置设置ForeColor属性值不会影响已经打印的文属性值不会影响已经打印的文本或绘制的图形。本或绘制的图形。5第第九九章章 V Vi is su ua al l
7、 B Ba as si ic c常常用用控控件件7.FontName、FontSize、FontBold、FontItalic、FontStrikethru、FontUnderline属性属性 分别对应于：分别对应于：字体、字号、粗体、斜体、删除线、下划线字体、字号、粗体、斜体、删除线、下划线8.Font对象属性对象属性在设计时在属性窗口需要进一步打开对话框进行在设计时在属性窗口需要进一步打开对话框进行设置。设置。在代码中的使用格式在代码中的使用格式:.Font.:Name、Size、Bold、Italic、Underline、Strikethrough 例例:Form1.Font.Size=
8、14 Command1.Font.Italic=True 【例例9-1】自学】自学 P170 例例9-16第第九九章章 V Vi is su ua al l B Ba as si ic c常常用用控控件件9MousePointer、MouseIcon属性属性MousePointer属性：返回或设置一个值，指示在属性：返回或设置一个值，指示在运行时当鼠标移动到对象上时要显示的鼠标指针运行时当鼠标移动到对象上时要显示的鼠标指针的类型。的类型。015：使用系统定义的鼠标指针类型：使用系统定义的鼠标指针类型 99:使用自定义的鼠标指针类型使用自定义的鼠标指针类型，鼠标指针为通鼠标指针为通过过Mouse
9、Icon属性所指定的图标。属性所指定的图标。MouseIcon属性：设置在运行时当鼠标移动到对属性：设置在运行时当鼠标移动到对象上时要显示的图标，在象上时要显示的图标，在MousePointer属性设置属性设置为为99时使用。时使用。7第第九九章章 V Vi is su ua al l B Ba as si ic c常常用用控控件件9.2 鼠标和键盘事件鼠标和键盘事件 Visual Basic应用程序可以响应多种鼠标与键应用程序可以响应多种鼠标与键盘事件。例如，鼠标事件有盘事件。例如，鼠标事件有单击、双击、按下、单击、双击、按下、抬起、移动、拖动抬起、移动、拖动等，键盘事件有等，键盘事件有按键
10、的按下、按键的按下、抬起抬起等。利用这些事件可以编写响应各种事件的等。利用这些事件可以编写响应各种事件的应用程序。应用程序。8第第九九章章 V Vi is su ua al l B Ba as si ic c常常用用控控件件9.2.1 鼠标事件鼠标事件1.MouseDown、MouseUp事件事件 MouseDown事件：在按下鼠标按钮时发生；事件：在按下鼠标按钮时发生；MouseUp事件：在释放鼠标按钮时发生。事件：在释放鼠标按钮时发生。例如，某按钮的例如，某按钮的MouseDown事件过程如下：事件过程如下：Private Sub Command1_MouseDown(Button As
11、Integer,Shift As Integer,X As Single,Y As Single)End SubButton：根据所按下或抬起的是鼠标的左按钮、：根据所按下或抬起的是鼠标的左按钮、右按钮还是中间按钮返回一个整数。见右按钮还是中间按钮返回一个整数。见P171Shift：根据在按下或释放鼠标按钮时是否同时按根据在按下或释放鼠标按钮时是否同时按下下Shift、Ctrl或或Alt键返回一个整数。见键返回一个整数。见P172X、Y：返回鼠标指针在对象上的当前位置。默返回鼠标指针在对象上的当前位置。默认单位为缇。认单位为缇。9第第九九章章 V Vi is su ua al l B Ba a
12、s si ic c常常用用控控件件2MouseMove事件事件 当鼠标指针在对象上移动时发生该事件。当鼠标指针在对象上移动时发生该事件。例如，窗体的例如，窗体的MouseMove事件过程如下：事件过程如下：Private Sub Form_MouseMove(Button As Integer,Shift As Integer,X As Single,Y As Single)End Sub （Button、Shift、X和和Y参数的作用同前）参数的作用同前）注意：当鼠标指针在对象上移动时，并不是经过每注意：当鼠标指针在对象上移动时，并不是经过每个像素都会产生个像素都会产生MouseMove事件
13、，而是按每秒一事件，而是按每秒一定的次数生成定的次数生成MouseMove事件。由于应用程序能事件。由于应用程序能在短时间内识别大量的在短时间内识别大量的MouseMove事件，因此，事件，因此，不应在不应在MouseMove事件过程中编写需要大量计算事件过程中编写需要大量计算时间的程序。时间的程序。10第第九九章章 V Vi is su ua al l B Ba as si ic c常常用用控控件件【例【例9-29-2】在窗体上移动鼠标时，将当前的鼠标位】在窗体上移动鼠标时，将当前的鼠标位置显示在文本框中。如下图：置显示在文本框中。如下图：窗体的窗体的MouseMove事件过程如下：事件过程
14、如下：Private Sub Form_MouseMove(Button As Integer,Shift As Integer,X As Single,Y As Single)Text1.Text=X:Text2.Text=YEnd SubText1Text211第第九九章章 V Vi is su ua al l B Ba as si ic c常常用用控控件件9.2.2 键盘事件键盘事件1KeyPress事件事件 当用户按下并释放键盘上一个会产生当用户按下并释放键盘上一个会产生ASCII码的码的按键时产生按键时产生KeyPress事件。如按下数字键、字母键、事件。如按下数字键、字母键、Tab
15、、Enter、BackSpace、Esc等都会产生等都会产生KeyPress事件。事件。例如，某文本框例如，某文本框Text1的的KeyPress事件过程如下：事件过程如下：Private Sub Text1_KeyPress(KeyAscii As Integer)End SubKeyAscii参数参数：与按键对应的与按键对应的ASCII码值。码值。12第第九九章章 V Vi is su ua al l B Ba as si ic c常常用用控控件件注意：注意：对于同一个字母的按键，其大、小写形式返回对于同一个字母的按键，其大、小写形式返回不同的不同的KeyAscii值。值。只有当对象具有焦
16、点时才可以接收只有当对象具有焦点时才可以接收KeyPress事事件。件。一个窗体仅在它没有可视和有效的控件或一个窗体仅在它没有可视和有效的控件或KeyPreview属性被设置为属性被设置为True时才能接收该事时才能接收该事件。件。使用文本框的使用文本框的KeyPress事件可以及时对输入的事件可以及时对输入的内容进行检查，以保证输入内容的有效性。内容进行检查，以保证输入内容的有效性。13第第九九章章 V Vi is su ua al l B Ba as si ic c常常用用控控件件【例例9-3】对从文本框对从文本框Text1输入的成绩进行有效性输入的成绩进行有效性验证，如果输入的字符不是阿
17、拉伯数字，则响铃，验证，如果输入的字符不是阿拉伯数字，则响铃，并消除该字符。并消除该字符。分析：分析：可以在可以在Text1的的KeyPress事件过程中对参数事件过程中对参数KeyAscii的值进行判断。已知的值进行判断。已知09的的ASCII码为码为4857，所以当，所以当KeyAscii的值不在的值不在4857的范围内时，的范围内时，需要响铃（用需要响铃（用Beep语句），并消除该字符（将语句），并消除该字符（将KeyAscii设置为设置为0）。）。代码如下：代码如下：Private Sub Text1_KeyPress(KeyAscii As Integer)If KeyAscii 5
18、7 Then Beep 响铃响铃 KeyAscii=0 消除该字符消除该字符 End IfEnd Sub14第第九九章章 V Vi is su ua al l B Ba as si ic c常常用用控控件件2KeyDown、KeyUp事件事件KeyDown事件事件:在对象有焦点时按下按键时发生；在对象有焦点时按下按键时发生；KeyUp事件事件:在对象具有焦点时松开按键时发生。在对象具有焦点时松开按键时发生。例如，某文本框例如，某文本框Text1的的KeyDown事件过程如下：事件过程如下：Private Sub Text1_KeyDown(KeyCode As Integer,Shift As
19、 Integer)End SubKeyCode:返回所操作键的代码。在键盘上只要返回所操作键的代码。在键盘上只要按的是同一个键，则返回的按的是同一个键，则返回的KeyCode值相同。例值相同。例如，对于同一个字母按键，不管是大写还是小如，对于同一个字母按键，不管是大写还是小写形式，所返回的写形式，所返回的KeyCode值是相同的。值是相同的。VB为为KeyCode值定义了符号常量，如值定义了符号常量，如vbKeyF1(F1键键)或或 vbKeyHome(Home键键)。Shift:根据在按键时是否按下根据在按键时是否按下Shift、Ctrl或或Alt键键返回一个整数。见返回一个整数。见P171
20、表表9-2。15第第九九章章 V Vi is su ua al l B Ba as si ic c常常用用控控件件【例【例9-3】在窗体上用】在窗体上用Shape控件画一个圆形，用控件画一个圆形，用键盘上的键盘上的“”、“”、“”、“”方向键移动该图方向键移动该图形。形。分析：分析：键盘上的方向键键盘上的方向键“”、“”、“”、“”的的KeyCode值分别为值分别为37、38、39、40，也，也可以分别用可以分别用vbKeyLeft、vbKeyUp、vbKeyRight、vbKeyDown符号常量来代替。在窗体的符号常量来代替。在窗体的KeyDown事件过程中根据所返回的事件过程中根据所返回的
21、KeyCode值实现对图形值实现对图形的移动。的移动。Shape116第第九九章章 V Vi is su ua al l B Ba as si ic c常常用用控控件件代码如下：代码如下：Private Sub Form_KeyDown(KeyCode As Integer,Shift As Integer)Select Case KeyCode Case vbKeyUp Shape1.Top=Shape1.Top-100 Case vbKeyDown Shape1.Top=Shape1.Top+100 Case vbKeyLeft Shape1.Left=Shape1.Left-100 Ca
22、se vbKeyRight Shape1.Left=Shape1.Left+100 End SelectEnd Sub17第第九九章章 V Vi is su ua al l B Ba as si ic c常常用用控控件件9.3 常用内部控件常用内部控件框架（框架（FrameFrame）图片框（图片框（PictureBoxPictureBox）图像框（图像框（ImageImage）选项按钮（选项按钮（OptionButtonOptionButton）复选框（复选框（CheckBoxCheckBox）列表框（列表框（ListBoxListBox）组合框（组合框（ComboboxCombobox)定
23、时器定时器(Timer)Timer)滚动条滚动条(ScrollBarScrollBar)18第第九九章章 V Vi is su ua al l B Ba as si ic c常常用用控控件件9.3.1 框架框架(Frame)1.作用作用:作为容器，对控件进行分组；修饰界面。作为容器，对控件进行分组；修饰界面。2.如何将控件放在容器中如何将控件放在容器中选中容器，在容器中直接画选中容器，在容器中直接画选中容器，粘贴控件选中容器，粘贴控件3.如何检查控件是否在容器中如何检查控件是否在容器中拖动容器，控件随容器移动；拖动容器，控件随容器移动；拖动控件只能在容器中移动拖动控件只能在容器中移动4.选中框
24、架中的多个控件选中框架中的多个控件:Ctrl+拖动；拖动；Shift+单击单击5.删除容器时删除容器时，其中的控件随之被删除，其中的控件随之被删除6.框架的常用属性框架的常用属性Caption:Font:Enabled:设置为设置为False时框架中的控件无效。时框架中的控件无效。19第第九九章章 V Vi is su ua al l B Ba as si ic c常常用用控控件件9.3.2 图片框图片框(PictureBox)1.作用作用 作为控件的容器；显示文字或图形。作为控件的容器；显示文字或图形。显示图像显示图像:设置设置PicturePicture属性属性在属性窗口中设置在属性窗口中
25、设置对象名对象名.Picture=Picture=LoadPictureLoadPicture(图形文件名图形文件名)在属性窗口中删除在属性窗口中删除PicturePicture属性内容属性内容对象名对象名.Picture=LoadPicture()(Picture=LoadPicture()(也清除文字也清除文字)打印打印:对象名对象名.Print Print 清除清除:对象名对象名.ClsCls5.特点特点：自动调整控件大小以适应图像：自动调整控件大小以适应图像:AutoSize AutoSize=True=True 不能延伸图形以适应控件的大小。不能延伸图形以适应控件的大小。20第第九九
26、章章 V Vi is su ua al l B Ba as si ic c常常用用控控件件9.3.3 图像框图像框(Image)1.作用作用:显示图像显示图像2.如何显示图像如何显示图像:设置设置Picture属性属性在属性窗口中设置在属性窗口中设置对象名对象名.Picture=LoadPicture(图形文件名图形文件名)3.如何清除图像如何清除图像在属性窗口中删除在属性窗口中删除Picture属性内容属性内容对象名对象名.Picture=LoadPicture()4.特点特点 可以自动调整控件大小以适应图像可以自动调整控件大小以适应图像:设设 Stretch=False 可以延伸图形以适应
27、控件的大小可以延伸图形以适应控件的大小:设设 Stretch=True21第第九九章章 V Vi is su ua al l B Ba as si ic c常常用用控控件件9.3.4 选项按钮选项按钮(OptionButton)1.作用作用:多选一多选一(放在窗体上、或放在其他容器中放在窗体上、或放在其他容器中)2.属性属性1)Value True选中选中 False未选中未选中2)Alignment属性属性:决定文本的对齐方式决定文本的对齐方式 0:文本左对齐文本左对齐 1:文本右对齐文本右对齐3)Style控制外观控制外观 0:呈现为旁边带有文本的圆形按钮。呈现为旁边带有文本的圆形按钮。1
28、:显示为方形按钮，有按下和抬起两种状态。显示为方形按钮，有按下和抬起两种状态。3.事件事件 Click事件事件使选项按钮使选项按钮从未选择变成选择状态从未选择变成选择状态时时 (单击鼠标改变、代码改变单击鼠标改变、代码改变)22第第九九章章 V Vi is su ua al l B Ba as si ic c常常用用控控件件【例【例9-5】设计如下图所示的界面，用选项按钮设置】设计如下图所示的界面，用选项按钮设置文本框的文字颜色和背景颜色。文本框的文字颜色和背景颜色。Option1Option2Value为为True的两种显示方式的两种显示方式Style为为1Style为为0Option3Op
29、tion4Option5Option6Text123第第九九章章 V Vi is su ua al l B Ba as si ic c常常用用控控件件Private Sub Option1_Click()Text1.ForeColor=vbBlackEnd SubPrivate Sub Option2_Click()Text1.ForeColor=vbYellowEnd SubPrivate Sub Option3_Click()Text1.ForeColor=vbRedEnd SubPrivate Sub Option4_Click()Text1.BackColor=vbWhiteEnd S
30、ubPrivate Sub Option5_Click()Text1.BackColor=vbGreenEnd SubPrivate Sub Option6_Click()Text1.BackColor=vbBlueEnd Sub24第第九九章章 V Vi is su ua al l B Ba as si ic c常常用用控控件件9.3.5 复选框复选框(CheckBox)1.作用作用 多选一或多选多多选一或多选多(放在窗体上或其他容器中放在窗体上或其他容器中)2.属性属性 1)Value 0未选中未选中 1选中选中 2灰度状态灰度状态(常用于表示不确定或常用于表示不确定或部分选中部分选中)2
31、)Alignment属性属性:决定文本的对齐方式决定文本的对齐方式 3)Style:控制外观控制外观 0:呈现为旁边带有小方框的默认状态。呈现为旁边带有小方框的默认状态。1:显示为方形按钮，有按下和抬起两种状态。显示为方形按钮，有按下和抬起两种状态。3.事件事件 Click事件事件25第第九九章章 V Vi is su ua al l B Ba as si ic c常常用用控控件件【例【例9-6】设计界面如下图所示，用复选框设置文本】设计界面如下图所示，用复选框设置文本框的文字样式与效果。框的文字样式与效果。Check1 Check2 Check3Check426第第九九章章 V Vi is
32、su ua al l B Ba as si ic c常常用用控控件件Private Sub Check1_Click()End SubPrivate Sub Check2_Click()End SubPrivate Sub Check3_Click()End SubPrivate Sub Check4_Click()End Sub27第第九九章章 V Vi is su ua al l B Ba as si ic c常常用用控控件件9.3.6 列表框列表框(ListBox)1.作用作用:提供选项列表、内容多时自动出现滚动条提供选项列表、内容多时自动出现滚动条2.属性属性1)List列表内容。列表
33、内容。设计时设计时:用用Ctrl+换行换行;运行时运行时:List(i)表示第表示第i项项2)Style外形外形(常规形式、复选框形式常规形式、复选框形式)3)Columns列表形式列表形式 0:垂直单列、垂直单列、1:水平单列、水平单列、1:水平多列水平多列4)Text只读、运行期用，获取当前选择项目的值只读、运行期用，获取当前选择项目的值5)ListIndex运行期用，当前选定项目的索引运行期用，当前选定项目的索引(0)如果未选定项目，则如果未选定项目，则 ListIndex 值为值为-16)ListCount列表部分项目的总个数列表部分项目的总个数7)Sorted元素是否自动按字母顺序排
34、序元素是否自动按字母顺序排序8)Selected运行期用，用于选择某项运行期用，用于选择某项 如如List1.Selected(3)=True 选择第选择第4项项28第第九九章章 V Vi is su ua al l B Ba as si ic c常常用用控控件件8)MultiSelect:0缺省值，不允许复选。缺省值，不允许复选。1鼠标单击、按空格键在列表中选择或取消选择鼠标单击、按空格键在列表中选择或取消选择 2 按下按下 Shift并单击鼠标或按下并单击鼠标或按下 Shift 以及一个箭以及一个箭头键将在以前选中项的基础上扩展选择到当前选头键将在以前选中项的基础上扩展选择到当前选中项。按
35、下中项。按下 Ctrl 并单击鼠标在列表中选中或取消并单击鼠标在列表中选中或取消选中项。选中项。3.方法方法1)AddItem向列表框中添加新的项目向列表框中添加新的项目 .AddItem ,2)RemoveItem从列表框中移除项目从列表框中移除项目 .RemoveItem 3)Clear清除所有列表的清除所有列表的 .Clear29第第九九章章 V Vi is su ua al l B Ba as si ic c常常用用控控件件【例【例9-7】设计如下图所示的界面，左列表框列出了设计如下图所示的界面，左列表框列出了某数据表格的各列某数据表格的各列(字段字段)名称。名称。将左列表框中选择的列
36、移动到右列表框中将左列表框中选择的列移动到右列表框中将右列表框中选择的将右列表框中选择的列列移动到左列表框中移动到左列表框中将左列表框中的所有将左列表框中的所有列列移动到右列表框中移动到右列表框中将右列表框中的所有将右列表框中的所有列列移动到左列表框中移动到左列表框中List1List230第第九九章章 V Vi is su ua al l B Ba as si ic c常常用用控控件件1)将左列表框中选择的列移动到右列表框中将左列表框中选择的列移动到右列表框中 Private Sub Command1_Click()If List1.ListCount=0 Then MsgBox 列表中已没
37、有可选的列列表中已没有可选的列,注意注意 Exit Sub End If If List1.ListIndex=0 Then Else MsgBox 请先在列表中选择某列请先在列表中选择某列,注意注意 End IfEnd Sub31第第九九章章 V Vi is su ua al l B Ba as si ic c常常用用控控件件2)将右列表框中选择的列移动到左列表框中。将右列表框中选择的列移动到左列表框中。Private Sub Command2_Click()If List2.ListCount=0 Then MsgBox 列表中已没有可选的列列表中已没有可选的列,注意注意 Exit Sub
38、 End If If List2.ListIndex=0 Then Else MsgBox 请先在列表中选择某列请先在列表中选择某列,注意注意 End IfEnd Sub32第第九九章章 V Vi is su ua al l B Ba as si ic c常常用用控控件件3)将左侧列表框中的所有列移动到右侧列表框中将左侧列表框中的所有列移动到右侧列表框中 Private Sub Command3_Click()For i=0 To List1.ListCount 1 List1.Selected(0)=True List1.RemoveItem 0 Next i End Sub4)将右侧列表框
39、中的所有列移动到左侧列表框中将右侧列表框中的所有列移动到左侧列表框中 Private Sub Command4_Click()For i=0 To List2.ListCount-1 List2.Selected(0)=True List2.RemoveItem 0 Next i End Sub33第第九九章章 V Vi is su ua al l B Ba as si ic c常常用用控控件件9.3.7 组合框组合框(ComboBox)1.作用作用:提供列表提供列表(可折叠可折叠)、文本输入、文本输入2.属性属性1)List列表内容列表内容(Ctrl+Enter换行换行)2)Style外形外
40、形 0下拉组合框下拉组合框(折叠折叠)1简单组合框简单组合框(不折叠不折叠)2下拉列表框下拉列表框(不能修改不能修改Text属性属性)3)Text文本框内容文本框内容4)ListIndex运行期用，当前选定项目的索引运行期用，当前选定项目的索引 索引从索引从0开始开始5)ListCount列表部分项目的总个数列表部分项目的总个数6)Sorted元素是否自动按顺序排序元素是否自动按顺序排序34第第九九章章 V Vi is su ua al l B Ba as si ic c常常用用控控件件3.事件事件 组合框的事件与组合框的事件与Style属性有关。属性有关。Style为为0时时:响应响应Cli
41、ck、Change、DropDown事件事件 Style为为1时时:响应响应Click、DblClick、Change事件事件 Style为为2时时:响应响应Click、DropDown事件事件4.方法方法1)AddItem:向组合框中添加新的项目向组合框中添加新的项目 .AddItem ,2)RemoveItem:从组合框中移除项目从组合框中移除项目 .RemoveItem 3)Clear:清除组合框中的所有项目清除组合框中的所有项目 .Clear 35第第九九章章 V Vi is su ua al l B Ba as si ic c常常用用控控件件【例例9-8】在窗体上放在窗体上放4个组合
42、框，用于选择微机配个组合框，用于选择微机配置，包括选择品牌、置，包括选择品牌、CPU、硬盘、内存。运行时，、硬盘、内存。运行时，在选择了各项内容之后，单击在选择了各项内容之后，单击“确定确定”按钮显示按钮显示所选择的机器配置。所选择的机器配置。Style=1 Style=2 Style=2 Style=0 36第第九九章章 V Vi is su ua al l B Ba as si ic c常常用用控控件件设置各组合框控件的属性如设置各组合框控件的属性如下表：下表：控件控件属性属性Combo1（品牌）（品牌）Combo2（CPU）Combo3（硬盘）（硬盘）Combo4（内存）（内存）List
43、同方同方联想联想方正方正HPAcerIBMDELLAMD Athlon64 X2 3800+AM2Intel 奔腾奔腾D 820 2.8GHzIntel 奔腾奔腾D 915AMD Athlon64 X2 3600+AM2AMD Athlon64 3000+AM2Intel 奔腾奔腾4 630 3.0GHzAMD Athlon64 3200+AM2Intel 奔腾奔腾4 631 3.0GHz40GB80GB120GB160GB200GB250GB128MB256MB512MB1GB2GBStyle122037第第九九章章 V Vi is su ua al l B Ba as si ic c常常用
44、用控控件件Private Sub Form_Load()Combo1.Text=Combo1.List(0)Combo2.Text=Combo2.List(0)Combo3.Text=Combo3.List(0)Combo4.Text=Combo4.List(0)End SubPrivate Sub Command1_Click()Picture1.Print 您选择的配置是您选择的配置是:Picture1.Print 品牌品牌 Picture1.Print 硬盘硬盘 Picture1.Print 内存内存End Sub38第第九九章章 V Vi is su ua al l B Ba as s
45、i ic c常常用用控控件件9.3.8 定时器定时器(Timer)1.作用作用:周期性地执行某功能、运行时不可见。周期性地执行某功能、运行时不可见。2.属性属性1)Enabled:将将Enabled设置为设置为False时将停止定时时将停止定时器的计时操作。器的计时操作。2)Interval:计时事件执行的时间间隔计时事件执行的时间间隔(毫秒毫秒)。3.事件事件 Timer事件事件:每当计时时间到时产生每当计时时间到时产生Timer事件事件注注:一个计时器的最大计时时间为一个计时器的最大计时时间为65535毫秒毫秒,等于等于 1 分钟多一些。如果最大计时时间大于该值，分钟多一些。如果最大计时时
46、间大于该值，可以使用多个计时器。可以使用多个计时器。39第第九九章章 V Vi is su ua al l B Ba as si ic c常常用用控控件件【例【例9-9】在窗体上放置一个红色圆。】在窗体上放置一个红色圆。单击单击“增大增大”按钮每隔按钮每隔1秒直径自动增大秒直径自动增大200Twips；单击单击“缩小缩小”按钮每隔按钮每隔1秒直径自动缩小秒直径自动缩小200Twips；单击单击“停止停止”按钮停止增大或缩小。按钮停止增大或缩小。Timer1属性属性:EnabledFalse Interval1000Cmd1Cmd2Cmd3Timer1Shape140第第九九章章 V Vi is
47、 su ua al l B Ba as si ic c常常用用控控件件Dim Flag As IntegerPrivate Sub Cmd1_Click()Timer1.Enabled=True Flag=1End SubPrivate Sub Cmd2_Click()Timer1.Enabled=True Flag=0End SubPrivate Sub Cmd3_Click()Timer1.Enabled=False End Sub41第第九九章章 V Vi is su ua al l B Ba as si ic c常常用用控控件件Private Sub Timer1_Timer()If
48、Flag=0 Then If Shape1.Width200 Or Shape1.Height200 Then MsgBox 不能再缩小不能再缩小,注意注意 Timer1.Enabled=False Exit Sub 结束本事件过程结束本事件过程 End If Shape1.Width=Shape1.Width-200 Shape1.Height=Shape1.Height-200 Else Shape1.Width=Shape1.Width+200 Shape1.Height=Shape1.Height+200 End IfEnd Sub42第第九九章章 V Vi is su ua al l
49、 B Ba as si ic c常常用用控控件件9.3.9 滚动条滚动条(HScrollBar、VScrollBar)1.作用作用2.滚动条结构滚动条结构滚动箭头滚动箭头滚动块滚动块滚动箭头滚动箭头3.属性属性 1)Value:滚动条当前位置值滚动条当前位置值,介于介于Min,Max之间之间2)Max:滚动条的滚动条的 Value 属性最大值属性最大值3)Min:滚动条的滚动条的 Value 属性最小值属性最小值4)LargeChange:单击滚动块和滚动箭头之间的区单击滚动块和滚动箭头之间的区域时，滚动条域时，滚动条 Value 值的改变量。值的改变量。5)SmallChange:单击滚动箭
50、头时，滚动条的单击滚动箭头时，滚动条的Value 值的改变量。值的改变量。4.事件事件 Change(单击时、单击时、Value改变时改变时);Scroll(拖动时拖动时)43第第九九章章 V Vi is su ua al l B Ba as si ic c常常用用控控件件【例【例9-10】设计一水平滚动条，表示范围为】设计一水平滚动条，表示范围为1100，要求，要求:1)单击某按钮生成单击某按钮生成1，100之间的随机整数，在滚之间的随机整数，在滚动条上反映此随机数，同时在标签上显示该值。动条上反映此随机数，同时在标签上显示该值。2)滚动条滚动时，标签内容能够及时反映滚动条的滚动条滚动时，标