[工学]Visual Basic 实用教程 第5章.pptVIP

(2) 事件驱动的响应程序。 是否加下划线 Private Sub Check1_Click( ) If Check1.Value = 1 Then Text1.FontUnderline = True Else Text1.FontUnderline = False End If End Sub 是否斜体显示 Private Sub Check2_Click( ) If Check2.Value = 1 Then Text1.FontItalic = True Else Text1.FontItalic = False End If End Sub 单击Command按钮后Text文本框中的字体为黑体／宋体，字号为12／24 Private Sub Command1_Click( ) If Option1.Value Then Text1.FontName = 宋体 Else Text1.FontName = 黑体 End If If Option3.Value Then Text1.FontSize = 12 Else Text1.FontSize = 24 End If End Sub 终止程序 Private Sub Command2_Click( ) Unload Me End Sub 5.6 滚 动 条 5.6.1 滚动条的属性 1．基本属性 滚动条的基本属性有Name、Height、Width、Top、Left、Enabled和Visible等。 2．Max(最大值)属性 该属性表示当滑块处于滚动条最大位置时所代表的值。 3．Min(最小值)属性 该属性表示当滑块处于滚动条最小位置时所代表的值。 4．SmallChange(最小变动值)属性 该属性表示用户单击滚动条两端箭头时，滑块移动的增量值。 5．LargeChange(最大变动值)属性 该属性表示用户单击滚动条的空白处时，滑块移动的增量值。 6．Value(值)属性 该属性表示滚动条内滑块所处位置所代表的值（-32 768~32 767）。 5.6.2 滚动条响应的事件 与滚动条有关的重要事件是Scroll和Change。当拖动滑块时会触发Scroll事件，而当改变Value属性时(滚动条内滑块位置改变)会触发Chang事件。 【例5-3】 编写使用滚动条计算利息的应用程序。当通过滚动条改变本金、月份或年利率时，能立即计算出利息及利息+本金。窗体上有5个文本框：本金、月份、年利率、利息和利息+本金，其名称分别为：vsbPrincipal、hsbMonth、hsbRate、txtInterest和txtTotal。各滚动条的属性按表5.1所示进行设置。 表5.1 各滚动条的属性设置 过程Calc的功能是根据本金、月份和年利率计算利息及本金+利息，它将被各滚动条的Change事件过程调用： Sub Calc( ) Dim sTotal As Single sTotal＝sbPrincipal.Value*(1+(hsbRate.Value/100)*(hsbMonth.Value/12)) txtTotal.Text=sTotal txtInterest.Text=sTotal-vsbPrincipal.Value End Sub 下面是各滚动条的事件过程： Sub vsbPrincipal_change( ) TxtPrincipal.Text＝vsbPrincipal.Value Calc End Sub Sub hsbMonth_Change( ) txtMonth.Text = hsbMonth.Value Cal