| |
▼シンプル座敷 さん：
こんにちは。
>ちなみにラベルのほうがよろしかったんですか？
>テキストだと書き換えができちゃうってことなんですかね？
見せるだけなら、ラベルでよいですよね！！
新規ブックにユーザーフォームだけ作成してください（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を実行してみてください。
ラベルに時刻表示した例です。
|
|
![[未読]](./data/excel/image/read_icon.gif){kind=icon}
