Excel VBA質問箱 IV

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

21457 / 76732

←次へ　｜　前へ→


	【60672】Re:ＶＢＡ　フォームに時計

ichinose - 09/3/7(土) 11:52 -


	引用なし

	パスワード

▼シンプル座敷さん：
こんにちは。

>ちなみにラベルのほうがよろしかったんですか？
>テキストだと書き換えができちゃうってことなんですかね？
見せるだけなら、ラベルでよいですよね！！

新規ブックにユーザーフォームだけ作成してください（UserForm1）。

コントロールは、コード配置しますから、何も配置しないでください。

標準モジュールに

'=================================
sub sample()
　 userform1.show
end sub

Userform1のモジュールに

'====================================================
Option Explicit
Dim dsptime As MSForms.Label
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Private stoptm As Boolean
'=======================================================================
Private Sub UserForm_Initialize()
　　With Me
　　　 .Width = 200
　　　 .Height = 100
　　　 .Caption = "デジタルウォッチ"
　　　
　　　 Set dsptime = .Controls.Add("Forms.Label.1", , True)
　　　 With dsptime
　　　　　.Left = 30
　　　　　.Top = 18
　　　　　.Width = 132
　　　　　.Height = 36
　　　　　.SpecialEffect = fmSpecialEffectSunken
　　　　　.BackColor = &H80000009
　　　　　.Font.Size = 32
　　　　　.TextAlign = fmTextAlignRight
　　　 End With
　　End With
End Sub
'========================================================================
Private Sub UserForm_Activate()
　　stoptm = False
　　Do Until stoptm
　　　 dsptime.Caption = Format([now()], "hh:mm:ss")
　　　 DoEvents
　　　 Sleep 100
　　Loop
End Sub
'========================================================================
Private Sub UserForm_Terminate()
　　stoptm = True
End Sub

これでSampleを実行してみてください。

ラベルに時刻表示した例です。

1 hits

▼

【60658】ＶＢＡ　フォームに時計 シンプル座敷 09/3/6(金) 21:29