【教学课件】第五章VisualBasic中常用控件.ppt

《【教学课件】第五章VisualBasic中常用控件.ppt》由会员分享，可在线阅读，更多相关《【教学课件】第五章VisualBasic中常用控件.ppt（84页珍藏版）》请在三一办公上搜索。

1、第五章 VisualBasic中常用控件,主要内容,5.1 焦点与Tab键的顺序 5.2 标签控件 5.3 文本框控件 5.4 命令按钮控件5.5 复选框控件 5.6 选项按钮控件和框架控件 5.7 列表框控件 5.8 组合框控件5.9 图片框控件和图像框控件5.10 滚动条控件 5.11 计时器控件5.12 ActiveX控件5.13 控件的默认属性,5.1 焦点与Tab键的顺序,一、焦点 焦点(Focus)，它是接收用户鼠标或键盘输入的能力。当对象具有焦点时，可接收用户的输入。注意：并不是所有的控件都可以接收焦点，其中Frame、Label、Menu、Line、Shape、Image和Ti

2、mer控件都不能接收焦点。而对窗体来说，只有不包含任何可接收焦点的控件时才能接收焦点。当对象得到或失去焦点时，会产生GotFocus或LostFocus事件。窗体和多数控件支持这些事件。使用下列方法可以将焦点赋给某个对象。运行时选择对象运行时用快捷键选择对象在代码中用SetFocus方法,5.1 焦点与Tab键的顺序,二、设置Tab键的顺序 Tab键顺序就是在按Tab键时，焦点在控件间移动的顺序。通常，Tab键顺序与建立这些控件的顺序相同。注意：不能获得焦点的控件，以及无效的和不可见的控件，不具有TabIndex属性。通常，在程序运行时按Tab键能选择Tab键顺序中的每一个控件。但是，如果将控

3、件的TabStop属性设为False或者0，便可将此控件从Tab键顺序中删除，按Tab键时焦点将不在这个控件上停留。TabStop属性已置为False的控件，仍然保持它在实际Tab键顺序中的位置，只不过在按Tab键时这个控件被跳过。,5.2 标签控件,标签控件的作用：(1)用于显示文字说明信息，但不能在程序运行时编辑标签控件内的文字信息。通常用标签来标注本身不具有Caption属性的控件。例如：用标签为文本框、列表框、组合框等控件来添加描述性的信息。(2)编写代码改变标签控件的显示信息来表明程序的运行状态。,5.2 标签控件,一、常用属性,5.2 标签控件,二、常用事件和方法一般很少使用标签事

4、件，标签的方法中常用的只有Move。语法：Move left,top,width,height说明：(1)left，top，width，height分别表示移动目的位置的坐标和大小。(2)left为必要参数，其他三个为可选参数。,5.2 标签控件,三、应用举例 首先创建一个工程，向工程中添加一个窗体，在该窗体中放置一个标签Label1。该标签的基本属性如下表所示。窗体的设计界面和执行界面如图所示。,5.2 标签控件,标签控件实例窗体设计界面,标签控件实例窗体执行界面,5.3 文本框控件,文本框是VisualBasic中显示和输入文本的主要方式，也是Windows用户界面中最常用的控件。在Win

5、dows环境中几乎所有的输入动作都是利用文本框来完成的。文本框可以输入单行文本，也可以输入多行文本，还具有根据控件的大小自动换行以及添加基本格式的功能。,5.3 文本框控件,一、常用属性,5.3 文本框控件,二、常用事件和方法 文本框的常用事件主要有Change事件和KeyPress事件。常用的方法是SetFocus方法。1、Change事件 事件触发条件：当文本框的内容被修改时触发。语法：Sub Text_Change(Index As Integer)说明：(1)Text是文本框的名称。(2)Index是一个整数，若该文本框属于一个控件数组，则Index表示该文本框在数组中的下标，否则不需

6、要这一参数。,5.3 文本框控件,2、KeyPress事件事件触发条件：当在文本框中按任一键时触发。语法：Sub Text_KeyPress(KeyAscii As Integer)说明：KeyAscii为对应按键的键码。3、SetFocus方法将焦点移动到指定的对象。语法：Object.Setfocus说明：Object可以是窗体上可见的控件对象。,5.3 文本框控件,三、应用举例 首先向工程中添加一个窗体，在窗体中创建两个标签和两个文本框。标签用于显示提示信息，其标题分别为“单行文本演示”和“多行文本演示”。第一个文本框用于演示是单行文本，运行时，在文本框中输入“1234567”，属性设置

7、见右表。第二个文本框用于演示是多行文本，运行时，在文本框中输入一首诗，属性设置见右表所示。,5.3 文本框控件,本例窗体的设计界面如图所示。运行程序后，在第一个文本框中输入“1234567”，实际显示的是7个“*”。在第二个文本框中输入Text2控件Text属性值对应的内容，其执行界面如图所示。,5.4 命令按钮控件,命令按钮主要用来执行某一功能，通常在命令按钮的Click事件中编写一段程序，当用户用鼠标单击这个按钮时，就会启动这段程序，执行某一特定的功能。大多数VisualBasic应用程序中都有命令按钮，用户可以单击执行Click事件中代码所对应的操作。,5.4 命令按钮控件,一、常用属性

8、,5.4 命令按钮控件,二、常用事件和方法 1、Click事件 事件触发条件：当用户在命令按钮上单击鼠标时触发。此外，在设定命令按钮Caption属性时，可以在文本信息后添加“&+某个大写字母”，如&K。在程序运行时，可以按下“Alt+K”组合键，同样可以触发命令按钮的Click事件。语法：Sub Command_Click(Index As Integer)说明：(1)Command是命令按钮的名称。(2)Index是一个整数，若该命令按钮属于一个控件数组，则Index表示该命令按钮在数组中的下标，否则不需要这一参数。,5.4 命令按钮控件,2、DblClick事件触发条件：当用户在命令按钮

9、上双击鼠标时触发。语法：Sub Label_DblClick(Index As Integer)说明：参数的含义与Click事件中的相同。,5.4 命令按钮控件,三、应用举例 首先向工程中添加一个窗体，在窗体中放置5个命令按钮。实现单击前4个命令按钮调用对应的Windows小游戏，单击退出按钮结束程序。命令按钮的主要属性设置见右表所示。,5.4 命令按钮控件,在程序中需要使用Shell函数来执行一个可执行文件。Shell函数的语法如下所示。语法：Shell(文件名,窗口样式)说明：(1)文件名：是要执行的程序名，以及任何必需的参数或命令行上变量，如果必要的的话还应包括目录或文件夹以及驱动器的信

10、息。(2)窗口样式：用来表示在程序运行时窗口的样式。如果省略这个参数，则程序将以具有焦点的最小化窗口来执行。窗口样式参数的取值请参见下表。,5.4 命令按钮控件,窗口样式参数的取值,5.4 命令按钮控件,Private Sub KongDJL_Click()Shell c:WINNTSystem32freecell.exe,vbNormalFocusEnd SubPrivate Sub SaoL_Click()Shell c:WINNTSystem32winmine.exe,vbNormalFocusEnd SubPrivate Sub ZhiP_Click()Shell c:WINNTSys

11、tem32SOL.EXE,vbNormalFocusEnd SubPrivate Sub ZhuoSTQ_Click()Shell C:Program FilesWindows NTPinballPINBALL.EXE,vbNormalFocusEnd SubPrivate Sub TuiC_Click()EndEnd Sub,5.5 复选框控件,复选框属于选择类控件，用来设置是否需要某一选项功能。在运行时，如果用户用鼠标单击复选框左边的方框，方框中就会出现一个“”符号，表示已选取这个功能了。复选框的功能是独立的，如果在同一窗体上有多个复选框，用户可根据需要选取一个或几个。使用复选框时，每单击

12、一次将切换一次复选框的状态。每次单击也激活复选框的Click事件。,5.5 复选框控件,一、常用属性,5.5 复选框控件,二、常用事件和方法 复选框的常用事件为Click。复选框的方法很少使用。Click事件：当用户在一个复选框上单击鼠标按钮时发生。,5.5 复选框控件,三、应用举例 首先向工程中添加一个窗体，在窗体中创建3个标签控件和6个复选框控件。前2个标签控件用于显示提示信息，第3个标签控件用于显示选中的爱好信息。6各复选框的初始状态为未选中，当单击复选框控件后，使其处于选中状态，同时变灰不可用，用来避免重复选择。窗体中控件属性如右表所示。,5.5 复选框控件,复选框Check1的Cli

13、ck事件的代码如下所示，其余5个复选框的Click事件参照下述代码编写。Private Sub Check1_Click()If Check1.Value Then Label3.Caption=Label3.Caption&Check1.Caption&End IfEnd Sub,5.6 选项按钮控件和框架控件,选项按钮是从多个选项中选择一个，各选项间的关系是互斥的，又可以称为单选按钮。经常将单选按钮放在框架中构成一个选项按钮组。框架的作用主要是区分一个控件组，也就是让用户可以容易地区分窗体中的各个对象。框架在实际运用中往往和其他控件一起使用。要在框架中加入组成员，必须先在窗体中建立一个框架

14、，然后在它上面建立其所属按钮。如果在框架外面建立好控件之后再将其移到框架内，则控件是不会与所属的框架成为一个群组的。,5.6 选项按钮控件和框架控件,一、常用属性选项按钮的常用属性,框架的常用属性,5.6 选项按钮控件和框架控件,二、常用事件和方法 单选按钮的常用事件为Click。Click事件事件触发条件：当用户在一个单选按钮上单击鼠标按钮时发生。框架的常用事件为Click。Click事件事件触发条件：当用户在一个框架上单击鼠标按钮时发生。单选按钮和框架的方法都很少使用。,5.6 选项按钮控件和框架控件,三、应用举例 首先向工程中添加一个窗体。在其中创建一个框架和3个选项按钮，编辑选项按钮O

15、ption1的Click事件代码如下所示，其余选项按钮的Click事件参照Option1的代码，控件的属性如右表所示。,5.6 选项按钮控件和框架控件,Private Sub Option1_Click()MsgBox 你的学历是大学专科！,vbInformation,提示信息End Sub,5.7 列表框控件,列表框是一个在有限空间为用户提供大量选项的有效方法，用户可从列表框列出的一组选项中用鼠标选取一个或多个所需的选项。当选择项的数量在列表框的区域中不能一次全部显示时，VB会自动出现滚动条，用户可以使用滚动条调整列表框中显示的选项内容。,5.7 列表框控件,一、常用属性,5.7 列表框控件

16、,二、常用事件和方法 1、Click事件事件触发条件：(1)当用户在一个对象上单击鼠标按钮时发生。(2)当焦点在列表框上时，如果用户按方向键或者项目的第一个英文字符，相当于在某个项目上单击，会触发Click事件2、AddItem方法用于将项目添加到列表框中。语法：Object.AddItem Item,Index说明：(1)Item：是要添加到列表框中的字符表达式。(2)Index：是可选参数，用来指定新项目在列表框中的位置。如果所给出的Index值有效，则Item将放置在列表框相应的位置。如果省略Index，当Sorted属性设置为True时，Item将添加到恰当的排序位置，当Sorted属

17、性设置为False时，Item将添加到列表的末尾。,5.7 列表框控件,3、RemoveItem方法用于从列表框中删除一个项目。语法：Object.RemoveItem Index说明：Index：用来指定要删除的项目在列表框中的位置。4、Clear方法删除列表框中的所有项目。语法：Object.Clear,5.7 列表框控件,三、应用举例 首先向工程中添加一个窗体，在窗体中分别创建1个框架、3个标签、2个列表框和4个命令按钮，并且标签、列表框和命令按钮要创建在框架内部。利用循环结构和列表框控件，设计“选项移动”窗体。所谓“选项移动”窗体是指由两个列表框和4个命令按钮所构成的界面，在Windo

