|
▼作りたい初心者 さん:
1つの方法のサンプルとして。
ユーザーフォームに Label1 と CommandButton1 を配置してください。
●ユーザーフォームモジュール
Private Sub CommandButton1_Click()
DoLoop = Not DoLoop
If DoLoop Then
CommandButton1.Caption = "時刻表示中止"
Application.OnTime Now(), "今何時"
Else
CommandButton1.Caption = "時刻表示再開"
End If
End Sub
Private Sub UserForm_Initialize()
CommandButton1.Caption = "時刻表示中止"
DoLoop = True
Application.OnTime Now(), "今何時"
End Sub
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
DoLoop = False
End Sub
●標準モジュール
Public DoLoop As Boolean
Sub 今何時()
Do While DoLoop
UserForm1.Label1.Caption = Now
DoEvents
Loop
UserForm1.Label1.Caption = "時刻表示お休み中"
End Sub
|
|