精编制作vb6-常用控件PPT课件
79页1、文本框的换行输出 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 Text
2、4 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
3、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 一组彼此相互排斥的选项 任
4、何时刻用户只能从中选择一个选项 实现一种 单项选择 的功能 被选中项目左侧圆圈中会出现一黑点 单选按钮 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属性的比较 用法示例 PrivateSubComman
5、d1 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
《精编制作vb6-常用控件PPT课件》由会员ahu****ng2分享,可在线阅读,更多相关《精编制作vb6-常用控件PPT课件》请在金锄头文库上搜索。
某销售公司专业培训资料(ppt 64页)
某公司市场营销策略研究(PPT 46页)
网络营销导向的企业网站建设(powerpoint 32页)
整合营销传播的设计与管理(powerpoint 58页)
某地产营销策略报告(PPT 114页)
网络营销基础(powerpoint 80页)
网络营销的理论基础(powerpoint 35页)
基于数据挖掘的数据业务精确营销(powerpoint 44页)
社区宽带综合业务系统(powerpoint 32页)
某公司市场营销策略研究(PPT 46页)
某地产营销策略报告(PPT 114页)
营销策略案例汇总(2个powerpoint 1个pdf 29个doc)
华为Sx700交换机销售策略指导书(PPT 51页)
信托业务政策汇编(powerpoint 195页)
消费者期望及感知动机的作用研讨(powerpoint 78页)
电视台汽车栏目营销策略研究(powerpoint 55页)
微信营销概述(powerpoint 89页)
销售计划管理讲义课件(powerpoint 73页)
某含片营销策略研究报告(powerpoint 82页)
贵金属网络营销方案(powerpoint 45页)
2023-09-09 110页
2023-09-09 107页
2023-03-07 70页
2023-03-07 178页
2022-07-14 64页
2022-07-14 95页
2022-07-14 52页
2022-07-14 56页
2022-07-13 43页
2022-07-13 44页