تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[vb6.0] هل يمكن ان اطلب من المستخدم إدخال تاريخ في Text بدون الاعتماد على MaskEdBox ؟؟
#1
الاخوه الكرام

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

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

نامل من الله المساعدة العاجله والله يحفظكم ويرعاكم
إذا ضاقت بك الأحوال يوماً     فَثِقْ بالواحِدِ الفَرْدِ العَلِيِّ
الرد }}}}
تم الشكر بواسطة:
#2
اولا ليكن لدينا فورم 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
الرد }}}}
تم الشكر بواسطة:
#3
السلام عليكم...

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

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

نرجو الاستفادة و السلام.
بِسْمِ اللهِ الرَّحْمَنِ الرَّحِيمِ ( وَ مَا تُقَدِّمُوا لِأَنفُسِكُم مِّنْ خَيْرٍ تَجِدُوهُ عِندَ اللهِ هُوَ خَيْراً وَ أَعْظَمَ أَجْراً ) صَدَقَ اللهُ الْعَظِيمُ
الرد }}}}
تم الشكر بواسطة: Microformt , السندبااد
#4
(15-05-14, 03:40 AM)ناجي إبراهيم كتب : السلام عليكم...

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

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

نرجو الاستفادة و السلام.
------------------------------------------------------
اخي العزيز
السلام عليكم ورحمة وبركاته
مثال جميل لك مني الف شكر وتقدير
إذا ضاقت بك الأحوال يوماً     فَثِقْ بالواحِدِ الفَرْدِ العَلِيِّ
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
Question [vb6.0] كيف اجعل خلفية Text شفافه ؟؟ Microformt 7 200 13-10-17, 05:40 AM
آخر رد: Mohamad Anan
  ترتيب تاريخ المنحة حافظ حافظ 8 152 13-10-17, 12:45 AM
آخر رد: حافظ حافظ
  هل يمكن انشاء تسلسل ذاتي حسب الحروف الابجدية gonm64 1 44 11-10-17, 11:03 PM
آخر رد: عبد العزيز البسكري
Question [vb6.0] كيف اجعل في text التاريخ لا يقبل في اليوم اكثر من 30 يوماً وكيف اجعل التاريخ في الشهر Microformt 2 48 09-10-17, 09:17 PM
آخر رد: عبد العزيز البسكري
  [كود] تحويل تاريخ الى نص Microsoft Visual Basic 6.0 4 80 22-09-17, 01:46 AM
آخر رد: Microsoft Visual Basic 6.0
Question [سؤال] كود لتغيير لون أكثر من text box تنمية المعرفة 4 158 10-09-17, 01:59 AM
آخر رد: تنمية المعرفة
  كيف يمكن الطباعة من الفجول بيسك 6 في الأكسل او الورد refathafez 1 163 05-09-17, 05:53 PM
آخر رد: sher
Question [vb6.0] هل يمكن تنفيذ اومر دوس من خلال فجوال البيسك 6 ؟؟ Microformt 2 105 01-09-17, 12:27 AM
آخر رد: Microformt
  ارجو المساعده اخوانى الاحباب "" تاريخ اخر عملية " mhareek 22 678 23-08-17, 06:02 PM
آخر رد: mhareek
Thumbs Up [سؤال] [vb6.0] مشكل ظهورحرف ݣ على شكل علامة استفهام في text guerciftech 3 134 22-08-17, 10:24 PM
آخر رد: guerciftech

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم