【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) Lab