《VisualBasic界面设计(下).ppt》由会员分享，可在线阅读，更多相关《VisualBasic界面设计(下).ppt（104页珍藏版）》请在三一办公上搜索。
1、江南大学信息工程学院计算机基础部,2008-01-20,第3章 Visual Basic界面设计（下）,制作者：钱瑛,本章的学习重点和难点,键盘鼠标事件和拖放菜单设计常用ActiveX控件介绍图形和多媒体制作合理选用对象和窗体布局,键盘与鼠标事件过程,键盘事件过程对于接受文本输入的控件，如：文本框、简单组合框和下拉组合框等，需要控制和处理输入的文本，常常需要对键盘事件进行编程KeyPress、KeyDown和KeyUp键盘事件只用于能够聚焦的对象，如窗体、文本框、命令按钮、选项按钮、复选框、组合框、列表框、图片框、滚动条等控件对于窗体，仅当它上面没有可视和有效的控件或KeyPreview属性被
2、设置为True时才能接收键盘事件,键盘与鼠标事件过程,键盘事件过程KeyPress事件当用户按下和松开一个能产生Ascii码的键时发生KeyPress事件。严格地说，当按下某个能产生Ascii码的键时，所触发的是当前得到焦点的那个对象的KeyPress事件Private Sub 对象名_KeyPress(KeyAscii As Integer)End Sub参数KeyAscii就是该过程接受到的按键的Ascii码按下大写字母“B”，KeyAscii的值为66按下小写字母“b”，KeyAscii的值为98,键盘与鼠标事件过程,键盘事件过程KeyPress事件在键盘上的按键并非都能产生Ascii码
3、，如：方向键、功能键F1F12、Shift、Ctrl、Alt键就不产生Ascii码，不会引发KeyPress事件，而数字、大小写字母等可打印的键盘字符、Enter、BackSpace、Esc、Tab等都可以KeyPress事件过程在截取TextBox或ComboBox控件所输入的击键时是非常有用的，它可立即测试击键的有效性或在字符输入时对其进行格式处理改变keyascii参数的值会改变所显示的字符*例题15、*例题16,*例题15,编写程序，实现对于用户在文本框中输入的字母，不管大小写，始终以大写显示在文本框中分析：小写字母按键的Ascii值的范围97，122小写转换成大写字符小写字母与大写字
4、母的Ascii差值为32输入时立即转换编写文本框的KeyPress事件过程,Private Sub Text1_KeyPress(KeyAscii As Integer)If KeyAscii=97 And KeyAscii=122 Then 判断是否是小写字母 KeyAscii=KeyAscii 32 小写转换成大写 End IfEnd Sub,*例题16,在默认情况下，控件的键盘事件优先于窗体的键盘事件，因此在发生键盘事件时，总是激活目前得到焦点的控件的键盘事件；若窗体的KeyPreview属性被设置为True(默认为False)，则不管目前谁得到焦点，总是先触发窗体键盘事件，后触发焦点控
5、件的键盘事件，否则不会触发窗体的键盘事件注意程序中当窗体的KeyPreview属性被设置为True或默认值False，键盘事件的不同触发次序设窗体的KeyPreview属性被设置默认值False，程序运行时，通过命令按钮切换为True，在窗体和文本框的KeyPress事件过程中编写了输出标志信息,例3-1,Private Sub Text1_KeyPress(KeyAscii As Integer)Dim x As Integer If KeyAscii=13 Then If Len(Text1.Text)=1 And Text1.Text=a And _ Text1.Text Asc(z)T
6、hen Text2.Text=Chr(x+1)Else Text2.Text=Chr(x+1-26)Else Text2.Text=数据非法!End If End IfEnd Sub,键盘与鼠标事件过程,键盘事件过程KeyUp和KeyDown事件过程和KeyPress事件不同，KeyUp和KeyDown事件返回的是键盘的直接状态，即KeyUp和KeyDown事件返回的是“键”，而KeyPress事件返回的是“字符”的Ascii码。当用户按下键盘上的任意一个键时，就会触发焦点对象的KeyDown事件，当释放按键，就会触发KeyUp事件,键盘与鼠标事件过程,键盘事件过程KeyDown事件过程Pri
7、vate Sub 对象名_KeyDown(keycode As Integer,_shift As Integer)End SubKeyUp事件过程Private Sub 对象名_KeyUp(keycode As Integer,_shift As Integer)End Sub,键盘与鼠标事件过程,键盘事件过程KeyUp和KeyDown事件过程KeyCode参数是用户按下的那个键的扫描码(键盘上的每一个按键都一个扫描码，且各自不同)，该码以“键”为准，它不同于KeyPress事件中的KeyAscii参数(以“字符”为准)大小写字母“A”和“a”用的是同一个键，所以它们的扫描码相同，即KeyC
8、ode相同，而Ascii码不同(“A”是65、“a”是97)，即KeyAscii不同往往只能通过KeyCode参数了解用户按下键盘上的哪个键(不是字符),键盘与鼠标事件过程,键盘事件过程KeyUp和KeyDown事件过程Shift参数是Shift、Ctrl和Alt三个转换键目前按下的状态信息；取值是一个是位域，它用最少的位响应SHIFT键(位0)、CTRL键(位1)和ALT键(位2)。这些位分别对应于值1、2和4,键盘与鼠标事件过程,键盘事件过程KeyUp和KeyDown事件过程的应用扩展的字符键如功能键等定位键键盘修饰键和按键的组合区别数字小键盘和常规数字键*例题17,下列情况不会触发Key
9、Down和KeyUp事件窗体有一个CommandButton控件，并且Default属性设置为True时的Enter键窗体有一个CommandButton控件，并且Cancel属性设置为True时的Esc键Tab键*例题18,*例题17,编写程序，利用KeyDown和KeyUp事件显示按下键和释放键情况 分析：根据KeyCode返回对应的字符Chr函数,Private Sub Text1_KeyDown(KeyCode As Integer,Shift As Integer)Print 按下;Chr(KeyCode);KeyCodeEnd SubPrivate Sub Text1_KeyUp(
10、KeyCode As Integer,Shift As Integer)Print 释放;Chr(KeyCode);KeyCodeEnd Sub,Private Sub form_KeyDown(KeyCode As Integer,Shift As Integer)If Shift=1 Then Print 按下Shift键;KeyCode If Shift=2 Then Print 按下Ctrl键;KeyCode If Shift=3 Then Print 按下Ctrl+Shift键;KeyCode If Shift=4 Then Print 按下Alt键;KeyCode If Shift
11、=5 Then Print 按下Alt+Shift键;KeyCode If Shift=6 Then Print 按下Alt+Ctrl键;KeyCode If Shift=7 Then Print 按下Alt+Ctrl+Shift键;KeyCodeEnd SubPrivate Sub form_KeyUp(KeyCode As Integer,Shift As Integer)Print 释放;KeyCodeEnd Sub,*例题18,编写程序，利用KeyDown和KeyUp事件显示按下和释放转换键情况,例3-2 编程判断窗体上按下的键是否为大写字母键,Private Sub Form_Key
12、Down(KeyCode As Integer,_Shift As Integer)If KeyCode=Asc(A)And KeyCode=Asc(Z)Then If Shift=1 Then Print 你按下的是大写字母&Chr(KeyCode)End If End IfEnd Sub,键盘与鼠标事件过程,鼠标器事件过程鼠标的单击和双击事件鼠标事件：鼠标的按下、移动和释放事件，即MouseDown、MouseMove和MouseUp事件适用于以下对象，包括窗体、文本框、命令按钮、选项按钮、复选框、列表框、图片框、标签、框架等鼠标事件被用来识别和响应各种鼠标状态，并把这些状态看作独立的事件
13、；在按下鼠标按钮并释放时，Click事件只能把此过程识别为一个单一的操作单击操作鼠标事件不同于Click事件和DblClick事件之处还在于，鼠标事件能够区分各鼠标按钮与Shift、Alt、Ctrl键,键盘与鼠标事件过程,鼠标器事件过程MouseDown事件过程Private Sub对象名_MouseDown(Button As Integer,Shift As Integer,X As Single,Y As Single)End SubMouseUp事件过程：Private Sub对象名_MouseUp(Button As Integer,Shift As Integer,X As Sin
14、gle,Y As Single)End Sub,键盘与鼠标事件过程,鼠标器事件过程MouseMove事件过程：Private Sub 对象名_MouseMove(Button As Integer,Shift As Integer,X As Single,Y As Single)End SubShift、X、Y参数的含义同键盘事件Button参数值指示此时按下或释放了哪个鼠标键，该参数是一个整数,键盘与鼠标事件过程,鼠标器事件过程对于MouseMove事件来说，button参数指示的是所有鼠标按键当前的状态；一个MouseMove事件可指示某些、全部或没有一个按钮被按下MouseDown和Mo
15、useUp事件来说，button参数在每个事件精确地指示一个按键，即不能检查两个或三个键同时被按下或松开的情况，因此取值只能是下表中的前三种,键盘与鼠标事件过程,鼠标器事件过程MouseDown是三种鼠标事件中最常使用的事件。例如，在运行时可用它调整控件在窗体上的位置，也可用它实现某些图形效果。按下鼠标按钮时就可触发此事件。MouseMove事件伴随鼠标指针在对象间移动时连续不断地产生。除非有另一个对象捕获了鼠标，否则，当鼠标位置在对象的边界范围内时该对象就能接收MouseMove事件*例题19*例题20*例题21,*例题19,利用上述鼠标事件，在窗体上绘制图形，要求：按下鼠标开始绘制，并根据
16、鼠标移动的位置进行绘制，释放鼠标停止绘制 分析：,Dim drawstate As Boolean 设置绘制状态标志Form_Load:DrawWidth=10 设置绘制笔刷的宽度 ForeColor=RGB(0,0,255)设置绘制的颜色Form_MouseDown:drawstate=True 表示开始下笔绘制Form_MouseMove:If drawstate Then PSet(X,Y)根据目前鼠标移动的位置绘制点 End IfForm_MouseUp:drawstate=False 表示停笔,*例题3-20,结合Move方法使用鼠标的MouseDown事件，实现根据鼠标按下的位置控
17、制“云朵”在背景图片上的任意飘移分析：,Dim mx As Single,my As Single,dx As Single,dy As SinglePrivate Sub Form_Load()Timer1.Interval=10End SubPrivate Sub picture1_MouseDown(Button As Integer,Shift As Integer,X As Single,Y As Single)mx=(X-Image1.Left)/100 计算云朵每次微移量 my=(Y-Image1.Top)/100 dx=X:dy=Y 记录下目标位置 Timer1.Enabled
18、=TrueEnd SubPrivate Sub Timer1_Timer()Image1.Move Image1.Left+mx,Image1.Top+my If Abs(Image1.Left-dx)1 Or Abs(Image1.Top-dy)1 Then Timer1.Enabled=False End IfEnd Sub,*例题21,利用上述鼠标的事件，并根据按下鼠标的左右键的不同，实现对命令按钮的鼠标操作时鼠标指针形状的改变分析：,Private Sub Command1_MouseDown(Button As Integer,Shift As Integer,X As Single
19、,Y As Single)If Button=1 Then Command1.MousePointer=11 ElseIf Button=2 Then Command1.MousePointer=13 End IfEnd SubPrivate Sub Command1_MouseMove(Button As Integer,Shift As Integer,X As Single,Y As Single)Command1.MousePointer=14End SubPrivate Sub Command1_MouseUp(Button As Integer,Shift As Integer,X
20、 As Single,Y As Single)Command1.MousePointer=0End Sub,例3-3 利用鼠标事件编写一个画矩形的程序,Dim lx As Single,ly As Single,flag As Boolean 模块级变量（lx,ly）存放矩形左上角坐标，flag用来标识绘制状态Private Sub Form_MouseDown(Button As Integer,_ Shift As Integer,X As Single,Y As Single)lx=X:ly=Y:MousePointer=99 MouseIcon=LoadPicture(App.Path
21、+CROSS03.CUR)flag=TrueEnd Sub,例3-3 利用鼠标事件编写一个画矩形的程序,Private Sub Form_MouseMove(Button As Integer,Shift As Integer,_X As Single,Y As Single)If flag=True Then Cls:DrawStyle=2 Line(lx,ly)-(X,Y),B End IfEnd SubPrivate Sub Form_MouseUp(Button As Integer,Shift As Integer,_X As Single,Y As Single)Cls:DrawS
22、tyle=0 Line(lx,ly)-(X,Y),B MousePointer=0 flag=FalseEnd Sub,拖放,鼠标将一个对象从某个位置拖曳到另一个位置在拖放的过程中，总是首先将鼠标指向待移动的对象(称为源对象)，然后按下鼠标键不松开，移动鼠标，源对象将随鼠标的移动而在其背景对象上被拖动(Drag)，当被拖到目标位置(称为目标对象)，则松开鼠标，放下(Drop)该对象根据拖放情况的描述，经常利用源对象的鼠标按下事件，启动源对象的拖放模式，而利用目标对象的拖放(DragDrop)事件实现源对象的移动，当然，还会触发在拖动过程中经过的对象和目标对象的拖动(DragOver)事件,拖放
23、,与拖放有关的属性、事件和方法除了菜单、计时器和通用对话框外，其他对象均可以在程序运行期间被拖放属性DragMode：设置源对象的拖放模式。属性值为1，为自动拖动方式，控件不能正常响应鼠标事件。默认属性值为0，表示启用手动拖动方式，这时必须在MouseDown事件过程中，用Drag方法启动“拖动”，确定拖放操作开始；常常在MouseUp事件过程中，用Drag方法关闭“拖动”，确定拖放操作结束DropIcon属性：用于设置在拖动时，代表对象移动的图标,拖放,与拖放有关的属性、事件和方法方法Drag：用于人工启动或停止一个拖动过程对象名.Drag 整数 整数取值为0、1、2分别表示取消、开始或结束
24、拖放操作。若此参数省略，则表示开始拖放操作,拖放,与拖放有关的属性、事件和方法事件DragOver：拖放操作正在进行时发生。可使用此事件对鼠标指针在一个有效目标上的进入、离开或停顿等进行监控。鼠标指针的位置决定接收此事件的目标对象Private Sub 对象名_DragOver(index As Integer,source As Control,x As Single,y As Single,state As Integer)End Sub其中：source参数表示被拖动的对象；state参数取值为0、1、2分别表示鼠标光标进入、退出或正位于目标对象的区域内,拖放,与拖放有关的属性、事件和方
25、法事件DragDrop：在一个完整的拖放动作(将一个控件拖动到目标对象上并释放鼠标按钮)完成，或使用Drag方法，并将其action参数被设置为2时，该事件发生 Private Sub 对象名_DragDrop(index As Integer,source As Control,x As Single,y As Single)End Sub一般利用DragDrop事件过程用来控制在一个拖动操作完成时将会发生的情况。例如，可将源控件移到一个新的位置或将一个文件从一个位置复制到另一个位置,拖放,应用举例*例题*例题,*例题,自动拖放：利用图片框控件的鼠标拖放操作，模拟邮件投递分析：,Privat
26、e Sub Form_Load()Picture2.Picture=LoadPicture(App.Path+MAIL16A.ico)图片框2加载图片模拟空邮筒 Picture1.Picture=LoadPicture(App.Path+MAIL03.ico)图片框1加载图片模拟邮件 Picture1.DragMode=1 设置图片框1的拖动模式为自动End SubPrivate Sub Picture2_DragDrop(Source As Control,X As Single,Y As Single)图片框2重新加载图片，模拟邮件投递到邮筒成功 Picture2.Picture=Load
27、Picture(App.Path+MAIL16B.ico)End Sub,例题3-23,手动拖放：利用图片框控件的鼠标拖放操作，模拟垃圾文件处理分析：使用DragMode属性和Drag方法来指定开始拖动的方法。一旦开始拖动，可使用DragOver事件过程来处理位于DragDrop事件前面的事，比如设置拖动图标DropIcon,Form_Load:Picture1.Picture=LoadPicture(App.Path+FOLDER04.ICO)图片框1加载图模拟文件夹 Picture2.Picture=LoadPicture(App.Path+WASTE.ICO)图片框2加载图模拟空垃圾箱
28、Picture1.DragMode=0 设置图片框1的拖动模式为手动Picture1_MouseDown:Picture1.Drag 1 鼠标按下，手工启动拖放 Picture1.DragIcon=LoadPicture(App.Path+DRAG1PG.ICO)设置拖动图标模拟废纸Form_DragOver:Picture1.DragIcon=LoadPicture(App.Path+DRAG1PG.ICO)设置拖动图标Picture2_DragOver:改变拖动图标模拟手扔了废纸Picture1.DragIcon=LoadPicture(App.Path+DROP1PG.ICO)Pictu
29、re2_DragDrop:图片框2重新加载图片，模拟废纸投送垃圾箱成功Picture2.Picture=LoadPicture(App.Path+RECYFULL.ICO)Picture2_MouseUp:Picture1.Drag 2 鼠标释放，结束拖放,例3-4 编程实现自动拖放,Private Sub Form_Load()Picture1.Picture=LoadPicture(App.Path+MOON02.ico)Picture2.Picture=LoadPicture(App.Path+MOON04.ico)Picture1.DragIcon=LoadPicture(App.Pa
30、th+MOON03.ico)End Sub Private Sub Picture2_DragDrop(Source As Control,X As Single,_Y As Single)Picture1.Picture=LoadPicture(App.Path+MOON04.ico)Picture2.Picture=LoadPicture(App.Path+MOON02.ico)End Sub,DragMode属性为默认值“0-Manual”,例3-5 编程实现手动拖放,DragMode属性为默认值“1-Automatic”,例3-5 编程实现手动拖放,Dim flag1 As Boole
31、an,flag2 As Boolean两个标志变量分别用来标识两个图像框是否被拖动Private Sub Form_Load()Image1.Picture=LoadPicture(App.Path+flagFLGUSA02.ico)Image2.Picture=LoadPicture(App.Path+flagFLGUK.ico)End Sub Private Sub Image1_MouseDown(Button As Integer,Shift As Integer,_X As Single,Y As Single)flag1=True flag2=False Image1.Drag 1
32、 Image1.DragIcon=LoadPicture(App.Path+FlagFLGUSA02.ICO)End Sub Private Sub Image1_MouseUp(Button As Integer,Shift As Integer,_X As Single,Y As Single)flag1=False imageq.Drag 2手动拖放结束End Sub,例3-5 编程实现手动拖放,Private Sub Form_DragDrop(Source As Control,X As Single,Y As Single)If flag1=True Then若拖动的是第1个图像框
33、 Image1.Move X,Y If X=Shape2.Left And X=Shape2.Top And Y=Shape2.Left And X=Shape2.Top And Y=Shape2.Top+_ Shape2.Height Then MsgBox 选错了！End If End IfEnd Sub,例3-5 编程实现手动拖放,Private Sub Image2_MouseDown(Button As Integer,Shift As Integer,_ X As Single,Y As Single)flag2=True flag1=False Image2.Drag 1 Ima
34、ge2.DragIcon=LoadPicture(App.Path+FlagFLGUK.ICO)End SubPrivate Sub Image2_MouseUp(Button As Integer,Shift As Integer,_X As Single,Y As Single)flag2=False Image2.Drag 2End Sub,菜 单 设 计,菜单编辑器简介,菜单的各要素及名称,创建菜单,创建菜单的具体步骤:（1）构思好所建菜单的组成结构，打开“菜单编辑器”对话框。（2）输入每一项的标题、名称。确定是否要加访问键或快捷键，是否要进行其他选项的设定。然后单击“下一个”命令按钮
35、，进行下一项的设置。（3）对菜单控件的级别和位置进行整体调整。,例3-6,Private Sub MnuSquare_Click()Private Sub MnuCross_Click()Shape1.Shape=1 正方形Shape1.FillStyle=6 正网格线End Sub End SubPrivate Sub MnuCircle_Click()Private Sub MnuDCross_Click()Shape1.Shape=3 圆Shape1.FillStyle=7 斜网格线End Sub End Sub,弹出式菜单,弹出式菜单的创建方式和下拉式菜单相同，也是通过“菜单编辑器”对
36、话框进行，只不过，在设置时应将菜单标题的“可见”复选框取消。运行时，在代码编辑器中要调用对象的PopupMenu方法来显示弹出式菜单。PopupMenu方法的一般格式对象名.PopupMenu 菜单名,flag,x,y,boldcommand,例3-7,程序代码在原有的基础上再加一个窗体的MouseDown事件过程：Private Sub Form_MouseDown(Button As Integer,_Shift As Integer,X As Single,Y As Single)If Button=2 Then Me.PopupMenu MnuChangeEnd Sub,动态菜单,1菜
37、单项的有效和无效通过Enabled属性的设置来改变菜单项有效性状态2菜单项的显示和隐藏修改Visible属性动态地显示和隐藏菜单项,动态菜单,例3-8 Private Sub MnuSquare_Click()Private Sub MnuCircle_Click()Shape1.Shape=1Shape1.Shape=3 MnuFill.Enabled=FalseMnuFill.Enabled=TrueEnd Sub End Sub,例3-9 Private Sub MnuSquare_Click()Private Sub MnuCircle_Click()Shape1.Shape=1Sha
38、pe1.Shape=3 MnuFill.Visible=FalseMnuFill.Visible=TrueEnd SubEnd Sub,MDI应用程序中的菜单,菜单既可以建立在MDI窗体上，也可以建立在子窗体上，或者两边都建立。子窗体上的菜单不显示在子窗体上，而显示在MDI窗体上。若其中一个带菜单的子窗体成为当前活动窗体，则该菜单将取代MDI窗体的菜单,例3-10,下面给出“层叠”和“水平平铺”菜单控件的Click事件过程，其他代码省略。Private Sub Mnuc_Click()Private Sub Mnuh_Click()MDIForm1.Arrange 0 层叠 MDIForm1.
39、Arrange 1 水平平铺End SubEnd Sub,常用ActiveX控件,1添加/删除ActiveX 控件（1）单击“工程”菜单选中“部件”命令；或者在工具箱中单击鼠标右键，在弹出的快捷菜单中选中“部件”菜单项（或者使用快捷键Ctrl+T）。弹出的“部件”对话框如图3-17所示。（2）在“控件”选项卡中列出了所有已安装过的ActiveX控件文件，将需要的ActiveX 控件名左边的复选框选定。（3）单击“确定”按钮，关闭对话框。,常用ActiveX 控件简介,常用ActiveX 控件简介,通用对话框控件,按照添加ActiveX控件的方法，在控件列表框中选中“Microsoft Comm
40、on Dialog Control 6.0”，就能将通用对话框控件添加到工具箱中了1公共属性和方法,通用对话框控件,1公共属性和方法Action属性和Show方法,例如，在代码编辑器中输入如下语句：Commondialog1.ShowColor 或者Commondialog1.Action=3运行时，执行完上述语句，系统就会调出“颜色”对话框。,通用对话框控件,2各对话框的特有属性,例3-11 编写一个菜单，综合演示6种标准对话框的功能,Private Sub menuopen_Click()CommonDialog1.InitDir=c:CommonDialog1.DefaultExt=*.
41、ico CommonDialog1.Filter=*.ico CommonDialog1.DialogTitle=打开图标文件 CommonDialog1.Action=1 Picture1.Picture=LoadPicture(CommonDialog1.FileName)End SubPrivate Sub menusave_Click()CommonDialog1.Action=2 需要编程实现真正的保存End Sub,例3-11 编写一个菜单，综合演示6种标准对话框的功能,Private Sub menuhelp_Click()CommonDialog1.HelpCommand=cd
42、lHelpForceFile CommonDialog1.HelpFile=App.Path&DEVDTG.HLP CommonDialog1.ShowHelpEnd SubPrivate Sub menuprint_Click()CommonDialog1.CancelError=True On Error GoTo errhandler CommonDialog1.Action=5 Printer.Print Label1.Caption Printer.EndDoc errhandler:Exit SubEnd Sub,Private Sub menuclose_Click()EndEn
43、d SubPrivate Sub menucolor_Click()CommonDialog1.Action=3 Label1.ForeColor=CommonDialog1.ColorEnd Sub,例3-11 编写一个菜单，综合演示6种标准对话框的功能,Private Sub menufont_Click()CommonDialog1.CancelError=True On Error GoTo errhandler CommonDialog1.Flags=cdlCFBoth Or cdlceffects CommonDialog1.CancelError=False CommonDial
44、og1.Action=4“字体”对话框 If CommonDialog1.FontName Then Label1.FontName=CommonDialog1.FontName Else MsgBox 请选择字体名称！End If Label1.FontSize=CommonDialog1.FontSize Label1.FontBold=CommonDialog1.FontBold Label1.FontItalic=CommonDialog1.FontItalic Label1.FontStrikethru=CommonDialog1.FontStrikethru errhandler:
45、Exit SubEnd Sub,Toolbar控件,Toolbar控件用来创建工具栏的Button对象集合,Toolbar控件的属性页对话框,工具栏中按钮的各种样式,ImageList控件,ImageList控件是储存一系列图像的数据库。（1）添加工具栏图标,例3-12,Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)Select Case Button.Index Case 1 If Button.Value=1 Then Timer1.Enabled=True Else Timer1.Enabled=F
46、alse:Label1.Caption=文本显示 End If Case 3:Label1.Caption=今天心情好！Case 4:Label1.Caption=今天心情差！Case 10:Label1.Caption=这是一个工具栏实例，+vbCrLf+_ 使用了ToolBar控件和ImageList控件End SelectEnd Sub,Statusbar控件,该控件通常可以在应用程序的底部创建一个状态栏显示各种状态数据,例3-13,Private Sub Command1_Click()Dim temp As Integer temp=StatusBar1.Panels(3).Styl
47、e StatusBar1.Panels(3).Style=StatusBar1.Panels(4).Style StatusBar1.Panels(4).Style=tempEnd Sub,TabStrip控件,该控件可以在应用程序的同一窗口或对话框中定义多个选项卡页面,例3-14,Private Sub Command1_Click()加法计算 Text3.Text=Val(Text1.Text)+Val(Text2.Text)End SubPrivate Sub Command2_Click()减法计算 Text33.Text=Val(Text11.Text)-Val(Text22.Tex
48、t)End SubPrivate Sub Form_Load()Frame1.Visible=True Frame2.Visible=FalseEnd Sub,Private Sub TabStrip1_Click()Select Case TabStrip1.SelectedItem.Index Case 1 Frame1.Visible=True Frame2.Visible=False Case 2 Frame1.Visible=False Frame2.Visible=True End SelectEnd Sub,TreeView控件,TreeView控件以分层的形式显示数据，允许用户
49、随意扩展或折叠节点。在TreeView控件中经常用到Add函数，可在TreeView控件中产生节点对象，格式如下：对象名.Nodes.Add(Relative,RelationShip,Key,Text,Image,SelectedImage),例3-15,Private Sub Form_click()Dim tpnode As Node Set tpnode=TreeView1.Nodes.Add(,main,民族乐器)Set tpnode=TreeView1.Nodes.Add(main,tvwChild,笛子)Set tpnode=TreeView1.Nodes.Add(main,tv
50、wChild,二胡)Set tpnode=TreeView1.Nodes.Add(main,tvwChild,古筝)tpnode.EnsureVisibleEnd Sub,ListView控件,用ListView显示选中的节点对象的记录集。在ListView控件中也用到Add函数，可在ListView控件中产生图形列表框，格式如下：对象名.ListItems.Add(Index,Key,Text,Icon,SmallIcon),例3-16,Private Sub Form_Load()Dim lit As ListItem Set lit=ListView1.ListItems.Add(,上,
