PPT-VisualBasic程序设计教程.pptVIP

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 继续