سؤالين سهلين جدا

اجابة السؤال الاول:

ضع تايمر و غير خاصية Interval الي 3000 و اكتب به الكود التالي:

Private Sub Timer1_Timer()
Form1.Hide
End Sub

اجابة السؤال الثاني:

يمكنك كتابة هذا التاريخ في Label و استخدم النتيجة للمساعدة..

السؤال الثالث:

ارجو توضيحه اكثر..

اولا: ضع اداة "تايمر" في الفورم بحيث تكون قيمة الخاصية "Interval" = 3000 اي 3 ثوان ثم ضع الكود التالي:

Private Sub Form_Activate()

Timer1.Enabled = True

End Sub



Private Sub Timer1_Timer()

Me.Hide

End Sub

ثانيا: استخدم الصيغه التالية..

Format(Date, "dd/mm/yyyy")

ثالثا : السؤال غير واضح!

اخوانى جزاكم الله خيرا على سرعة الرد

بالنسبة للسؤال الثانى فانا لا اريده ا يكتب تاريخ اليوم فقط لاننى عند تجربة هذا الكود اجد البرنامج يكتب فى التكست تاريخ اليوم ويحول اى تاريخ اخر الى تاريخ اليوم ثم اين اكتب هذا الكود ؟ هل فى القسم الخاص بـ txtDate_lostFocus ام اكتبه فى اى اجراء بالضبط؟

اما بالنسبة للسؤال الثالث

فمثلا رقم البطاقة الشخصية لا يتكرر لفردين معا صح؟

اريد حين يدخل المستخدم رقم بطاقته اذا كانت موجودة من قبل يخبره البرنامج بذلك واذا كانت غير ذلك فيقبلها منه بسهوله

ارجو ان اكون قد اوضحت ما اريده

وجزاكم الله خيرا

السلام عليكم

أخي العزيز عندي أستفسار حول السؤال الثالث . وهو /

هل البرنامج يحفظ البيانات في ملفات او في قاعدة البيانات . هذا ولكي يتمكن الأخوة من الرد على سؤالك .

اما سؤالك الثاني هل معناه أنك تريد إخال التاريخ بإي صيغة في وضعية الإدخال ولكن من ان تنتهي من كتابة التاريخ يتحول إلى الصيغة المطلوبة .

فإذا كان ذلك الطلوب جرب الكود التالي /

'

Private Sub txtDate_LostFocus()

'

If IsDate(txtDate.Text) Then

txtDate.Text = Format(txtDate.Text, "DD/MM/YYYY") 'تاريخ قصير

' txtDate.Text = Format(txtDate.Text, "DDDD/MMMM/YYYY") 'تاريخ طويل

Else

' MsgBox "التاريخ المدخل غير صحيح"

End If

End Sub

تحياتي للجميع.

اخى الكريم جزاك الله خيرا

بالنسبة للسؤال الثانى فهذا فعلا ما اردته

اما بالنسبة للسؤال الثالث فهو ان البرنامج يخزن البيانات فى قاعدة بيانات