vb6-常用控件

1、vb6-常用控件文本框的换行输出文本框的换行输出: Private Sub Command1_Click()For i = 1 To 100 step 2 text1 =text1+format(str(i),”) Sum = Sum + i N=n+1If n mod 5=0 then text1=text1+vbcrlfNext i Text2= Sum End Subvb6-常用控件求阶乘1!+2!+3!+10!的和Private Sub Command1_Click() p = 1For i = 1 To 10p = p * iSum = Sum + pNext iPrint 1!+2

2、!+3!+10!=; SumEnd Subvb6-常用控件vb6-常用控件Private Sub Command1_Click()b = 1 : a = 2 : i = 1Print no.; i; =; a; /; bFor i = 2 To 20 a = a+b b = a-bPrint no.; i; =; a; /; bNext iEnd Subvb6-常用控件vb6-常用控件vb6-常用控件vb6-常用控件Private Sub Command1_Click()a = Val(Text1): b = Val(Text2): c = Val(Text3) L = a + b = c O

3、r b + c = a Or c + a = bIf L Then Text4 = 不能构成三角形 : Exit SubIf a b Or b c Or c a Then Text4 = 一般三角形“If a = b Or 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 = AreaEnd Subvb6-常用控件vb6-常用控件vb6-常用

4、控件vb6-常用控件vb6-常用控件vb6-常用控件vb6-常用控件第五章第五章 常常 用用 控控 件件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 鼠标器和键盘鼠标器和键盘vb6-常用控件5.1 单选钮和复选框、框架单选钮和复选框、框架1单选钮单选钮（OptionButton）一组彼此相互排斥一组彼此相互排斥的选项，任何时刻的

5、选项，任何时刻用户只能从中选择用户只能从中选择一个选项，实现一一个选项，实现一种种“单项选择单项选择”的的功能，被选中项目功能，被选中项目左侧圆圈中会出现左侧圆圈中会出现一黑点。一黑点。单选按钮vb6-常用控件vb6-常用控件Private SubOption3_Click()If Option3.Value Then _ Text1.ForeColor = vbRedEnd SubPrivate Sub ption4_Click()If Option4.Value Then _Text1.ForeColor = vbBlueEnd Subvb6-常用控件复选框复选框（CheckBox）也）也

6、称作、选择框。称作、选择框。一组复选框控件一组复选框控件可以提供多个选可以提供多个选项项重要属性：重要属性： Caption、Vlalue、Style与与单选钮相同单选钮相同复选框vb6-常用控件vb6-常用控件Private Sub Check1_Click()If Check1.Value = vbChecked Then Text1.FontBold = TrueEnd Sub (错误的写法错误的写法)Private Sub Check2_Click()If Check2.Value = vbChecked Then Text1.FontItalic = True Else Text1.

7、FontItalic = False End IfEnd Subvb6-常用控件检查框与单选按钮检查框与单选按钮Value 属性的比较属性的比较单选钮单选钮检查框检查框True: 单选钮被选定单选钮被选定False: 单选钮未被选定单选钮未被选定0-Unchecked：未被选：未被选定定1-Checked：选定：选定2-Grayed：灰色，禁止：灰色，禁止选择选择vb6-常用控件用法示例用法示例vb6-常用控件Private Sub Command1_Click()If Check1.Value = 1 Then Text1.FontBold = True ElseText1.FontBold

8、 = FalseendifIf Check2.Value = 1 Then Text1.FontItalic = True _ Else Text1.FontItalic = FalseIf Option1.Value = True Then Text1.FontName = 宋体If Option2.Value = True Then Text1.FontName = 黑体If Option3.Value = True Then Text1.ForeColor = vbRedIf Option4.Value = True Then Text1.ForeColor = bYellowEnd S

9、ubvb6-常用控件列表框和组合框列表框和组合框1.列表框列表框 List1vb6-常用控件vb6-常用控件索引索引List1.ListIndex = 3 (下标从下标从0开始的开始的)列表项数目列表项数目List1. ListCount = 53. 是否被选是否被选List1. Selected(3) = True，其余为，其余为False。4.是否排序是否排序 List1. Sorted = False， 没有排序。没有排序。 List1. Text 为为 “cox” ，相等与，相等与List1. List(List1. listIndex)列表框各主要属性的值：列表框各主要属性的值：vb

10、6-常用控件Combo1组合框组合框 1.1.下拉式组合框下拉式组合框 2.2.简单组合框简单组合框 3.3.下拉式列表框下拉式列表框 1 2 3vb6-常用控件组合框组合框各主要属性的值：各主要属性的值： combo1.ListIndex = 0 combo1. ListCount = 8combo1. Selected(3) = True其余为其余为False。 combo1. Sorted = False combo1. Text 为为 “李宁李宁”vb6-常用控件 List 字符型数组，存放列表框的项目，下标是从字符型数组，存放列表框的项目，下标是从0开始。开始。 ListIndex

