تحريك الثواني في النموذج

اخي الفاضل

لكي يعمل معك عداد الوقت او الساعة بالشكل الطبيعي اتبع هذه الطريقة

1. انشىء مربع نص غير منضم وليكن اسمه مثلا MyTime

2. اجعل مصدر التحكم له هو

=Time()

اعرض خصائص النموذج واختر تبويب حدث ثم اختر من هذا التويب في الاسفل

الفاضل الزمني لعداد الوقت 1000

وعند عداد الوقت اختر اجراء حدث واضغط على المربع الصغير ... ذو الثلاث نقط الذي سيظهر لك وستنتقل الى محرر الفيجول بيسك ضع هذا الكود هناك

Private Sub Form_Timer()
Me.MyTime.Requery
End Sub

الان نريد اخفاء المشيرة من مربع النص ليظهر المربع كأنه ساعة

نختار خصائص مربع النص ثم نختار التبويب بيانات ونضع

تمكين ..... لا

مؤمن ....... نعم

نقوم بحفظ النموذج

وسيكون بمثل هذا المثال

Clock.rar

اختكم

زهره

أشكرك أخت زهرة .. الموضوع نجح ..