第3章基本控件汇总.ppt

例如：利用滚动条移动 PictureBox 控件穿过窗体，如图3-16所示，程序如下： Private Sub Form_Load() HScroll1.Max = 100 设置最大值 HScroll1.LargeChange = 20 敲击空白处 5 次后穿过 HScroll1.SmallChange = 5 敲击左右箭头 20 次后穿过 Picture1.Left = 0 图形从左边开始 Picture1.BackColor = HFF00FF 设置图形框为粉颜色 HScroll1.Value = 10 设置滑动块初始位置 End Sub Private Sub HScroll1_Change() 按照滚动条移动图形 Picture1.Left = (HScroll1.Value / 100) * ScaleWidth End Sub 图3-16 利用滚动条移动 PictureBox 控件示例 3.7复选框与单选框 为便于用户的选择输入操作并保证输入数据的合法性以及减少输入错误，大多数应用程序都需要向用户提供选择功能，VB提供了两种用于选择的标准控件，复选框和单选按钮控件，如图3-17所示。这两种控件的特点都是向用户提供选择项目，用户只需通过鼠标单击选项，就可以完成对项目选择。因此这两个控件都接收鼠标单击事件，但通常不需要对此事件编程，而是根据用户用鼠标单击控件后，它们自动改变的状态编程。 图3-17复选框和单选按钮控件 3.7.1复选框（CheckBox）控件 1．常用属性 复选框的部分属性，如名称、Caption、BackColor、Enabled、ForeColor 、Font、 Height、Visible 、Width、Top与 Left等属性与窗体及其他控件的属性相同。另外，还可以使用如下属性： Value属性（返回或设置控件的状态） Value 属性指示复选框处于未选定、选定和禁止状态（灰色的）中的哪一种状态。该属性可以通过属性窗口设置，属性值有三个，缺省值为0。属性值的描述见下表： 表3-12 Value属性 常数 设置值 描述 vbUnchecked 0 表示未被选中（缺省） vbChecked 1 表示被选中 vbGrayed 2 灰色，表示禁止选择 该属性也可以在运行中通过程序代码重新设置，语句格式为： 对象.Value [=常数/设置值] 2．常用事件 单击 CheckBox 控件都将触发 Click 事件(不支持双击事件)，则可根据复选框的状态，编写程序代码完成某些操作。例如：每次单击 CheckBox 控件时都将改变其 Caption 属性以指示选定或未选定状态。程序如下： Private Sub Check1_Click() 　　If Check1.Value = vbChecked Then　 当Check1被选中时 　　　　Check1.Caption =Checked 　　ElseIf Check1.Value = vbUnchecked Then 　　　　Check1.Caption = Unchecked 未选中则显示Unchecked 　　End If End Sub 对象 属性 设置 窗体 Name Form1 Caption 复选框应用 文本框 Name Text1 Text Text1 复选框1 Name Check1 Caption 粗体 A 复选框2 Name Check2 Caption 斜体 B 复选框3 Name Check3 Caption 下划线 C 3．应用举例 例如：选择复选框改变文本框中字符格式，如图3-18所示： 图3-18 应用举例运行界面 对象属性设置见下表： 表3-13应用举例界面对象设置 程序代码如下： Private Sub Check2_Click() If Check2.Value = 1 Then Text1.FontItalic = True 设为斜体 Else Text1.FontItalic = False End If End Sub ? Private Sub Check3_Click() If Check3.Value = 1 Then Text1.FontUnderline = True 带下划线 Else Text1.FontUnderline = False End If