VB教程常用控件.docx

1、VB教程常用控件第五章 VB常用控件 15.1文本控件 25.1.1标签（Label）控件 25.1.2 文本框（TextBox） 控件 35.2 命令按钮（CommandButton） 105.2.1常用属性 105.2.2.常用事件 115.2.3. 应用举例 115.3选择控件 复选框和单选按钮 135.3.1复选框（CheckBox）控件 135.3.2单选按钮（OptionButton）控件 155.4 选择控件 列表框 175.4.1常用属性 175.4.2常用事件 195.4.3常用方法 205.4.4 应用举例 215.5选择控件 组合框 245.5.1常用属性 245.5.2

2、组合框常用事件 265.6 滚动条（ScrollBar）控件 285.6.1滚动条（ScrollBar）控件的属性 295.6.2滚动条（ScrollBar）事件 295.6.3 滚动条事件举例 305.7 框架（Frame） 315.7.1在框架内添加控件 315.7.2 常用属性 315.7.3框架（Frame）控件的响应事件 315.8图形控件 335.8.1图片框（Picture Box）和图像框（Image Box）控件 335.8.2形状（Shape）和直线（Line）控件 365.9计时器控件（timer） 395.9.1属性 395.9.2 事件 405.9.4 计时器控件应用

3、举例(举一个红绿灯) 405.10 对话框（Dialog Box） 425.10.1 预定义对话框 425.10.2自定义对话框 475.10.3 通用对话框（Common Dialog） 475.11进度条（ProgressBar）控件 595.12 常用系统对象 615.12.1 Clipboard（剪贴板）对象 615.12.2 Clipboard常用的方法 615.13焦点与Tab次序 625.13.1设置焦点 635.13.2设置Tab顺序 645.14控件数组 65第五章 VB常用控件学习目标1.掌握：标签、文本框、命令按钮、图片框、框架、单选钮和复选框的基本用法；2.理解：组合框

4、、滚动条、记时器的基本用法； 3.掌握：两个交互性函数的使用方法；4.掌握：剪贴板的用法； 5.理解：焦点概念及焦点的设置方法。学习要点控件概念及其属性、方法、事件的应用；两个交互性函数的使用方法；剪贴板的用法及焦点的设置方法。在窗体上用于输入、输出信息的图形或文字符号称为控件。控件是构成用户界面的基本元素，为了方便用户开发应用程序，VB提供了三类控件，第一类是标准控件(或称内部控件)， 是windows本身的资源，如工具箱中的标准控件（共20个），不能添加和删除；第二类是ActiveX控件（外部控件），ActiveX控件是一个提供特定功能的二进制对象。程序开发人员可以把ActiveX控件添加

5、到自己编写的程序中。ActiveX控件是扩展名为.Ocx的控件；第三类是可插入控件，可插入对象也是一种ActiveX控件，只是插入的对象本身就是一个应用程序。由于可插入对象也能够添加到工具箱内，因此可插入对象使用与使用工具箱中普通控件一样。几乎所有用VB编写的应用程序都要用到窗体上的控件。控件是包含在窗体对象中的对象。命令按钮、列表框以及滚动栏都是控件。每种类型的控件都有自己的一组属性、方法和事件，用于相应的特定目的。VB中的窗体和每一个控件都有很多属性，但窗体和大多数标准控件都具有如下基本属性，见下表：Name (名称)Name（名称）属性指所创建对象的名称（建议窗体用汉字命名，控件一般使用

6、系统默认名）。Caption Caption属性用于设置控件上显示的文字内容。Height、Width、Top、Left 这四个属性用于设置控件的高度、控件的宽度、控件离屏幕顶部的距离、控件离屏幕左边的距离。Enabled Enabled属性用于设置对象的可操作性（其值为：True、False）。Visible Visible属性用于设置对象的可见性（其值为：True、False）。Font Font属性用于设置对象的字体。ForeColor ForeColor属性用于设置对象的前景颜色（字体颜色）。BackColor BackColor属性用于设置对象的背景颜色。BorderStyleBor

