- 1、原创力文档(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。。
- 2、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载。
- 3、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
- 4、该文档为VIP文档,如果想要下载,成为VIP会员后,下载免费。
- 5、成为VIP后,下载本文档将扣除1次下载权益。下载后,不支持退款、换文档。如有疑问请联系我们。
- 6、成为VIP后,您将拥有八大权益,权益包括:VIP文档下载权益、阅读免打扰、文档格式转换、高级专利检索、专属身份标志、高级客服、多端互通、版权登记。
- 7、VIP文档为合作方或网友上传,每下载1次, 网站将根据用户上传文档的质量评分、类型等,对文档贡献者给予高额补贴、流量扶持。如果你也想贡献VIP文档。上传文档
Text2.Text=清除文本框Text2的内容EndSub命令按钮Command2的Click事件代码为PrivateSubCommand2_Click()UnloadMeEndSub程序运行结果如图5.8所示。第62页,共106页,星期日,2025年,2月5日图5.8大小写字母转换第63页,共106页,星期日,2025年,2月5日5.5计时器控件计时器(Timer)控件能有规律地以一定的时间间隔激发计时器事件(Timer)而执行相应的事件代码。计时器控件在设计时显示为一个小时钟图标,而在运行时并不显示在屏幕上,通常用标签来显示时间。计时器控件的主要属性如表5-6所示。第64页,共106页,星期日,2025年,2月5日表5-6Timer控件的属性第65页,共106页,星期日,2025年,2月5日【例5-14】在窗体上建立数字计时器。设计步骤如下:(1)建立用户界面。在窗体上建立一个计时器控件和两个标签控件,如图5.9所示。(2)按表5-7所示设置对象属性。第66页,共106页,星期日,2025年,2月5日图5.9建立用户界面第67页,共106页,星期日,2025年,2月5日表5-7属性设置第68页,共106页,星期日,2025年,2月5日图5.10程序运行结果第69页,共106页,星期日,2025年,2月5日(3)编写事件代码。编写计时器控件Timer1的Timer事件代码:PrivateSubTimer1_Timer()Label2.Caption=Time$EndSub程序运行结果如图5.10所示。第70页,共106页,星期日,2025年,2月5日5.6选择性控件5.6.1单选钮单选钮(OptionButton)的左边有一个“○”。一般来说,单按钮总是成组(单选按钮组)出现,用户在一组单选钮中必须选择一项,并且最多只能选择一项。当某一项被选定后,其左边的圆圈中出现一个黑点。单选钮主要用于在多种功能中由用户选择一种功能的情况。第71页,共106页,星期日,2025年,2月5日1.单选钮的主要属性单选钮的主要属性如表5-8所示。表5-8单选钮的主要属性第72页,共106页,星期日,2025年,2月5日2.选择单选钮的方法选择一个单选钮可以用以下方法:●在运行期间用鼠标单击单选钮。●用Tab键定位到单选按钮组,然后在组内使用方向键(箭头键)定位单选钮。●用代码将它的Value属性设置为真:Option1.Value=True。●使用在OptionButton标题中指定的快捷键。第73页,共106页,星期日,2025年,2月5日3.使用单选按钮组单选钮和复选框都可以接受Click事件,但一般不需要编写Click事件过程。因为当用户单击单选钮和复选框时,它们自动改变状态。单选钮的一个特点是当选定其中一个,其余就自动关闭。第74页,共106页,星期日,2025年,2月5日【例5-15】单选按钮用法示例。设计步骤如下:(1)建立应用程序用户界面和设置对象属性。在窗体中建立了两组单选钮,分别放在名称为“字体”和“字号”的框架中,如图5.11所示。第75页,共106页,星期日,2025年,2月5日【例5-7】键盘输入3个不同的数,将它们从大到小排序。(1)建立应用程序用户界面并设置对象属性,如图5.3所示。?(2)编写事件代码。命令按钮Command1的单击(Click)事件代码为第30页,共106页,星期日,2025年,2月5日图5.3从大到小排序第31页,共106页,星期日,2025年,2月5日PrivateSubCommand1_Click()DimxAsSingle,yAsSingle,zAsSinglex=Val(Text1.Text)输入数据y=Val(Text2.Text)
文档评论(0)