18、ws程序中常见到此类窗口。上述控件的属性设置如表所示。,5.7 列表框控件,Private Sub Command1_Click()i=0 Do While i List1.ListCount If List1.Selected(i)=True Then List2.AddItem List1.List(i)List1.RemoveItem i Else i=i+1 End If LoopEnd SubPrivate Sub Command2_Click()For i=0 To List1.ListCount-1 List2.AddItem List1.List(i)Next List1.Cl

19、earEnd Sub,Private Sub Command3_Click()i=0 Do While i List2.ListCount If List2.Selected(i)=True Then List1.AddItem List2.List(i)List2.RemoveItem i Else i=i+1 End If LoopEnd SubPrivate Sub Command4_Click()For i=0 To List2.ListCount-1 List1.AddItem List2.List(i)Next List2.ClearEnd Sub,5.7 列表框控件,窗体Load

20、事件代码如下：Private Sub Form_Load()List1.AddItem 电冰箱 List1.AddItem 洗衣机 List1.AddItem 彩色电视 List1.AddItem 组合音响 List1.AddItem 影碟机 List1.AddItem 电水壶 List1.AddItem 钦水机 List1.AddItem 微波炉 List1.AddItem 照相机 List1.AddItem 热水器 List1.AddItem 电脑End Sub,5.8 组合框控件,组合框兼有文本框和列表框的功能，允许用户通过输入文本或选择列表中的项目来进行选择，但它一次只能选取或输入一个

21、选项，而且不能设定为多重选取模式。在程序运行时，单击向下箭头按钮就会下拉出一个列表框供用户选择项目，还可以在组合框上方的框中输入信息。一、常用属性,5.8 组合框控件,二、常用事件和方法 1、Change事件事件触发条件：当组合框内容改变时发生。2、Click事件事件触发条件：当用户在一个组合框上单击鼠标按钮时发生。3、AddItem方法添加一项到组合框控件中。语法：Object.AddItem Item,Index 参数含义参照列表框。4、RemoveItem方法从一个组合框控件中删除一项。语法：Object.RemoveItem Index 参数含义参照列表框。5、Clear方法清除组合框

22、的内容。语法：Object.Clear,5.8 组合框控件,三、应用举例 首先向工程中添加一个窗体，在其中放置3个组合框控件和4个标签控件。控件属性和属性值如表所示。,5.8 组合框控件,Private Sub Combo1_Click()Label4.Caption=你选择的是：+Combo1.TextEnd Sub这样，用户在该组合框中选择一个选项时会出现相应的提示信息。该程序窗体运行界面如图所示。,5.9 图片框控件和图像框控件,图片框用于在窗体上放置图形信息，也可以在其上放置其他控件，因此它也可以作为控件的容器。图像框也用来显示图形，可以显示位图、图标、图元文件、增强型图元文件、JPE

23、G或GIF文件。图像框与图片框的区别是：图像框控件使用的系统资源比图片框少而且重新绘图速度快，但它仅支持图片框的一部分属性、事件和方法。两种控件都支持相同的图片格式，但图像框控件中可以伸展图片的大小使之适合控件的大小，而图片框控件中不能这样做。,5.9 图片框控件和图像框控件,一、常用属性,图片框常用属性,5.9 图片框控件和图像框控件,图象框常用属性,5.9 图片框控件和图像框控件,二、常用事件和方法图片框的事件和方法主要用于绘图，这些在第6章中详细讨论。图像框常用的时间和方法很少。,5.9 图片框控件和图像框控件,三、应用举例 设计一个窗体，选择不同的选项按钮，在图形框和图像框中显示4种不