7、der Style属性用于设置对象的边框样式（0：无，1：单边）。AlignmentAlignment属性用于设置对象的对齐方式（0：左对齐，1：右对齐，2：居中）AutoSize 当对象的AutoSize属性为True时：自动调整大小；当AutoSize属性为False时：不可调，若正文太长则自动裁掉。WordWarp 当对象的Word Warp属性为True时：垂直方向显示文本。TabIndexTabIndex属性用于决定按下Tab键时，焦点在各个控件中移动的顺序。ToolTipText 设置鼠标暂停在控件上显示的提示。可以通过属性窗口，也可以通过程序设置，例如：Label1.ToolTi

8、pText = 提示！ 5.1文本控件 与文本控件有关的标准控件有两个，即标签控件和文本框控件。标签和文本框都是用来在程序中显示文本信息的控件。但它们在显示文本时的功能存在区别。在标签中只能显示字符文本，并且显示的文本不能被用户进行编辑；而文本框不但可以显示文本，并且允许用户对显示的文本进行各种编辑操作，所以，用户也可以利用文本框进行字符信息的输入。5.1.1标签（Label）控件 标签（Label）控件是VB中输出文本信息的常用工具，目前几乎取代了Print方法。主要用来在固定位置显示文本，且仅用于显示文本。它所显示的内容只能用Caption属性来设置或修改，不能直接编辑。标签常用来标注自身

9、没有Caption属性的控件，如用标签为文本框、列表框和组合框等控件附加描述性信息。标签的默认名称（Name）和标题（Caption）都为LabelX（X为编号，从1，2，依次顺延）。1. 常用属性 标签的部分属性，如名称、Caption、BorderStyle、Enabled、ForeColor 、Font、 Height、Visible 、Width、Top与 Left等属性，与窗体及其他控件属性相同。另外，还可以使用如下属性：1） Alignment 属性该属性用来确定标签中文本对齐方式。设计时可以通过属性窗口设置，共有三个属性值。属性值的描述见下表：常数设置值描述VbLeftJusti

10、fy0（缺省值）文本左对齐。VbRightJustify1文本右对齐VbCenter2文本居中该属性的设置也可以在程序运行时通过代码进行设置，语句格式为： 对象.Alignment = 常数/设置值2） AutoSize 属性该属性用来设置标签是否能够根据标题的内容自动调整大小。设计时可以通过属性窗口设置，共有两个属性值，缺省值为False。当设置值为True时，标签可根据其中标题的内容自动调整大小，即把所有的文本都显示出来；设置值为False时，不论标题内容有多少，标签保持设计时定义的大小，超出的部分不显示。 该属性设置也可以在程序运行时通过代码进行设置，语句格式为： 对象.AutoSize

11、 = False/True3） BackStyle 属性该属性用来设置Label 控件或 Shape 控件的背景是透明的还是非透明的。设计时可以通过属性窗口设置，共有两个属性值0、1，缺省值为1。当设置值为1时，Label 控件的背景是非透明，用控件的 BackColor 属性设置值填充该控件，并隐藏该控件后面的所有颜色和图片。若设置值为0时，Label 控件的背景是透明的，控件后的背景色和任何图片都是可见的。 该属性设置也可以在程序运行时通过代码进行设置，语句格式为： 对象.BackStyle = 1/04） WordWrap属性该属性用来设置标签是否可以在垂直方向上变化大小以适应标题内容的

12、大小。设计时可以通过属性窗口设置，共有两个属性值False和True，缺省值为False。当设置值为True时，则标签可以在垂直方向上变化，但AutoSize的值必须也为True，否则标签不能在垂直方向上变化。 该属性设置也可以在程序运行时通过代码进行设置，语句格式为： 对象. WordWrap =False/True 注意：若要标签在水平方向上变化大小以适应标题内容的大小，AutoSize的值为True，WordWrap 的值为False。2. 常用事件1）Change事件：当标签的内容更改时触发Change事件。 例如：在程序运行中用程序代码更改标签内容时触发Change事件。Privat

