基于VisualBasic程序设计教程.pptVIP

下载本文档

3
0
约9.11千字
约 58页
2017-07-24 发布于湖北
举报
版权申诉

基于VisualBasic程序设计教程.ppt

1、本文档共58页，可阅读全部内容。
2、原创力文档（book118）网站文档一经付费（服务费），不意味着购买了该文档的版权，仅供个人/单位学习、研究之用，不得用于商业用途，未经授权，严禁复制、发行、汇编、翻译或者网络传播等，侵权必究。
3、本站所有内容均由合作方或网友上传，本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺！文档内容仅供研究参考，付费前请自行鉴别。如您付费，意味着您自己接受本站规则且自行承担风险，本站不退款、不进行额外附加服务；查看《如何避免下载的几个坑》。如果您已付费下载过本站文档，您可以点击这里二次下载。
4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等，请点击“版权申诉”（推荐），也可以打举报电话：400-050-0827(电话支持时间：9:00-18:30)。
5、该文档为VIP文档，如果想要下载，成为VIP会员后，下载免费。
6、成为VIP后，下载本文档将扣除1次下载权益。下载后，不支持退款、换文档。如有疑问请联系我们。
7、成为VIP后，您将拥有八大权益，权益包括：VIP文档下载权益、阅读免打扰、文档格式转换、高级专利检索、专属身份标志、高级客服、多端互通、版权登记。
8、VIP文档为合作方或网友上传，每下载1次，网站将根据用户上传文档的质量评分、类型等，对文档贡献者给予高额补贴、流量扶持。如果你也想贡献VIP文档。上传文档

Visual Basic 程序设计教程机械工业出版社同名教材配套电子教案 Text2.SelStart = 0 Text2.SelLength = Len(Text2.Text) End Sub 文本框Text2的按健（KeyPress）事件代码： Private Sub Text2_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then 在Text2按回车键，光标跳到Command1 If Text2.Text 0 Then Command1.SetFocus End If End Sub 使用计时器控件 1. 设计一个电子表【例4-13】在窗体上设计一个数字时钟，如图4-15所示。图4-16 建立界面与设置属性图4-15 数字时钟设计步骤如下： (1) 建立应用程序用户界面。 (2) 设置对象属性， (3) 编写程序代码。编写计时器控件Timer1的Timer事件代码： Private Sub Timer1_Timer() Label1.Caption = Format(Time, Form1.Tag) Label2.Caption = IIf(Hour(Time) 12, 下午, 上午) End Sub 编写命令按钮Command1的Click事件代码： Private Sub Command1_Click() If Command1.Caption = 改为12小时 Then Form1.Tag = hh:mm:ss AM/PM Command1.Caption = 改为24小时 Label2.Visible = True Else Form1.Tag = hh:mm:ss Command1.Caption = 改为12小时 Label2.Visible = False End If End Sub 2.设计一个计时器【例4-14】一个简单计时器。如图4-17所示。图4-17 简单计时器图4-18 计时器的设计设计步骤如下： (1) 建立应用程序用户界面与设置对象属性。 (2) 编写程序代码。编写Command1（开始）的Click事件代码： Private Sub Command1_Click() If Command1.Caption = S 暂停 Then Command1.Caption = C 继续 Timer1.Enabled = False Else Command1.Caption = S 暂停 If Label1.Caption = 00:00:00:0 Then Form1.Tag = Timer Timer1.Enabled = True End If End Sub 编写Command2（重置）的Click事件代码： Private Sub Command2_Click() Form1.Tag = Timer Label1.Caption = 00:00:00:0 End Sub 编写Timer1的Timer事件代码： Private Sub Timer1_Timer() m = Timer – Form1.Tag n0 = (m * 10) Mod 10 m = Int(m) n1 = Format(m Mod 60, 00.) n2 = Format((m \ 60) Mod 60, 00:) n3 = Format(m \ 3600, 00:) Label1.Caption = n3 n2 n1 n0 End Sub 3.设计一个流动字幕板【例4-15】为一个应用系统设计流动字幕板，如图4-19所示，标题“欲穷千里目，更上一层楼”在窗体中自右至左地反复移动。图4-19 电子标题板图4-20 用户界面的设计设计步骤如下： (1) 建立应用程序用户界面与设置对象属性 (2) 编写程序代码。编写命令按钮Command1的Click事件代码： Private Sub Command1_Click() If Command1.Caption = S 暂停 Then Command1.Caption = C 继续