11、选中的项目的序号，没有项目被选定时为选中的项目的序号，没有项目被选定时为- -1 ListCount项目的数量，项目的数量，ListCount-1是最后一项的下标。是最后一项的下标。 Sorted True：按字母顺序排列。：按字母顺序排列。 False：按加入先后顺序排列。：按加入先后顺序排列。 Text列表项中被选定的内容，列表项中被选定的内容， List 1.List(List 1.ListIndex) = List1.Text。二者共有的重要属性二者共有的重要属性:vb6-常用控件2. 列表框的特有属性列表框的特有属性Selected 逻辑数组。 Selected(i)的值为True表

12、示第i+1项被选中。MultiSelect 0-None：禁止多项选择。 1-Simple：简单多项选择。 2-Extended：扩展多项选择。vb6-常用控件类型类型Style输入输入下拉式组合框0能简单组合框1能下拉式列表框2不能vb6-常用控件方法方法:1. AddItem 对象对象.AddItem item , index2. RemoveItem 对象对象.RemoveItem index3. Clear 对象对象.Clearvb6-常用控件5. 事件事件列表框：列表框：Click、DblClick。组合框：组合框：Click，只有简单组合框才有只有简单组合框才有DblClick事件

13、。事件。 一般不需要编写一般不需要编写Click事件过程。事件过程。通常在单击命令按钮或发生通常在单击命令按钮或发生DblClick事件时事件时才读取才读取Text属性。属性。 vb6-常用控件练习1.对列表框进行项目添加、修改和删除操作。vb6-常用控件添加项目添加项目:List1.AddItem 创建窗体创建窗体List1.AddItem 编写代码编写代码List1.AddItem 保存文件保存文件List1.AddItem 运行程序运行程序删除项目删除项目:List1.RemoveItem ivb6-常用控件练习练习2. 对列表框进行项目添加、修改和删除操作。 Check1Combo1T

14、ext1Check2Option1Option2vb6-常用控件5.2 滚动条和滚动条和Slider控件控件SmallChange Min Value MaxLargeChangeSlider控件vb6-常用控件MinMaxSmallChangeLargeChangevb6-常用控件共同具有的重要属性共同具有的重要属性:Max：最大值 -32 75832 757Min：最小值 -32 75832 757SmallChange 最小变动值，单击箭头时移动的增量值。LargeChange 最大变动值，单击空白处时移动的增量值。Value 滑块所处位置所代表的值。vb6-常用控件1.Scroll：拖

15、动滑块时会触发Scroll事件。2.Change：Value属性改变时触发Change事件。例1. 用一个文本框(txtSpeed)显示滚动条(hsbSpeed)滑块当前位置所代表的值。滚动条的事件：滚动条的事件：vb6-常用控件Sub hsbSpeed_Change() Text1.Text = HScroll1.Value End Subvb6-常用控件Private Sub Command1_Click()HScroll1.Value = Int(Rnd * 10)Text1 = HScroll1.ValueEnd Subvb6-常用控件例例2. 调色板程序。调色板程序。vb6-常用控件

16、练习：练习： 用用Scroll控件设置文控件设置文本框中的字体大小。本框中的字体大小。Private Sub HScroll1_Change()Text1.FontSize = HScroll1.Value + 30End Subvb6-常用控件时钟控件以Interval为时间间隔产生 Timer事件。属性：属性：1. Interval属性 单位：ms(0.001s)，0.5秒是500。 Interval0：屏蔽计时器。2. Enabled属性 True：有效计时 False：停止时钟工作事件：事件：Timer5.3 时钟时钟(Timer)控件控件vb6-常用控件例例1.计数器和时钟计数器和时

17、钟vb6-常用控件例例1.计数器和时钟、闹钟计数器和时钟、闹钟Private Sub Timer1_Timer()Text1 = Val(Text1) + 1Label1 = NowEnd Sub 时钟时钟Private Sub Command1_Click()Timer1.Enabled = TrueEnd SubPrivate Sub Command2_Click()Timer1.Enabled = FalseEnd Subvb6-常用控件Private Sub Timer1_Timer()Text2 = TimeIf Text1 = Mid(Text2.Text, 4, 2) Then

