نمایش ساعت و تاریخ در فرم

[Amir Ghasemiyan]

سلام دوستان

تو این آموزش میخوام نحوه قرار دادن ساعت رو در یک فرم بهتون آموزش بدم
این نکته رو در نظر داشته باشید که روش های مشابه زیادی وجود داره ولی سعی کردم ساده ترین و کارا ترین روش رو خدمتتون ارائه کنم.
همچنین به این موضوع توجه داشته باشید که ما فقط پایه ای ترین حالت ممکن رو در نظر گرفتیم. خیلی کدها و کارها رو میشه بهش اضافه و یا ازش کم کرد.

پیش نیاز این آموزش: شما نیاز دارید یکسری مقدمات در مورد فرم و ماژول رو بدونین

خب اول از همه یک لیبل داخل فرم قرار بدین و اسمش رو بذارین LTime و یک لیبل دیگه هم قرار بدین و اسمش رو بذارین LDate. یک دکمه هم اضافه کنید و اسمش رو بذارین BStop
حالا داخل کدهای فرم کدهای زیر رو قرار بدین: (روی اسم فرم در بخش project راست کلیک کنید و گزینه view code رو کلیک کنید)

Private Sub UserForm_Activate()
Application.Run "StartTimer"
End Sub


Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
StopTimer
End Sub

Private Sub BStop_Click()
Application.Run "StopTimer"
Unload Me
End Sub

خب در مرحله بعد یک ماژول درست کنید و کدهای زیر رو داخلش قرار بدین: (از منوی insert گزینه module رو کلیک کنید)

Option Explicit
Dim T


Sub StopTimer()
On Error Resume Next
Application.OnTime T, Procedure:="Update", Schedule:=False
End Sub


Sub StartTimer()
T = Now + TimeValue("00:00:01")
Application.OnTime T, "Update"
End Sub


Sub Update()
UserForm1.LTime.Caption = Format(Now, "hh:mm:ss")
UserForm1.LDate.Caption = Format(Date, "yyyy/mm/dd")
Call StartTimer
End Sub

اخطار: این یک موضوع قدیمی است به دلیل قدیمی بودن موضوع، ممکن است برخی فایل های ضمیمه به درستی کار نکنند. لطفا در صورت عدم ضرورت، از بالا آوردن موضوعات قدیمی خودداری نمایید.