Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


21469 / 76732 ←次へ | 前へ→

【60660】Re:VBA フォームに時計
発言  ichinose  - 09/3/6(金) 22:32 -

引用なし
パスワード
   ▼シンプル座敷 さん:
こんばんは。
時刻を表示するだけなら、テキストボックスではなく、ラベルに表示した方が良さそうですが・・・。
それは、検討していただくとして。

私なら、

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

1 hits

【60658】VBA フォームに時計 シンプル座敷 09/3/6(金) 21:29 質問
【60660】Re:VBA フォームに時計 ichinose 09/3/6(金) 22:32 発言
【60669】Re:VBA フォームに時計 シンプル座敷 09/3/7(土) 10:22 お礼
【60672】Re:VBA フォームに時計 ichinose 09/3/7(土) 11:52 発言
【60685】Re:VBA フォームに時計 シンプル座敷 09/3/8(日) 21:48 お礼

21469 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free