24、同车型的图片。首先添加一个窗体，在其中创建1个框架、1个图片框、1个图像框、2个标签和4个选项按钮的控件数组。,5.9 图片框控件和图像框控件,为该窗体添加如下事件过程程序代码：Private Sub Option1_Click(Index As Integer)Select Case Index Case 0 Image1.Picture=LoadPicture(d:baoshijie.jpg)Picture1.Picture=LoadPicture(d:baoshijie.jpg)Case 1 Image1.Picture=LoadPicture(d:xuetielong.jpg)Pict

25、ure1.Picture=LoadPicture(d:xuetielong.jpg)Case 2 Image1.Picture=LoadPicture(d:aodi.jpg)Picture1.Picture=LoadPicture(d:aodi.jpg)Case 3 Image1.Picture=LoadPicture(d:kaiyue.jpg)Picture1.Picture=LoadPicture(d:kaiyue.jpg)End SelectEnd Sub,5.9 图片框控件和图像框控件,5.10 滚动条控件,VB中的滚动条分为两种类型：水平滚动条和垂直滚动条，除了放置的方向不同以外，这

26、两个控件是完全相同的。滚动条与文本框、列表框等一起使用，通过它可以查看列表项目和数据，还可以进行数值输入。滚动条的结构为：两端各有一个滚动箭头，两个滚动箭头中间是滚动条部分，在滚动条上有一个能够移动的小方块，叫做滚动块。滚动条的数值是由滚动块来调整的，当滚动块位于顶端或者最左侧的时候，其值最小，反之则最大。,5.10 滚动条控件,一、常用属性,5.10 滚动条控件,二、常用事件和方法 1、Scroll事件 只在移动滚动框时被激活，单击滚动箭头或单击滚动条均不能激活该事件。一般可用该事件来监测滚动框的动态变化。2、Change事件 在滚动条的滚动框移动后可以激活，即释放滚动框、单击滚动箭头或单击

27、滚动条时，均会激活该事件。一般可用该事件来获得移动后的滚动框所在的位置值。,5.10 滚动条控件,三、应用举例 通过3个滚动条来调整一个文本框的背景颜色。在这个程序中，我们将窗体Caption属性设置为“颜色控制”，然后在窗体上加3个水平滚动条，分别用来调整红绿蓝3种颜色，它们的各项属性设置如表所示。,5.10 滚动条控件,以下是程序的源代码：根据3个滚动条的当前值，利用rgb函数设置文本框的背景颜色Private Sub ChangeColor()改变文本框背景颜色的通用函数 txtColor.BackColor=RGB(Hsbred.Value,HsbGreen.Value,HsbBlue

28、.Value)End SubPrivate Sub Form_Load()ChangeColorlblred.Caption=红色值：&Hsbred.ValuelblGreen.Caption=绿色值：&HsbGreen.ValuelblBlue.Caption=蓝色值：&HsbBlue.ValueEnd SubPrivate Sub HsbBlue_Change()控制蓝色的滚动条变化时产生的事件 lblBlue.Caption=蓝色值：&HsbBlue.Value ChangeColorEnd SubPrivate Sub HsbGreen_Change()控制绿色的滚动条变化时产生的事件

29、 lblGreen.Caption=绿色值：&HsbGreen.Value ChangeColorEnd SubPrivate Sub Hsbred_Change()控制红色的滚动条变化时产生的事件 lblred.Caption=红色值：&Hsbred.Value ChangeColorEnd Sub,5.10 滚动条控件,5.11 计时器控件,计时器控件在设计时可看见它，在运行时它就隐藏起来，但是在后台每隔一定的时间间隔，系统就会自动执行一次计时器事件。所谓时间间隔，指的是各个计时器事件之间的时间，一般以毫秒(ms)为基本单位。因为计时器在1秒钟内最多产生18个事件，所以两个事件之间的时间间

