|
▼シンプル座敷 さん:
こんばんは。
時刻を表示するだけなら、テキストボックスではなく、ラベルに表示した方が良さそうですが・・・。
それは、検討していただくとして。
私なら、
Option Explicit
'========================================================================
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Private stoptm As Boolean
'========================================================================
Private Sub UserForm_Activate()
stoptm = False
Do Until stoptm
TextBox1.Value = Format([now()], "hh:mm:ss")
DoEvents
Sleep 100
Loop
End Sub
'========================================================================
Private Sub UserForm_Terminate()
stoptm = True
End Sub
|
|