[工学]第12讲：控件0.ppt

主要内容 1、单选按钮的属性与事件 2、复选框的属性与事件 3、框架的属性 4、图片与图像框的属性与应用 5、列表框与组合框 6、滚动条 7、定时器 8、控件数组 引出 1 单选按钮、复选框与框架 单选按钮(OptionButton) 单选按钮(OptionButton) 【例】单选按钮选择文本框背景颜色（红、绿、蓝）。 Private Sub Form_Load() 设计窗体 Text1.Text = 天下无贼 Text1.FontSize = 24 Text1.Alignment = 2 Option1.Caption = 红色 Option2.Caption = 绿色 Option3.Caption = 蓝色 End Sub 框架(frame) 例 框架的应用 三、图片框(PictureBox) 四、图像框(Image) 图像框和图片框的区别 图像框比图片框占用的内存少，显示的速度快 图像框（Image）可以实现图片的缩放 图片框（Picture）支持Print方法输出 图片框（Picture）能作为其他控件的容器。 列表框（ListBox） 常用属性 7 Style属性 当值为0时，为标准列表框；当值为1时，为复选列表框。如图： 列表框接受的事件 列表框的方法 2.RemoveItem：从列表框中移出一个选项 格式：控件名称.RemoveItem Index list1.RemoveItem 0 ‘删除列表的第一项 3. Clear：删除列表框中的所有列表项。 Listname.Clear 【例】界面如图，实现添加项目、删除项目、删除全部项目的功能。运行结果如下： 设计界面： 在窗体上添加一个列表框（ListBox）控件，3个命令按钮。其中ListBox的Multiselect属性设置为2。 Private Sub Form_Load() ‘ 设计窗体 Command1.Caption = 添加项目 Command2.Caption = 删除项目 Command3.Caption = 全部删除 End Sub Private Sub Command1_Click（） Dim entry$ entry = InputBox(输入添加内容, 添加) List1.AddItem entry, 0 ‘ 在第一个位置添 End Sub Private Sub Command2_Click（） Dim i As Integer ‘List1的项数 For i = List1.ListCount - 1 To 0 Step -1 If List1.Selected(i) = True Then List1.RemoveItem i 删除选中项目 End If Next i End Sub Private Sub Command3_Click（） List1.Clear 全部删除 End Sub 组合框（ComboBox ） 组合框（ComboBox ） 滚动条 3．属性 （1）Max属性－默认值为32767 滚动条所能表示的最大值（右或下端）。 （2）Min属性－默认值为0 滚动条所能表示的最小值。 （3）Value属性 范围为： -32,768~32,767 表示当前滚动条所代表的值。 范围在Max与Min之间。 【例】 :利用滚动条调节颜色 Private Sub Form_Load() Label1.Caption = 红色值： HScroll1.Value Label2.Caption = 绿色值： HScroll2.Value Label3.Caption = 蓝色值： HScroll3.Value Text1.BackColor = RGB(HScroll1.Value, HScroll2.Value, HScroll3.Value) End Sub Private Sub HScroll1_Scroll() Label1.Caption = 红色值： HScroll1.Value Text1.BackColor = RGB(HScroll1.Value, HScroll2.Value, HScroll3.Value) End Sub Private Sub HScroll2_Scroll() Label2.Caption = 绿色值：