vb程式設計(十三)-林偉川.pdfVIP

VB 小時鐘應用 資科系 林偉川 數位時鐘執行結果 2 1 Timer屬性 (VB 6) • Interval屬性 設定時間之間距 -3 (每單位1*10 秒) • _Timer事件為每當時間間距到達時要作之事 系統函數 • Now 今天日期及時間 • Date 今天日期 • Time 今天至目前為止的時間 • Timer 今天至目前為止時間的秒數 3 Timer屬性 (VB.NET) • Interval屬性 設定時間之間距 -3 (每單位1*10 秒) • .Enabled = True 啟動計時功能 • _tick事件為每當時間間距到達時要作之事 系統函數 • Now 今天日期及時間 • Today 今天日期 • TimeofDay 今天至目前為止的時間 4 2 配合標籤物件動作 (VB 6) Private Sub Form_Load() Ti1.Interval = 1000 L1.Caption = Time$ L1.FontSize = 18 End Sub Private Sub Ti1_Timer() L1.Caption = Time$ End Sub 5 配合標籤物件動作 (VB.NET) Private Sub Form_Load() L1.Text = TimeOfDay T1.Interval = 100 T1.Enabled = True L1.ForeColor = Color.Red End Sub Private Sub T1_Tick() L1.Text = TimeOfDay End Sub 6 3 倒數計時執行結果 7 倒數計時配合標籤物件的動作 (VB 6) Private Sub Form_Load() T1.Interval = 1000 L1.FontSize = 24 L1.Caption = 10 End Sub Private Sub T1_Timer() k = Val(L1.Caption) - 1 L1.Caption = str(k) If k = 0 Then MsgBox 倒數計時結束 End End If End Sub 8 4 倒數計時配合標籤物件的動作 (VB.NET) Private Sub Form_Load() T1.Interval = 1000: T1.Enabled = True L1.Text = 10“: L1.ForeColor = Color.Bl