30、隔精确度不超过1/18秒(s)。,5.11 计时器控件,一、常用属性,5.11 计时器控件,二、常用事件和方法 计时器的主要事件就是Timer事件。在每隔Interval指定的时间间隙就执行一次该事件过程代码。,5.11 计时器控件,三、应用举例 用计时器来设计一个电子表，要求可以分别显示12和24小时制。在窗体中创建1个标签、1个框架和2个选项按钮控件，窗体设计界面如图5.16所示。窗体中控件的属性如表所示。,5.11 计时器控件,编写程序代码如下：计时器控件Timer1的事件代码为：Private Sub Timer1_Timer()Label1.Caption=Format(Time,F

31、orm1.Tag)End Sub选项按钮Option1的Click事件代码：Private Sub Option1_Click()Form1.Tag=hh:mm:ss AM/PMEnd Sub选项按钮Option2的Click事件代码：Private Sub Option2_Click()Form1.Tag=hh:mm:ssEnd Sub,5.12 ActiveX控件,ActiveX控件是VisualBasic工具箱的扩展，使用ActiveX控件的方法与使用其他标准控件完全一样。在程序中加入ActiveX控件后，它将成为开发和运行环境的一部分，并为应用程序提供新的功能。,5.12 Active

32、X控件,一、ActiveX控件的介绍 ActiveX控件的文件扩展名为.ocx。程序员可以使用Visual Basic提供的ActiveX控件，也可以使用从第三方开发商获得的附加控件。将ActiveX控件和其他可加入的对象加到工具箱中，就可以在工程中使用它们。,5.12 ActiveX控件,二、通用对话框 应用程序中常常需要打开和保存文件、选择颜色和字体、打印等操作，这就需要应用程序提供相应的对话框以方便使用。这些对话框作为Windows的资源，在VisualBasic中已被做成“通用对话框”控件。“通用对话框”(Common Dialog)控件为用户提供了一组标准的系统对话框，可以使用它进行

33、打开或保存文件、设置打印选项、选择各种颜色以及选择字体等的操作。另外还可以通过调用Windows帮助引擎来显示应用程序的帮助。,5.12 ActiveX控件,1、添加“通用对话框”控件 用鼠标右键单击控件工具箱，在弹出菜单中选择“部件”，打开部件对话框，在“部件”对话框中，选定对话框控件对应的文件，按“确定”按钮即可将“通用对话框”控件加到标准工具箱中。2.使用“通用对话框”“通用对话框”控件可以显示对话框的种类,5.12 ActiveX控件,(1)使用“打开”对话框,5.12 ActiveX控件,运行时选定文件并关闭对话框后，可用FileName属性得到文件所在的驱动器、文件夹以及文件名、文

34、件扩展名。使用“打开”对话框的步骤如下：在窗体中增加“通用对话框”控件。在“属性页”对话框中设置属性，其中各属性描述如下表所示。使用CommonDialog控件的ShowOpen方法来显示“打开”对话框：控件名.ShowOpen,5.12 ActiveX控件,5.12 ActiveX控件,(2)使用“另存为”对话框“另存为”对话框可以用来指定文件所要保存的驱动器、文件夹以及文件名、文件扩展名，使用“另存为”对话框的步骤同上，首先应在窗体中增加“通用对话框”控件，然后在“属性页”对话框中设置属性，其中属性页的设置同上。最后使用CommonDialog控件的ShowSave方法来显示“另存为”对话

35、框：控件名.ShowSave,5.12 ActiveX控件,(3)使用“颜色”对话框“颜色”对话框用来在调色板中选择颜色，或者创建自定义颜色，在运行时，当用户选择一个颜色并关闭对话框后，Color属性得到所选的颜色。使用“颜色”对话框的步骤如下：在窗体中增加“通用对话框”控件。在“属性页”对话框中设置属性，其中各属性描述如下表所示。使用CommonDialog控件的ShowColor方法来显示“颜色”对话框。控件名.ShowColor,5.12 ActiveX控件,标志Flags的值,5.12 ActiveX控件,(4)使用“字体”对话框“字体”对话框设置并返回所用字体的名字、样式、大小、效果