18、BeepEnd Sub 闹钟闹钟闹闹钟钟vb6-常用控件vb6-常用控件例例2.小球移动小球移动vb6-常用控件Private Sub Timer1_Timer()If Shape1.Top Form1.ScaleHeight Then flag = -1If flag = 0 Then Shape1.Top = Shape1.Top + 10If flag = -1 Then Shape1.Top = Shape1.Top - 10End Subvb6-常用控件例例2.蝴蝶飞舞蝴蝶飞舞vb6-常用控件Private Sub butterfly()If flap = 0 Then Pictur

19、e1.Picture= Picture3.Pictureflap = 1 Else Picture1.Picture= Picture2.Pictureflap = 0 End IfEnd Subvb6-常用控件Private Sub Timer1_Timer() If flag = 1 Then x = x + 120 y = y - 50 Picture1.Move x, y butterfly End IfEnd Subvb6-常用控件5.4 5.4 图形控件图形控件vb6-常用控件1. PictureBox(1. PictureBox(图形框图形框) )u主要作用：显示图片、也可作为其

20、他控件的容器。u装入图形： Picture1.Picture =LoadPicture(d:123.jpg)u删除图形： Picture1.Picture = LoadPicture( )uAutosize属性设置为True时，图形框能自动调整 大小与显示的图片匹配。vb6-常用控件2. image(2. image(图像框图像框) )u图像框比图形框占用更少的内存块。图像图像框比图形框占用更少的内存块。图像 框内不能框内不能 保存其他控件。保存其他控件。uStretch属性属性=False，图像框可自动改变大，图像框可自动改变大小，以适小，以适 应其中的图形。应其中的图形。uStretch属

21、性属性=True， 图形可自动调整尺寸，图形可自动调整尺寸，以适应以适应图像框的大小。图像框的大小。vb6-常用控件举例举例: :u装入图片装入图片:Private Sub Command1_Click() Picture1.Picture = LoadPicture(d:123.jpg) Image1.Picture = LoadPicture(d:123.jpg)End Subu清空图片清空图片:Private Sub Command2_Click() Picture1.Picture = LoadPicture() Image1.Picture = LoadPicture( )End S

22、ubvb6-常用控件u交换图片交换图片:Private Sub Command3_Click(image3.Picture = Image1.PictureImage1.Picture = Image2.Pictureicture2.Picture = Image3.PictureEnd Subvb6-常用控件3.3.形状控件形状控件shape shape 与与Line(Line(画线工具画线工具) )vb6-常用控件vb6-常用控件uShape 控件的主要属性控件的主要属性: shape1.shape=2uFillstyle: 改变填充的样式改变填充的样式 shape1.bordercolo

23、r=vbred uBackcolor 改变填充的颜色改变填充的颜色 shape1.backcolo=vbblueuFillcolor 改变线条的颜色改变线条的颜色vb6-常用控件3. 3. 图形方法图形方法uPset方法用于画点：方法用于画点： 对象对象. Pset Step (x,y) ,颜色颜色u参数参数(x,y)为所画点的坐标为所画点的坐标,关键字关键字Step表表示采用当前作图位置的相对值示采用当前作图位置的相对值vb6-常用控件画点画点Private Sub Command1_Click()Scale (0, 0)-(100, 100)DrawWidth = 30For i = i

24、To 10px = Rnd * 100 ：py = Rnd * 100pred = Rnd * 255pgreen = Rnd * 255pblue = Rnd * 255PSet (px, py), RGB(pred, pgreen, pblue)Next iEnd Subvb6-常用控件Line方法画直线或矩形：方法画直线或矩形：对象. Line Step (x1,y1)-(x2,y2),颜色,BF其中：对象可以是窗体或图形框。 (x1,y1) ，(x2,y2)为线段的起终点坐标或矩形的左上角右下坐标。关键字B表示画矩形，关键字F表示用画矩形的颜色来填充矩形。vb6-常用控件Private

25、 Sub Command1_Click()Scale (0, 0)-(100, 100)DrawWidth = 5Line (0, 0)-(100, 100), vbRedLine (10, 30)-(10, 80), vbBlueLine -(40, 80), vbGreenLine -(10, 30), vbBlackLine (50, 30)-(80, 80), vbYellow, BFEnd Sub画线画线vb6-常用控件CircleCircle方法用于画圆、椭方法用于画圆、椭圆、圆弧和扇形。圆、圆弧和扇形。Circle step (X,Y), RADIUS,color,start,end,aspectPrivate Sub Command1_Click()Scale (0, 0)-(100, 100)DrawWidth = 5Circle (25, 50), 20Circle (25, 50), 20, vbGreen, , , 0.5endsubvb6-常用控件Private Sub Command1_Click() Scale (0, 0)-(100, 100) Const pi = 3.1415925 DrawWidth = 5 Circle (20, 30), 15 Circle (20,