《vb6-常用控件剖析》由会员分享，可在线阅读，更多相关《vb6-常用控件剖析（79页珍藏版）》请在金锄头文库上搜索。
1、文本框的换行输出: 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,求阶乘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!=“; S
2、um 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,例：输入三角形的三条边长，计算三 角形面积。,界面,Private Sub Command1_Click() A = Val(Text1.Text) B = Val(Text2.Text) C = Val(Text3.Text) L = A + B C An
3、d B + C A And C + A B If L Then S = (A + B + C) / 2 Area = Sqr(S * (S - A) * (S - B) * (S - C) Text4.Text = Area Else Text4.Text = “不能构成三角形“ End If End Sub, 程序代码,运行结果,Private Sub Command1_Click() a = Val(Text1): b = Val(Text2): c = Val(Text3) L = a + b b Or b c Or c a Then Text4 = “一般三角形“ If a = b O
4、r b = c Or c = a Then Text4= “等腰三角形“ If a = b And b = c And c = a Then Text4 = “等边三角形“ S = (a + b + c) / 2 Area = Sqr(S * (S - a) * (S - b) * (S - c) Text4.Text = Area End Sub,界面设计(计算一元二次方程的实根）,代码设计 (计算一元二次方程的根） Private Sub Command1_Click() a = Val(Text1) b = Val(Text2) c = Val(Text3) d = b * b - 4
5、* a * c p = -b / (2 * a) If d 0 Then r = Sqr(d) / (2 * a) X1 = p + r X2 = p r endif,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,代码设计 方法二： (计算一
6、元二次方程的根） 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) / 10
7、0 X1 = p& “+“ & q & “I “ : X2 = p & “-“ & q & “I“ End if Text4.Text = X1 ： Text5.Text = X2 End sub,运行界面 (计算一元二次方程的实根）,第五章 常 用 控 件,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 鼠标器和键盘,5.1 单选钮和复选框、框架,1单选钮 （OptionButton） 一组彼
8、此相互排斥的选项，任何时刻用户只能从中选择一个选项，实现一种“单项选择”的功能，被选中项目左侧圆圈中会出现一黑点。,单选按钮,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,复选框 （CheckBox）也称作、选择框。一组复选框控件可以提供多个选项 重要属性： Caption、Vlalue、Style与单选钮相同
9、,复选框,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,检查框与单选按钮Value 属性的比较,用法示例,Private Sub Command1_Click() If Check1.Valu
10、e = 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 = vbR
11、ed If Option4.Value = True Then Text1.ForeColor = bYellow End Sub,列表框和组合框,1.列表框 List1,索引 List1.ListIndex = 3 (下标从0开始的) 列表项数目 List1. ListCount = 5 3. 是否被选 List1. Selected(3) = True，其余为False。 4.是否排序 List1. Sorted = False， 没有排序。 List1. Text 为 “cox” ，相等与 List1. List(List1. listIndex),列表框各主要属性的值：,Combo1组
12、合框,1.下拉式组合框,2.简单组合框,3.下拉式列表框,1 2 3,组合框各主要属性的值： combo1.ListIndex = 0 combo1. ListCount = 8 combo1. Selected(3) = True 其余为False。 combo1. Sorted = False combo1. Text 为 “李宁”,List 字符型数组，存放列表框的项目，下标是从0开始。 ListIndex 选中的项目的序号，没有项目被选定时为-1 ListCount 项目的数量，ListCount-1是最后一项的下标。 Sorted True：按字母顺序排列。 False：按加入先后顺
13、序排列。 Text 列表项中被选定的内容， List 1.List(List 1.ListIndex) = List1.Text。,二者共有的重要属性:,2. 列表框的特有属性 Selected 逻辑数组。 Selected(i)的值为True表示第i+1项被选中。 MultiSelect 0-None：禁止多项选择。 1-Simple：简单多项选择。 2-Extended：扩展多项选择。,方法: 1. AddItem 对象.AddItem item , index 2. RemoveItem 对象.RemoveItem index 3. Clear 对象.Clear,5. 事件 列表框：Cl
14、ick、DblClick。 组合框：Click，只有简单组合框才有DblClick事件。 一般不需要编写Click事件过程。 通常在单击命令按钮或发生DblClick事件时才读取Text属性。,练习1.对列表框进行项目添加、修改和删除操作。,添加项目: List1.AddItem “创建窗体“ List1.AddItem “编写代码“ List1.AddItem “保存文件“ List1.AddItem “运行程序“,删除项目: List1.RemoveItem i,练习2. 对列表框进行项目添加、修改和删除操作。,Check1,Combo1,Text1,Check2,Option1,Opti
15、on2,5.2 滚动条和Slider控件,SmallChange Min Value Max,LargeChange,Slider控件,Min,Max,SmallChange,LargeChange,共同具有的重要属性: Max：最大值 -32 75832 757 Min：最小值 -32 75832 757 SmallChange 最小变动值，单击箭头时移动的增量值。 LargeChange 最大变动值，单击空白处时移动的增量值。 Value 滑块所处位置所代表的值。,1.Scroll： 拖动滑块时会触发Scroll事件。 2.Change： Value属性改变时触发Change事件。 例1.
16、 用一个文本框(txtSpeed)显示滚动条(hsbSpeed)滑块当前位置所代表的值。,滚动条的事件：,Sub hsbSpeed_Change() Text1.Text = HScroll1.Value End Sub,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,时钟控件以Interval为时间间隔产生 Timer事件。 属性：1. Interval属性 单位：ms(0.001s)，0.5秒是500。 Interval0：屏蔽计时器。 2