36、及颜色。,5.12 ActiveX控件,“字体”对话框明确的属性,5.12 ActiveX控件,使用“字体”对话框的步骤如下：在窗体中增加“通用对话框”控件。在“属性页”对话框中设置属性，其中各属性描述如表所示。,5.12 ActiveX控件,注意：必须将Flags属性设为下列常数之一与其他选项之和：cdlCFScreenFonts或1(屏幕字体)cdlCFPrinterFonts或2(打印机字体)cdlCFBoth或3(=1+2 两种字体皆有)例如：设为cmDialog.Flags=259(=256+3 是cdlCFEffects常数与3之和,在对话框中将出现颜色、效果等选项)。假如不设置F

37、lags属性，将会发生不存在字体错误。使用ComonDialog控件的ShowFont方法来显示“字体”对话框：控件名.ShowFont,5.12 ActiveX控件,(5)使用“打印”对话框“打印”对话框可用以指定打印输出方式。可以指定被打印页的范围，打印质量，打印的份数等等。这个对话框还包含当前安装的打印机的信息，并允许配置或重新安装缺省打印机。,5.12 ActiveX控件,注意：这个对话框并不给打印机传送数据，只是指定希望打印数据的情况。如果 PrinterDefault属性为True，可以使用Printer对象按选定的格式打印数据。使用“打印”对话框的步骤如下：在窗体中增加“通用对话

38、框”控件。在“属性页”对话框中设置属性，其中各属性描述如表所示。最后使用CommonDialog控件的ShowFont方法来显示“打印”对话框：控件名.ShowFont,5.12 ActiveX控件,(6)使用“帮助”CommonDialog控件的ShowHelp方法可运行Windows的帮助引擎(WINHELP.EXE)，并显示由HelpFile属性设定的一个帮助文件。通过HelpCommand属性的设置，可以告诉该帮助引擎想要哪种类型的联机帮助，比如是上下文相关，或是特定关键字的帮助等。,5.12 ActiveX控件,三、应用举例 选择“新建”工程，进入窗体设计器，创建1通用对话框Comm

39、onDialog1、1个框架Frame1和1个命令按钮数组Command1(0)-Command1(3)。然后，选定框架Frame1，在其中增加一个文本框Text1。,5.12 ActiveX控件,然后编写命令按钮数组Command1()的Click事件的代码：Private Sub Command1_Click(Index As Integer)Dim n As Integer n=Index Select Case n Case 0 CommonDialog1.Filter=所有文件(*.*)|*.*|文本文件(*.txt)|*.txt CommonDialog1.FilterIndex=

40、1 CommonDialog1.ShowOpen Text1.Text=CommonDialog1.FileName Frame1.Caption=从打开对话框返回 Case 1 CommonDialog1.ShowSave Text1.Text=CommonDialog1.FileName Frame1.Caption=从另存为对话框返回 Case 2 CommonDialog1.ShowColor Text1.Text=从颜色对话框返回 Text1.ForeColor=CommonDialog1.Color List1.ForeColor=CommonDialog1.Color Frame

41、1.Caption=从颜色对话框返回,5.12 ActiveX控件,Case 3 CommonDialog1.Flags=3 Or 256 CommonDialog1.ShowFont With text1.FontName=CommonDialog1.FontName.FontSize=CommonDialog1.FontSize.FontStrikethru=CommonDialog1.FontStrikethru.FontBold=CommonDialog1.FontBold.FontItalic=CommonDialog1.FontItalic.FontUnderline=Common

42、Dialog1.FontUnderline.ForeColor=CommonDialog1.Color End With Text1.Text=从字体对话框返回 Frame1.Caption=从字体对话框返回 End SelectEnd Sub,5.13 控件的默认属性,本章小结,1、控件分类 VisualBasic中控件分3类：(1)内部控件(2)ActiveX控件(3)可插入的对象2、焦点 焦点的英文是Focus，它是接收用户鼠标或键盘输入的能力。当对象具有焦点时，可接收用户的输入。在Windows系统中，任一时刻可运行几个应用程序，但只有具有焦点的应用程序才有活动标题栏，才能接受用户的输入。而在有几个控件的VisualBasic窗体中，只有具有焦点的控件才可以接受用户的输入。3、常用控件,