精编制作vb6-常用控件PPT课件

文本框的换行输出 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 pNextiPrint 1 2 3 10 SumEndSub PrivateSubCommand1 Click b 1 a 2 i 1Print no i a bFori 2To20a a bb a bPrint no i a bNextiEndSub 例 输入三角形的三条边长 计算三角形面积 界面 PrivateSubCommand1 Click A Val Text1 Text B Val Text2 Text C Val Text3 Text L A B CAndB C AAndC A BIfLThenS 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 bbOrbcOrcaThenText4 一般三角形 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 Ifd 0Thenr Sqr d 2 a X1 p rX2 p rendif Ifd 0ThenX1 p X2 pIfd 0Thenq Sqr d 2 a p CInt p 100 100q CInt q 100 100X1 p q I X2 p q I endifText4 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 0ThenIfd 0Thenq 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 I EndifText4 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属性的比较 用法示例 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 列表框List1 索引List1 ListIndex 3 下标从0开始的 列表项数目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选中的项目的序号 没有项目被选定时为 1ListCount项目的数量 ListCount 1是最后一项的下标 SortedTrue 按字母顺序排列 False 按加入先后顺序排列 Text列表项中被选定的内容 List1 List List1 ListIndex List1 Text 二者共有的重要属性 2 列表框的特有属性Selected逻辑数组 Selected i 的值为True表示第i 1项被选中 MultiSelect0 None 禁止多项选择 1 Simple 简单多项选择 2 Extended 扩展多项选择 方法 1 AddItem对象 AddItemitem index 2 RemoveItem对象 RemoveItemindex3 Clear对象 Clear 5 事件列表框 Click DblClick 组合框 Click 只有简单组合框才有DblClick事件 一般不需要编写Click事件过程 通常在单击命令按钮或发生DblClick事件时才读取Text属性 练习1 对列表框进行项目添加 修改和删除操作 添加项目 List1 AddItem 创建窗体 List1 AddItem 编写代码 List1 AddItem 保存文件 List1 AddItem 运行程序 删除项目 List1 RemoveItemi 练习2 对列表框进行项目添加 修改和删除操作 Check1 Combo1 Text1 Check2 Option1 Option2 5 2滚动条和Slider控件 SmallChangeMinValueMax LargeChange Slider控件 Min Max SmallChange LargeChange 共同具有的重要属性 Max 最大值 32758 32757Min 最小值 32758 32757SmallChange最小变动值 单击箭头时移动的增量值 LargeChange最大变动值 单击空白处时移动的增量值 Value滑块所处位置所代表的值 1 Scroll 拖动滑块时会触发Scroll事件 2 Change Value属性改变时触发Change事件 例1 用一个文本框 txtSpeed 显示滚动条 hsbSpeed 滑块当前位置所代表的值 滚动条的事件 SubhsbSpeed Change Text1 Text HScroll1 ValueEndSub PrivateSubCommand1 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 停止时钟工作事件 Timer 5 3时钟 Timer 控件 例1 计数器和时钟 例1 计数器和时钟 闹钟 PrivateSubTimer1 Timer Text1 Val Text1 1Label1 NowEndSub时钟 PrivateSubCommand1 Click Timer1 Enabled TrueEndSubPrivateSubCommand2 Click Timer1 Enabled FalseEndSub PrivateSubTimer1 Timer Text2 TimeIfText1 Mid Text2 Text 4 2 ThenBeepEndSub闹钟 闹钟 例2 小球移动 PrivateSubTimer1 Timer IfShape1 TopForm1 ScaleHeightThenflag 1Ifflag 0ThenShape1 Top Shape1 Top 10Ifflag 1ThenShape1 Top Shape1 Top 10EndSub 例2 蝴蝶飞舞 PrivateSubbutterfly Ifflap 0ThenPicture1 Picture Picture3 Pictureflap 1ElsePicture1 Picture Picture2 Pictureflap 0EndIfEndSub PrivateSubTimer1 Timer Ifflag 1Thenx x 120y y 50Picture1 Movex ybutterflyEndIfEndSub 5 4图形控件 1 PictureBox 图形框 主要作用 显示图片 也可作为其他控件的容器 装入图形 Picture1 Picture LoadPicture d 123 jpg 删除图形 Picture1 Picture LoadPicture Autosize属性设置为True时 图形框能自动调整大小与显示的图片匹配 2 image 图像框 图像框比图形框占用更少的内存块 图像框内不能保存其他控件 Stretch属性 False 图像框可自动改变大小 以适应其中的图形 Stretch属性 True 图形可自动调整尺寸 以适应图像框的大小 举例 装入图片 PrivateSubCommand1 Click Picture1 Picture Load