[حل شده] نمایش زمان

[sunstar]

سلام علیکم
میخواهیم در یوزرم فورم label داشته باشیم که ساعت جاری سیستم را نمایش دهد(همزمان با تغییر ثانیه ودقیقه در ساعت کامپیوتر، این تغییرات در label مذکور نیز مشاهده شود)
با تشکر

[amir_ts]

با سلام
کد های زیر را در یوزر فرم قرار بدید:

[LEFT]
Private Sub UserForm_Initialize()
    Me.Label1 = Time
    Application.OnTime Time + TimeValue("00:00:01"), "Live_time"
End Sub

Private Sub UserForm_Terminate()
    Application.OnTime Time + TimeValue("00:00:01"), "Live_time", , False
End Sub
[/LEFT]

بعد کد زیر را در یک ماژول قرار بدید.

[LEFT]
Sub Live_time()
    Application.OnTime Time + TimeValue("00:00:01"), "Live_time"
    UserForm1.Label1 = Time
    UserForm1.Repaint
End Sub
[/LEFT]

[sunstar]

استاد amir_ts خیلی ممنون