منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
[vb6.0] هل يمكن ان اطلب من المستخدم إدخال تاريخ في Text بدون الاعتماد على MaskEdBox ؟؟ - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغات البرمجة الاخرى (http://vb4arb.com/vb/forumdisplay.php?fid=4)
+--- قسم : قسم لغة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=18)
+---- قسم : قسم أسئلة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=28)
+---- الموضوع : [vb6.0] هل يمكن ان اطلب من المستخدم إدخال تاريخ في Text بدون الاعتماد على MaskEdBox ؟؟ (/showthread.php?tid=2875)

هل يمكن ان اطلب من المستخدم إدخال تاريخ في Text بدون الاعتماد على MaskEdBox ؟؟ - Microformt - 14-05-14

الاخوه الكرام

السلام عليكم ورحمة وبركاته

هل يمكن ان اطلب من المستخدم إدخال تاريخ في Text بدون الاعتماد على MaskEdBox ؟؟

نامل من الله المساعدة العاجله والله يحفظكم ويرعاكم

RE: هل يمكن ان اطلب من المستخدم إدخال تاريخ في Text بدون الاعتماد على MaskEdBox ؟؟ - asto - 15-05-14

اولا ليكن لدينا فورم 1 فيه تكست بوكس

كود :
Text1.Text = ""
Form2.Visible = True
form1.hide
نضع هذا الكود ضمن كوماند او ضمن
Private Sub Text1_Click()

End Sub

و اداة microsoft calendar contol



حيث نضعها في فورم جديد و ليكن فورم 2
و هذا هو الكود
كود :
Private Sub Form_Load()
Calendar1.Value = DateTime.Date
End Sub
Private Sub Calendar1_Click()

form1.text1.text=Calendar1.Value
form2.hide
form1.show
End Sub


RE: هل يمكن ان اطلب من المستخدم إدخال تاريخ في Text بدون الاعتماد على MaskEdBox ؟؟ - ناجي إبراهيم - 15-05-14

السلام عليكم...

بالطبع يمكن ذلك، و لكن عليك التأكد من أن المستخدم قد أدخل تاريخاً صحيحاً (أي أدخل نصاً يمكن تحويله إلى تاريخ) و ذلك باستعمال الدالة IsDate:

كود :
If Not IsDate(Text10.Text) Then
    MsgBox("الرجاء إدخال التاريخ بشكل صحيح")
    Text10.SetFocus
    Exit Sub
End If

نرجو الاستفادة و السلام.

RE: هل يمكن ان اطلب من المستخدم إدخال تاريخ في Text بدون الاعتماد على MaskEdBox ؟؟ - Microformt - 15-05-14

(15-05-14, 03:40 AM)ناجي إبراهيم كتب : السلام عليكم...

بالطبع يمكن ذلك، و لكن عليك التأكد من أن المستخدم قد أدخل تاريخاً صحيحاً (أي أدخل نصاً يمكن تحويله إلى تاريخ) و ذلك باستعمال الدالة IsDate:

كود :
If Not IsDate(Text10.Text) Then
    MsgBox("الرجاء إدخال التاريخ بشكل صحيح")
    Text10.SetFocus
    Exit Sub
End If

نرجو الاستفادة و السلام.
------------------------------------------------------
اخي العزيز
السلام عليكم ورحمة وبركاته
مثال جميل لك مني الف شكر وتقدير