《vb电子教材04》由会员分享，可在线阅读，更多相关《vb电子教材04（31页珍藏版）》请在金锄头文库上搜索。
1、第 4 章 常用控件二经过上一章的介绍，我们对控件已经有了一个初步的了解。本章我们将进一步介绍一些常用的控件：单选按钮、复选框、框架、列表框、组合框、滚动条、定时器。4.1 单选按钮控件工具箱中单选按钮控件的图标为。单选按钮控件时常出现在一些 Windows 应用程序中，比如我们在加入某个俱乐部的时候，会被告之填写一些电子表格，如图 4-1 所示。图 4-1 入会电子表格在性别这一栏，我们只需要在按钮上点击选择即可，非常方便，而且也不会出现重复选择的情况，即不会出现男女同时被选中的情况。因此说，单选按钮是具有排他性的，若选中某一个按钮则取消其他被选中的按钮，只允许一个按钮被选中。为了更好的利用
2、单选按钮，在实际应用中，常使用单选按钮的控件数组。4.1.1 单选按钮控件的常用属性1Caption 属性（字符类型）属性（字符类型）Caption 属性值是显示在控件上的文本，是单选按钮的标题，如图 4-1 中的“男”，“女”。单选按钮的该属性以及名称的缺省值都为 Option1、Option2、2Alignment 属性（取值为整数属性（取值为整数 0、1）Alignment 属性决定单选按钮的标题（Caption 属性值）在控件上的位置。Visual Basic 6.0 程序设计教程110 属性值为 0，表示左对齐（Left Justify)，即单选按钮的标题在右边，此为默认方式。如图
3、4-2 所示，控件 Option1 的标题“Option1”。图 4-2 单选按钮对齐属性说明 属性值为 1，表示右对齐（right justify)，即单选按钮的标题在左边，如图 4-2 所示，控件 Option2 的标题“Option2”。 3Enabled 属性（逻辑类型）属性（逻辑类型）控件的 Enabled 属性值为 False 时，控件显示为灰色，运行时不可用。就是说，此时若该控件的某一事件发生，相应的事件过程不会被调用。4Index 属性（整数类型）属性（整数类型）Index 属性值标识为单选按钮组成的控件数组中某个按钮的索引值，利用控件数组的方式使用单选按钮，可以简化代码，增强
4、代码的可读性。下列过程为控件数组 Option1 的单击事件过程，运行时单击其中第一个按钮时 Index 属性值为 0，执行语句“Call pro1”；单击其中第二个按钮时 Index 属性值为 1，执行语句“Call pro2”；等等。Private Sub Option1_Click(Index As Integer)Select Case IndexCase 0Call pro1Case 1Call pro2Case 2Call pro3End SelectEnd Sub5TabIndex 属性（整数类型）属性（整数类型）建立控件时，VB 自动为其分配一个 TabIndex 值（Menu
5、、Timer、Data、Image、Line 和Shape 等控件除外，这些控件不包括在 Tab 键顺序中），利用 Tab 键可以在控件之间切换焦第 4 章 常用控件二111点。6Value 属性（逻辑类型）属性（逻辑类型）反映控件状态的属性，返回 True 表示已选择了该按钮；返回 False（缺省值）表示没有选择该按钮，使用这个属性可以判断哪个按钮被选中。4.1.2 单选按钮的常用事件和命令按钮一样，单选按钮最常用的也是 Click 事件。在界面设计时，各控件一般按控件建立的时序，自动获得 TabIndex 属性值。有些控件可以响应“获得焦点”事件（如文本框、单选按钮控件，相应的事件过程名
6、为Text1_GotFocus、Option1_GotFocus，等等）。运行时，这些控件中 TabIndex 属性值为最小的控件首先获得焦点。文本框控件获得焦点，光标会在文本框内闪烁；命令按钮控件获得焦点，按回车键则该命令按钮的 Click 事件响应；单选按钮取得焦点后、执行 GotFocus 事件，还执行 Click 事件。例 4-1 由文本框输入数据，求出该角度的正弦，余弦，正切，反正切三角函数值。 界面设计，如图 4-3 所示。在本例中，应保证任何一个单选按钮的 TabIndex 属性值都不小于文本框、命令按钮的TabIndex 属性值（可以在属性窗口中修改），否则，运行时单选按钮控件
7、首先获得焦点、自动执行 Click 事件，导致在没有输入“角度”的情况下计算函数值。图中控件的部分属性设置如下：Label1.Caption = “角度:“ （字体为隶书、三号字）Text1.Text = “Command1.Caption = “EXIT“Option1.Caption = “Sin 正弦值“Option2.Caption = “Cos 余弦值“Option3.Caption = “Tan 正切值“Option4.Caption = “Atn 反正切值“Label2.Caption = “Label3.Caption = “Label4.Caption = “ Visual
8、Basic 6.0 程序设计教程112图 4-3 例 4-1 之界面设计 过程设计Private Sub Command1_Click() EXIT 按钮，用于退出EndEnd SubPrivate Sub Option1_Click()Label2.Caption = “Sin“ + “Label3.Caption = “=“Label4.Caption = Str(Sin(Val(Text1.Text) * 3.14159265 / 180)End SubPrivate Sub Option2_Click()Label2.Caption = “Cos“ + “ : Label3.Capti
9、on = “=“Label4.Caption = Str(Cos(Val(Text1.Text) * 3.14159265 / 180)End SubPrivate Sub Option3_Click()Label2.Caption = “Tan“ + “Label3.Caption = “=“Label4.Caption = Str(Tan(Val(Text1.Text) * 3.14159265 / 180)End SubPrivate Sub Option4_Click()Label2.Caption = “Atn“ + “Label3.Caption = “=“Label4.Capti
10、on = Str(Atn(Val(Text1.Text) * 3.14159265 / 180)End Sub标签控件 Label4 用来显示结果。在求三角函数的时候要注意计算机计算的是弧度，而不是角度，所以在计算时我们要把它们转换过来，计算公式为：弧度值角度值*3.14159265/180程序的运行结果如图 4-4 所示。第 4 章 常用控件二113图 4-4 例 4-1 之运行结果例 4-2 重新设计例 4-1 中的程序，将四个单选按钮控件合为一个控件数组。将例 4-1 的程序简化，由于其中四组计算不同三角函数值的程序代码极为相似，只是在运算时使用的三角函数不同而已，因此可以用控件数组的方
11、法来实现，在添加 OptionButton 时利用复制粘贴的办法来产生控件数组中各个控件。界面设计的外观与图 4-3 完全一致，但此时，单选按钮已产生了变化：它们共同响应一个Click 事件，由 Index 来区分不同的按钮。 界面设计参照例 4-1 中界面设计，不同的是各单选按钮组成了一个控件数组，属性设置如下：Option1(0).Caption = “Sin 正弦值“Option1(1).Caption = “Cos 余弦值“Option1(2).Caption = “Tan 正切值“Option1(3).Caption = “Atn 反正切值“ 过程设计Private Sub Opti
12、on1_Click(Index As Integer)Dim x As SingleLabel3.Caption = “=“Select Case IndexCase 0Label2.Caption = “Sin“ + “x = Sin(Val(Text1.Text) * 3.14159265 / 180)Label4.Caption = Format(x,“0.00“)Case 1Label2.Caption = “Cos“ + “x = Cos(Val(Text1.Text) * 3.14159265 / 180)Label4.Caption = Format(x,“0.00“)Case
13、2Label2.Caption = “Tan“ + “x = Tan(Val(Text1.Text) * 3.14159265 / 180)Label4.Caption = Format(x,“0.00“)Case 3Label2.Caption = “Atn“ + “x = Atn(Val(Text1.Text) * 3.14159265 / 180)Label4.Caption = Format(x,“0.00“)End SelectEnd Sub程序中的函数 Format 的作用是：计算其第一个数值参数的值，用其第二个参数所提供的格式、将该数值转换为字符串返回。在此，格式串“0.00“使
14、三角函数值保留小数点后两位Visual Basic 6.0 程序设计教程114（整数部分的位数不限）。4.2 复选框控件工具箱中复选框控件的图标为 。与上节所介绍的单选按钮控件作比较，复选框意味着多项选择。与单选按钮不同的是，它每次可在同组的复选框中选择多个结果，如图 4-5 所示。图 4-5 复选框示例一般情况下，复选框控件是以数组的方式添加的，而是否被选中可以由它的属性 Value 的值进行判断。4.2.1 复选框控件的常用属性 Caption 属性（字符类型）属性（字符类型）复选框控件的 Caption 属性以及名称的缺省值都为 Check1、Check2、 Index 属性（整数类型）
15、属性（整数类型）该属性值为复选框控件数组的下标，一般来说，使用控件数组时这是不可少的属性，通过它可以区分开同一控件数组中的不同复选框。3Value 属性（整数属性（整数 0、1、2）复选标志，这是复选框最重要的属性，它的值与复选框控件的状态有关，其缺省值为 0。 Value 属性值为 0，则复选框内为空白；Value 属性值为 1，则复选框内显示一个“”标志；Value 属性值为 2，则复选框内为灰色的“”标志。 运行时单击复选框：如果原先 Value 属性值为 0（同时框内显示空白），单击后 Value 属性值变为 1（同时框内显示“”标志）。如果原先 Value 属性值为 1 或 2（同时
16、框内显示黑白或灰色的“”标志），单击后 Value第 4 章 常用控件二115属性值变为 0（同时框内显示空白）。反复单击同一复选框控件时，其 Value 属性值只能在 0、1 之间交替变换。4.2.2 复选框控件的常用事件复选框控件的常用事件一般为 Click 事件，复选框不支持鼠标双击事件，系统把一次双击解释为两次单击事件。例 4-3 利用复选框设置字型变化：加下划线、加粗、斜体，文字用标签框显示。 界面设计，如图 4-5 所示。图 4-5 例 4-3 之界面设计控件的部分属性设置如下：Lable1.Caption = “Visual Basic“ Check1.Caption = “加粗“Check2.Caption = “下划线“Check3.Caption = “斜体“ 过程设计Private Sub Check1_Click()If Check1.Value = 1 ThenLabe
