vb6-常用控件

文本框的换行输出:PrivateSubCommand1_Click()Fori=1To100step2text1=text1+format(str(i),”@@@”)Sum=Sum+iN=n+1Ifnmod5=0thentext1=text1+vbcrlfNextiText2=SumEndSub求阶乘1!+2!+3!+……+10!的和PrivateSubCommand1_Click()p=1Fori=1To10p=p*iSum=Sum+pNextiPrint1!+2!+3!+……+10!=;SumEndSubPrivateSubCommand1_Click()b=1:a=2:i=1Printno.;i;=;a;/;bFori=2To20a=a+bb=a-bPrintno.;i;=;a;/;bNextiEndSub例：输入三角形的三条边长，计算三角形面积。界面PrivateSubCommand1_Click()A=Val(Text1.Text)B=Val(Text2.Text)C=Val(Text3.Text)L=A+BCAndB+CAAndC+ABIfLThenS=(A+B+C)/2Area=Sqr(S*(S-A)*(S-B)*(S-C))Text4.Text=AreaElseText4.Text=不能构成三角形“EndIfEndSub程序代码运行结果PrivateSubCommand1_Click()a=Val(Text1):b=Val(Text2):c=Val(Text3)L=a+b=cOrb+c=aOrc+a=bIfLThenText4=不能构成三角形:ExitSubIfabOrbcOrcaThenText4=一般三角形“Ifa=bOrb=cOrc=aThenText4=等腰三角形Ifa=bAndb=cAndc=aThenText4=等边三角形S=(a+b+c)/2Area=Sqr(S*(S-a)*(S-b)*(S-c))Text4.Text=AreaEndSub界面设计(计算一元二次方程的实根）代码设计(计算一元二次方程的根）PrivateSubCommand1_Click()a=Val(Text1)b=Val(Text2)c=Val(Text3)d=b*b-4*a*cp=-b/(2*a)Ifd0Thenr=Sqr(d)/(2*a)X1=p+rX2=p–rendifIfd=0ThenX1=p:X2=pIfd0Thenq=Sqr(-d)/(2*a)p=CInt(p*100)/100q=CInt(q*100)/100X1=p&+&q&IX2=p&-&q&IendifText4.Text=X1Text5.Text=X2endsub代码设计方法二：(计算一元二次方程的根）PrivateSubCommand1_Click()a=Val(Text1)b=Val(Text2)c=Val(Text3)d=b*b-4*a*cp=-b/(2*a)接下页：Ifd=0ThenIfd0Thenq=Sqr(d)/(2*a)X1=p+q：X2=p-qElseX1=p：X2=pEndIfElseq=Sqr(-d)/(2*a)p=CInt(p*100)/100:q=CInt(q*100)/100X1=p&+&q&I:X2=p&-&q&IEndifText4.Text=X1：Text5.Text=X2Endsub运行界面(计算一元二次方程的实根）第五章常用控件5.1单选按钮和复选框形状控件5.2列表框和组合框5.3滚动条和Slide控件5.4时钟5.5图片框和图像框5.5ProgressBar控件5.7UpDown控件5.8Animation控件5.9SSTab控件5.10鼠标器和键盘5.1单选钮和复选框、框架1单选钮（OptionButton）一组彼此相互排斥的选项，任何时刻用户只能从中选择一个选项，实现一种“单项选择”的功能，被选中项目左侧圆圈中会出现一黑点。单选按钮PrivateSubOption3_Click()IfOption3.ValueThen_Text1.ForeColor=vbRedEndSubPrivateSubption4_Click()IfOption4.ValueThen_Text1.ForeColor=vbBlueEndSub复选框（CheckBox）也称作、选择框。一组复选框控件可以提供多个选项重要属性：Caption、Vlalue、Style与单选钮相同复选框PrivateSubCheck1_Click()IfCheck1.Value=vbCheckedThenText1.FontBold=TrueEndSub(错误的写法)PrivateSubCheck2_Click()IfCheck2.Value=vbCheckedThenText1.FontItalic=TrueElseText1.FontItalic=FalseEndIfEndSub检查框与单选按钮Value属性的比较单选钮检查框True:单选钮被选定False:单选钮未被选定0--Unchecked：未被选定1--Checked：选定2--Grayed：灰色，禁止选择用法示例PrivateSubCommand1_Click()IfCheck1.Value=1ThenText1.FontBold=TrueElseText1.FontBold=FalseendifIfCheck2.Value=1ThenText1.FontItalic=True_ElseText1.FontItalic=FalseIfOption1.Value=TrueThenText1.FontName=宋体IfOption2.Value=TrueThenText1.FontName=黑体IfOption3.Value=TrueThenText1.ForeColor=vbRedIfOption4.Value=TrueThenText1.ForeColor=bYellowEndSub列表框和组合框1.列表框List11.索引List1.ListIndex=3(下标从0开始的)2.列表项数目List1.ListCount=53.是否被选List1.Selected(3)=True，其余为False。4.是否排序List1.Sorted=False，没有排序。List1.Text为“cox”，相等与List1.List(List1.listIndex)列表框各主要属性的值：Combo1组合框1.下拉式组合框2.简单组合框3.下拉式列表框123组合框各主要属性的值：combo1.ListIndex=0combo1.ListCount=8combo1.Selected(3)=True其余为False。combo1.Sorted=Falsecombo1.Text为“李宁”•List字符型数组，存放列表框的项目，下标是从0开始。•ListIndex选中的项目的序号，没有项目被选定时为-1•ListCount项目的数量，ListCount-1是最后一项的下标。•SortedTrue：按字母顺序排列。False：按加入先后顺序排列。•Text列表项中被选定的内容，List1.List(List1.ListIndex)=List1.Text。二者共有的重要属性:2.列表框的特有属性Selected逻辑数组。Selected(i)的值为True表示第i+1项被选中。MultiSelect0-None：禁止多项选择。1-Simple：简单多项选择。2-Extended：扩展多项选择。类型Style输入下拉式组合框0能简单组合框1能下拉式列表框2不能方法:1.AddItem对象.AddItemitem[,index]2.RemoveItem对象.RemoveItemindex3.Clear对象.Clear5.事件列表框：Click、DblClick。组合框：Click，只有简单组合框才有DblClick事件。一般不需要编写Click事件过程。通常在单击命令按钮或发生DblClick事件时才读取Text属性。练习1.对列表框进行项目添加、修改和删除操作。添加项目:List1.AddItem创建窗体List1.AddItem编写代码List1.AddItem保存文件List1.AddItem运行程序删除项目:List1.RemoveItemi练习2.对列表框进行项目添加、修改和删除操作。Check1Combo1Text1Check2Option1Option25.2滚动条和Slider控件SmallChangeMinValueMaxLargeChangeSlider控件MinMaxSmallChangeLargeChange共同具有的重要属性:Max：最大值-32758~32757Min：最小值-32758~32757SmallChange最小变动值，单击箭头时移动的增量值。LargeChange最大变动值，单击空白处时移动的增量值。Value滑块所处位置所代表的值。1.Scroll：拖动滑块时会触发Scroll事件。2.Change：Value属性改变时触发Change事件。例1.用一个文本框(txtSpeed)显示滚动条(hsbSpeed)滑块当前位置所代表的值。滚动条的事件：SubhsbSpeed_Change()Text1.Text=HScroll1.ValueEndSubPrivateSubCommand1_Click()HScroll1.Value=Int(Rnd*10)Text1=HScroll1.ValueEndSub例2.调色板程序。练习：用Scroll控件设置文本框中的字体大小。PrivateSubHScroll1_Change()Text1.FontSize=HScroll1.Value+30EndSub时钟控件以Interval为时间间隔产生Timer事件。属性：1.Interval属性单位：ms(0.001s)，0.5秒是500。Interval＝0：屏蔽计时器。2.Enabled属性True：有效计时False：停止时钟工作事件：Timer5.3时钟(Timer)控件例1.计数器和时钟例1.计数器和时钟、闹钟PrivateSubTimer1_Timer()Text1=Val(Text1)+1Label1=NowEndSub时钟PrivateSubCommand1_Click()Timer1.Enabled=TrueEndSubPrivateSubCommand2_Click()Timer1.Enabled=FalseEndSubPrivateSubTimer1_Timer()Text2=TimeIfText1=Mid(Text2.Text,4,2)ThenBeepEndSub闹钟闹钟例2.小球移动PrivateSubTimer1_Timer()IfShape1.Top=0Thenflag=0IfShape1.Top+Shape1.HeightForm1.ScaleHeightThenflag=-1Ifflag=0ThenShape1.Top=Shape1.Top+10Ifflag=-1ThenShape1.Top=Shape1.Top-10EndSub例2.蝴蝶飞舞PrivateSubbutterfly()Ifflap=0ThenPicture1.Picture=Picture3.Pictureflap=1ElsePicture1.Picture=Picture2.Pictureflap=0EndIfEndSubPrivateSubTimer1_Timer()Ifflag=1Thenx=x+120y=y-50Picture1.Movex,ybutterflyEndIfEndSub5.4图形控件1.PictureBox(图形框)主要作用：显示图片、也可作为其他控件的容器。装入图形：Picture1.Picture=LoadPictur