الأستاذة / زهرة
أريد تحميل التاريخ والوقت بصفة مستمرة علي واجة التطبيق وفي كل الشاشات
بمعني علي اليمين التاريخ وعلي اليسار الساعة بتشتغل بصفة مستمرة
كتبت هذا الكود ولكنه لم يفلح بعد فأرجو التوضيح
الكود أثناء تحميل الـ foem
private sub form_load()l
me.text1.text = time يأخ الوقت من ساعة الكمبيوتر ثواني.دقائق.ساعات ويحد نفسه كل ثانية
me.text2.text = format$(date,"dd/mm/yyyy") شكل التاريخ المعروض
end sub
ولكنني لم أجد اي شيئ في active X يدل علي وجود timer
فأرجو التوضيح
م / محمد جلال
اخي الكريم محمد جلال
السلام عليكم ورحمة الله وبركاته
المسألة سهلة
لنفرض ان لديك في النموذج مربعين نص الاول اسمه Text1 والثاني اسمه Text2
الان نختار خصائص النموذج ونختار من اللوحة التي ستظهر التبويب حدث ونختار منه حدث عند التحميل ونضع هذا الكود
Private Sub Form_Load() Me![Text1] = Time Me![Text2] = Format$(Date, "dd/mm/yyyy") End Sub
الان نعود لنفس اللوحة وننزل الى اسفل وستجد حدث عند عداد الوقت والفاصل الزمني
نكتب في الفاصل الزمني الرقم 1000
وفي حدث عند عداد الوقت نضع هذا الكود
Private Sub Form_Timer() Me![Text1] = Time End Sub
انظر اللوحة
وهذا مثال
اختكم
زهره
الأستاذ الفاضلة / زهرة
ألف ألف شكر يا أستاذة
وربنا يكرمكم ويكرمنا معاك ونكون من عتقاء هذا الشهر الكريم
محمد جلال
م / محمد جلال
الف شكر يا استاذه زهره
وشكرااااااااااااااااااااا
هذا الموضوع مغلق.