13、e Sub Command1_Click() 单击命令按钮改变标签默认属性值Label1.Caption = ok 程序代码 End SubPrivate Sub Label1_Change()Print 利用程序代码引发Label1的 Change事件End Sub2）Click 事件：单击事件 ，点击标签触发该事件。3）Dbclick事件：双击事件 ，双击标签时触发该事件。3. 其它用法标签除了直接在设计时设置之外，也常在运行时使用程序代码来显示时间和日期。Time$是一个与时间有关的函数，由于它的返回值是字符串，Date$是一个与日期有关的函数，由于它的返回值是字符串，因此可以把它们赋值

14、给标签的标题，这样就可以用标签来显示时间和日期。例如：利用标签显示时间。 Label1.caption=Time$当要在标签中同时显示2行以上的字符串，可以通过程序代码实现，在字符串之间加上chr$(13)+ chr$(10)控制码（分别表示回车和换行字符）。例如：利用标签显示时间和日期。Label1.Caption = Time$ & Chr$(13) + Chr$(10) & Date$5.1.2 文本框（TextBox） 控件1. 常用属性文本框（TextBox）是一个文本编辑区，用户可在文本区输入、编辑、修改文本，也可以显示文本。文本框的默认名称（Name）和Text属性缺省值为Tex

15、tX（X为编号，从1，2，依次顺延）。文本框的部分属性，如名称、BorderStyle、Enabled、Forecolor 、Font、 Height、Visible 、Width、Top与 Left等属性与窗体及其他控件的属性相同。另外，还可以使用如下属性：max1） Locked 属性该属性用于设置文本框是否可编辑。设计时可以通过属性窗口设置，共有两个属性值，缺省值为False，表示可以编辑文本框中的文本；当属性设置值为True，表示不能编辑文本框中的文本，但可以在运行时，通过程序代码改变文本框中的内容。该属性设置也可以在程序运行时通过代码进行设置，语句格式为： 对象. Locked =F

16、alse/True2） Maxlength 属性该属性用于设置文本中输入字符的长度。设计时可以通过属性窗口设置，缺省值为“0”。指出对于用户系统上单行 TextBox 控件来说，最大值不能超过被内存强制建立的值，并且对于多行 TextBox 控件而言，最大值大约为 32K。任何大于 0 的数表示字符数的最大值。该属性的设置也可以在程序运行时通过代码进行设置，语句格式为： 对象. Maxlength =数值注意：VB中所有的字符长度均为“双字节”。3） Multiline 属性该属性用于设置TextBox中的文本能否换行。设计时可以通过属性窗口设置，共有两个属性值，缺省值为False。若其属性值

17、为False，则 TextBox中的文本不能换行；若其属性值为True ， ScrollBars设置为 None (0)，则无滚动条。注意：Multiline和Scrollbars属性只能在设计时设置，不能在运行时通过程序代码设置。4） Text 属性该属性用于显示文本框中的信息。设计时可以通过属性窗口设置，缺省值为Text1。该属性设置也可以在程序运行时通过代码进行设置，语句格式为：对象.Text =字符串注意：若在文本框中进行多行输入，要把MultiLine 属性设置为 True。换行输入，按Ctrl+回车键；结束输入，则按回车键。见图5-1所示。另外，MultiLine 属性设置为Fal

18、se， Textbox 控件的 Text 设置值最多可以有 2048 个字符，反之为32K。图5-15） Scrollbars该属性用于设置TextBox是否具有滚动条，并设置滚动条的样式。只能在设计时通过属性窗口设置，共有四个属性值，属性值的描述见下表：常数设置值描述VbSBNone0（缺省值）无滚动条VbHorizontal1水平滚动条VbVertical2垂直滚动条VbBoth3水平、垂直两种滚动条注意：设置值为1、2或3有效的前提是MultiLine属性必须设置为True；滚动条只在对象的内容超过对象的边框时才被显示在对象上（可用）。6） PasswordChar 属性该属性用于设置用

