在程序的设计阶段双击窗体，在弹出的代码窗口中找到Form_Load()事件，并且在其中添加程序的初始化代码如下：

Private Sub Form_Load()

Option1(0).Value = True

'选中第一个选项

Label2.Caption = 56 * 89

'程序的初始化

End Sub

程序说明：

首先设置控件Option1(0)处于选中的状态，即Option1(0).Value = True，然后通过语句Label2.Caption = 56 * 89来显示运算的结果。

3．响应Click事件

图2-29  代码窗口

在代码窗口中找到控件Option1的Option1_Click(Index As Integer)事件，并且在其中添加对Click事件的响应代码，代码窗口如图2-29所示。

Private Sub Option1_Click(Index As Integer)

Select Case Index

       Case 0

            Label2.Caption = 56 * 89

            '选择乘法

       Case 1

            Label2.Caption = 56 / 89

            '选择除法

       Case 2

            Label2.Caption = 56 + 89

            '选择加法

       Case 3

            Label2.Caption = 56 - 89

            '选择减法

End Select

End Sub

程序说明：

当程序运行过程中在控件Option1上单击鼠标的左键时，就会激活控件的Option1_Click(Index As Integer)事件，然后程序根据Index属性来判断用户选中的是那一个运算规则，然后通过语句Label2.Caption = 56 + 89(如果选择的是加法)来显示运算结果。

4．运行程序

选择菜单File/Save…存储文件，按键盘上的功能键F5运行程序，在程序的运行画面上选择“除法”选项，结果如图2-30所示。

图2-30  程序运行结果

2.4  使用滚动条控件

滚动条控件包括HscrollBar控件和VscrollBar控件，这些控件用于在显的示信息量很大时，为用户提供一个定位的基准。

HScroll控件 Vscroll控件

如图2-31所示即为HscrollBar控件和VscrollBar控件在工具箱上的显示情况。

图2-31  工具箱上的滑动条控件

由于HscrollBar控件和VscrollBar控件经常在一起使用，而且它们又有很多相同之处，所以在这里就把HscrollBar控件和VscrollBar控件放在一起进行讲述。

HscrollBar控件和VscrollBar控件常用的属性如表2-11所示。

表2-11 常用的属性

下面对HscrollBar控件和VscrollBar控件特有的属性作一个简单的介绍，它们分别是LargeChange属性、SmallChange属性、Max属性和Min 属性

2.4.1  LargeChange属性、SmallChange属性

       HscrollBar控件和VscrollBar控件中的LargeChange属性用于设置当用户单击滚动条和滚动箭头之间的区域时，HScrollBar或VscrollBar控件的Value 属性值的改变量。

与LargeChange属性相对，SmallChange用于设置当用户单击滚动箭头时，滚动条控件的 Value 属性值的改变量。

       它们的语法结构如下所示：

object.LargeChange [= number]

object.SmallChange [= number]

       对于LargeChange属性、SmallChange属性，有效的设置值位于1和32，767之间，缺省时，它们都被设置为1。

例如首先向窗体上添加一个HscrollBar控件和一个VscrollBar控件，然后执行下面的程序：

Private Sub Form_Load()

HScroll1.Max = 50

'设置控件HScroll1的最大值

VScroll1.Max = 50

'设置控件VScroll1的最大值

HScroll1.LargeChange = 10

'设置控件HScroll1的最大变化量

VScroll1.LargeChange = 5

'设置控件VScroll1的最大变化量

HScroll1.SmallChange = 1

'设置控件HScroll1的最小变化量

VScroll1.SmallChange = 1

'设置控件VScroll1的最小变化量

End Sub

程序的运行结果如图2-32所示。

图2-32  程序的运行结果