vb6-常用控件

Check1 Combo1 Text1
Check2 Option1 Option2
5.2 滚动条和Slider控件
Slider控件
n
Value Max
Min
Max SmallChange LargeChange
共同具有的重要属性: Max：最大值 -32 758~32 757 Min：最小值 -32 758~32 757 SmallChange 最小变动值，单击箭 头时移动的增量值。 LargeChange 最大变动值，单击空 白处时移动的增量值。 Value 滑块所处位置所代表的值。
文本框的换行输出: Private Sub Command1_Click() For i = 1 To 100 step 2 text1 =text1+format(str(i),”@@@”) Sum = Sum + i N=n+1 If n mod 5=0 then text1=text1+vbcrlf Next i Text2= Sum End Sub
If d = 0 Then X1 = p : X2 = p If d < 0 Then q = Sqr(-d) / (2 * a) p = CInt(p * 100) / 100 q= CInt(q * 100) / 100 X1 = p& "+" & q & "I " X2 = p & "-" & q & "I" endif Text4.Text = X1 Text5.Text = X2 endsub
滚动条的事件：
1.Scroll： 拖动滑块时会触发Scroll事件。 2.Change： Value属性改变时触发Change事件。 例1. 用一个文本框(txtSpeed)显示 滚动条(hsbSpeed)滑块当前位置所 代表的值。
Sub hsbSpeed_Change() Text1.Text = HScroll1.Value End Sub
求阶乘1!+2!+3!+……+10!的和
Private Sub Command1_Click() p=1 For i = 1 To 10 p=p*i Sum = Sum + p Next i Print "1!+2!+3!+……+10!="; Sum End Sub
Private Sub Command1_Click() b=1 :a=2 :i=1 Print "no."; i; "="; a; "/"; b For i = 2 To 20 a = a+b b = a-b Print "no."; i; "="; a; "/"; b Next i End Sub
5.1 单选钮和复选框、框架
1单选钮 （OptionButton） 一组彼此相互排斥 的选项，任何时刻 用户只能从中选择 一个选项，实现一 种“单项选择”的 功能，被选中项目 左侧圆圈中会出现 一黑点。
单选按钮
Private SubOption3_Click() If Option3.Value Then _ Text1.ForeColor = vbRed End Sub Private Sub ption4_Click() If Option4.Value Then _ Text1.ForeColor = vbBlue End Sub
二者共有的重要属性:
• List 字符型数组，存放列表框的项目，下标是从0开始。 • ListIndex 选中的项目的序号，没有项目被选定时为-1 • ListCount 项目的数量，ListCount-1是最后一项的下标。 • Sorted True：按字母顺序排列。 False：按加入先后顺序排列。 • Text 列表项中被选定的内容， List 1.List(List 1.ListIndex) = List1.Text。
运行界面 (计算一元二次方程的实根）
第五章 常 用 控 件
5.1单选按钮和复选框形状控 件 5.2列表框和组合框 5.3 滚动条和Slide控件 5.4时钟 5.5 图片框和图像框 5.5 ProgressBar控件 5.7 UpDown控件 5.8 Animation控件 5.9 SSTab控件 5.10 鼠标器和键盘
Private Sub Command1_Click() HScroll1.Value = Int(Rnd * 10) Text1 = HScroll1.Value End Sub
例2. 调色板程序。
练习： 用Scroll控件设置文 本框中的字体大小。
Private Sub HScroll1_Change() Text1.FontSize = HScroll1.Value + 30 End Sub
练习1.对列表框进行项目添加、 修改和删除操作。
添加项目:
List1.AddItem "创建窗体" List1.AddItem "编写代码" List1.AddItem "保存文件" List1.AddItem "运行程序"
删除项目:
List1.RemoveItem i
练习2. 对列表框进行项目添加、修 改和删除操作。
检查框与单选按钮Value 属性的比较
单选钮 True: 单选钮被选定 False: 单选钮未被选定 检查框 0--Unchecked：未被选 定 1--Checked：选定 2--Grayed：灰色，禁止 选择
用法示例
Private Sub Command1_Click() If Check1.Value = 1 Then Text1.FontBold = True Else Text1.FontBold = False endif If Check2.Value = 1 Then Text1.FontItalic = True _ Else Text1.FontItalic = False If Option1.Value = True Then Text1.FontName = "宋体" If Option2.Value = True Then Text1.FontName = "黑体" If Option3.Value = True Then Text1.ForeColor = vbRed If Option4.Value = True Then Text1.ForeColor = bYellow End Sub
Combo1 组合框
1.下拉式组合框 2.简单组合框 3.下拉式列表框
1
2
3
组合框各主要属性的值： combo1.ListIndex = 0 combo1. ListCount = 8 combo1. Selected(3) = True 其余为False。 combo1. Sorted = False combo1. Text 为 “李宁”
列表框和组合框
1.列表框 List1
列表框各主要属性的值：
1. 索引 List1.ListIndex = 3 (下标从0开始的) 2. 列表项数目 List1. ListCount = 5 3. 是否被选 List1. Selected(3) = True，其余为False。 4.是否排序 List1. Sorted = False， 没有排序。 List1. Text 为 “cox” ，相等与 List1. List(List1. listIndex)
输入 能 能 不能
方法: 1. AddItem 对象.AddItem item [, index] 2. RemoveItem 对象.RemoveItem index 3. Clear 对象.Clear
5. 事件 列表框：Click、DblClick。 组合框：Click，只有简单组合框才有 DblClick事件。 一般不需要编写Click事件过程。 通常在单击命令按钮或发生DblClick事件时 才读取Text属性。
复选框 （CheckBox）也 称作、选择框。 一组复选框控件 可以提供多个选 项 重要属性： Caption、 Vlalue、Style与 单选钮相同 复选框
Private Sub Check1_Click() If Check1.Value = vbChecked Then Text1.FontBold = True End Sub (错误的写法) Private Sub Check2_Click() If Check2.Value = vbChecked Then Text1.FontItalic = True Else Text1.FontItalic = False End If End Sub
代码设计 方法二： (计算一元二次方程的根）
Private Sub Command1_Click() a = Val(Text1) b = Val(Text2) c = Val(Text3) d=b*b-4*a*c p = -b / (2 * a) 接下页：
If d >= 0 Then If d > 0 Then q = Sqr(d) / (2 * a) X1 = p + q ： X2 = p - q Else X1 = p ： X2 = p End If Else q = Sqr(-d) / (2 * a) p = CInt(p * 100) / 100 : q= CInt(q * 100) / 100 X1 = p& "+" & q & "I " : X2 = p & "-" & q & "I" End if Text4.Text = X1 ： Text5.Text = X2 End sub