|
▼ぴぐぴぐ さん:
おはようございます。
テキストボックスなどに入力時は、多少、動作は、ぎこちないけど以下のようにすると、それらしい動作にはなります。
当該ユーザーフォームのモジュールに
'==================================================================
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Private dt_sw As Boolean
'=======================================================================
Private Sub UserForm_Activate()
dt_sw = True
Do While dt_sw = True
Label1.Caption = Date
Label2.Caption = Time
DoEvents
Sleep 100
Loop
End Sub
'====================================================================
Private Sub UserForm_Terminate()
dt_sw = False
End Sub
上記のようにユーザーフォームを閉じる時や時刻表示が不必要な場合は、
dt_sw = False
として、ループから抜ける処理を忘れないでください。
|
|