19、何种显示字符掩饰用户输入的字符（常用于密码口令的输入）。设计时可以通过属性窗口设置，将 PasswordChar 设置为长度为 0 的字符串 ( ) （缺省值），将显示实际的文本。该属性设置也可以在程序运行时通过代码进行设置，语句格式为：对象.PasswordChar =字符串 例如：每次单击窗体，文本将在星号 (*) 密码和普通文本之间转换。Private Sub Form_Click() If Text1.PasswordChar = Then Text1.PasswordChar = * Else Text1.PasswordChar = End IfEnd Sub注意：能够将任意字符串

20、赋予此属性，但只有第一个字符是有效的，其余的字符将被忽略；另外，如果 MultiLine 属性被设为True，那么设置PasswordChar属性将不起作用。7） TabStop 属性该属性用于设置文本框是否能够获得焦点。设计时可以通过属性窗口设置，缺省值为True。若该属性值为True，表示使用Tab键能将焦点移动到该对象；若该属性值为False，表示当用户按下 Tab 键时，将跨越该对象，虽然该对象仍然在实际的 Tab 键顺序中保持其位置，按照 TabIndex 属性的决定。该属性设置也可以在程序运行时通过代码进行设置，语句格式为：对象.TabStop =True/False 8） Tab

21、Index 属性该属性用于返回或设置父窗体中大部分对象的 Tab 键次序。设计时可以通过属性窗口设置，缺省情况下，在窗体上画控件时 VB 会分配一个 Tab 键顺序，TabIndex 属性值 “Index”是从0 到 (n-1) 的整数。该属性设置也可以在程序运行时通过代码进行设置，语句格式为：对象.TabIndex = index 说明： 缺省情况下， Menu、Timer、Data、Image、Line 和 Shape 控件不包括在 Tab 键顺序中。运行时，不可见或无效的控件以及不能接收焦点的控件（Frame 和 Label 控件）仍保持在 Tab 键顺序中，但在切换时要跳过这些控件。每

22、个新控件都放在 Tab 键顺序的最后。如果改变控件的 TabIndex 属性值来调整缺省 tab 键顺序，VB会自动对其它控件的 TabIndex 属性重新编号，以反映出插入和删除操作。可以在设计时用属性窗口或在运行时用代码来作改变。9） SelStart 属性SelStart是运行时属性，用于返回或设置焦点（光标）在文本框中文本的位置（文本的起始位置为0）。该属性在设计时不可用。语句格式为：对象.SelStart =数值表达式10）SelLength属性SelLength是运行时属性，用于返回或设置文本框中选择的字符数。该属性在设计时不可用。语句格式为：对象.SelLength =数值表达式

23、11）SelText属性SelText是运行时属性，用于返回或设置文本框中所选择文本的字符串。如果没有字符被选中，则为零长度字符串 ()。该属性在设计时不可用。语句格式为：对象.SelText =字符串表达式SelStart、SelLength、SelText这几个运行时设置的属性，常用在文本编辑中设置插入点及范围、选定字符串、清除文本等。例如：在Text1文本框中有长度不为零的字符串，利用这几个属性可以在Text1文本框中进行如下设置：1 设置插入点 Text1.SelStart = 0 插入点放在字符串起始处 Text1.SelStart = 3 插入点放在字符串第3个字符之后Text1.

