سلام دوستان
تو این آموزش میخوام نحوه قرار دادن ساعت رو در یک فرم بهتون آموزش بدم
این نکته رو در نظر داشته باشید که روش های مشابه زیادی وجود داره ولی سعی کردم ساده ترین و کارا ترین روش رو خدمتتون ارائه کنم.
همچنین به این موضوع توجه داشته باشید که ما فقط پایه ای ترین حالت ممکن رو در نظر گرفتیم. خیلی کدها و کارها رو میشه بهش اضافه و یا ازش کم کرد.
پیش نیاز این آموزش: شما نیاز دارید یکسری مقدمات در مورد فرم و ماژول رو بدونین
خب اول از همه یک لیبل داخل فرم قرار بدین و اسمش رو بذارین LTime و یک لیبل دیگه هم قرار بدین و اسمش رو بذارین LDate. یک دکمه هم اضافه کنید و اسمش رو بذارین BStop
حالا داخل کدهای فرم کدهای زیر رو قرار بدین: (روی اسم فرم در بخش project راست کلیک کنید و گزینه view code رو کلیک کنید)
خب در مرحله بعد یک ماژول درست کنید و کدهای زیر رو داخلش قرار بدین: (از منوی insert گزینه module رو کلیک کنید)کد: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
کد: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
اخطار: این یک موضوع قدیمی است
به دلیل قدیمی بودن موضوع، ممکن است برخی فایل های ضمیمه به درستی کار نکنند. لطفا در صورت عدم ضرورت، از بالا آوردن موضوعات قدیمی خودداری نمایید.
علاقه مندی ها (Bookmarks)