24、SelStart = Len(Text1.Text) 获取字符串长度并将插入点放在字符串结尾处2 选中文本框TextBox内文字 Text1.SelLength = Len(Text1.Text) 选中整个字符串并获取字符串长度Print Text1.SelLength3 将选中文本赋给变量 Bl= Text1.SelText 将选中文本赋给变量Bl4 将选中文本用新字符串替代 Text1.SelText = 新字符串 如果新字符串是空字符串，则空字符串替换选中的文本，并且使插入点放到在新插入文本尾之后。如果没有被选定的文本，则该“新字符串”就粘贴到文本框中的插入点处。例如：观察对Text1、

25、Text2的操作。要求：1. 选中Text1中所有文本或Text1中部分文本，则清空被选中的部分文本。2. 选中Text1中的文本，在选中Text2中的文本，则被选中的Text1文本替换。Dim x As String 注意变量X声明位置Private Sub Text1_Click() x = Text1.SelText Text1.SelText = End SubPrivate Sub Text2_Click()Text2.SelText = xEnd Sub例如：运行下面程序体会“SelLength、SelStart、SelText 属性”的用法。Dim x As StringPriv

26、ate Sub Form_Load() Txtys.Text = 体会SelLength,SelStart,SelText 属性的用法。 Command1.Enabled = False Command2.Enabled = False Command3.Enabled = FalseEnd SubPrivate Sub Txtys_Click() 选定 Command1.Enabled = True Command2.Enabled = True Command3.Enabled = False Txtys.Text = 体会SelLength、SelStart、SelText 属性的用法。

27、 TxtStart.Text = Txtys.SelStart TxtLength.Text = Txtys.SelLengthEnd SubPrivate Sub Command1_Click() 复制 x = Txtys.SelText Text1.SelText = Txtys.SelText Command2.Enabled = False Command3.Enabled = FalseEnd SubPrivate Sub Command2_Click() 剪切 Command3.Enabled = True Command1.Enabled = False x = Txtys.Se

28、lText Txtys.SelText = End SubPrivate Sub Command3_Click() 粘贴 Text1.SelText = x Command1.Enabled = False Command2.Enabled = FalseEnd Sub图5-22. 常用事件 文本框支持Click、 Dbclick等鼠标事件，同时也支持如下事件：1) Change事件：当用户向文本框中输入新的文本，或在程序运行中对文本框的Text属性进行更改时，都将触发其Change事件。2) GotFocus事件：对象获得焦点事件。当运行程序时，利用Tab键或用鼠标单击对象，或用SetFoc

29、us方法使焦点（光标）定位在对象上时，都会触发该事件。例如：当文本框获得焦点后，自动选择文本框内全部内容。Private Sub Form_Load()ShowText1.SetFocusEnd SubPrivate Sub Text1_GotFocus()Text1.SelStart = 0Text1.SelLength = Len(Text1.Text)End Sub3) LostFocus事件：对象失去焦点事件。当按下Tab键或用鼠标单击窗体上其他对象而使该文本框失去焦点时触发该事件。例如：当文本框失去焦点后，把文本框中内容赋给标签。Private Sub Text1_LostFocus

30、()Label1.Caption = Text1.TextEnd Sub例如：一个文本框（Text1），初始状态下内容为空；当获得焦点时，文本框内容显示文本框获得焦点字样；当单击命令按钮（Command1），文本框失去焦点，则显示文本框失去焦点字样，文本框回到初始状态；具体程序如下：Private Sub Command1_Click()Text1.Text = Text1_LostFocusEnd SubPrivate Sub Text1_GotFocus()Text1.Text = 文本框获得焦点End SubPrivate Sub Text1_LostFocus()Text1.Text = 文本框失去焦点End Sub4) KeyPress事件：当焦点在当前文本框中，当用户按下并释放键盘上某键时引发的KeyPress事件，在该事件发生的同时，返回用户输入字符的ASCII码值（十进制）。例如：将输入文本框内的字符及相对应的ASCII码打印到窗题体上。程序如下：Private Sub Text1_KeyPress(KeyAscii As Integer)Dim zf As Stringzf = Chr(KeyAscii) KeyAscii为按键的