+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم مكتبة اكواد VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=185)
+--- الموضوع : [سؤال] التعامل مع تكست بوكس (/showthread.php?tid=13189)
التعامل مع تكست بوكس - moha11 - 10-09-15
السلام عليكم ورحمة الله وبركاته
احب ان اتقدم بالشكر لاخواني اعضاء ومدراء هذا المنتدي الذي ماسألت فيه سؤال الا ووجدت مجموعة من الاجابات علية
فشكرا لكم .....
اليوم انا محتاج لعمل تكست بوكس امرر عليه 8 ارقام بصيغة تاريخ مثل 01092015 وهو يتحقق من انها تصلح بان تكون تاريخ
بيقوم بادراج علامة الفاصلة الخاصة للتاريخ (/) بينها وان كان النص المدخل ليس ارقام او ارقام لاتشبة التاريخ يعطيني رساله تفيد بذلك
في انتظاركم ....
ولكم الشكر والتقدير ......
RE: التعامل مع تكست بوكس - أبو عمر - 10-09-15
(10-09-15, 01:41 PM)moha11 كتب : السلام عليكم ورحمة الله وبركاته
احب ان اتقدم بالشكر لاخواني اعضاء ومدراء هذا المنتدي الذي ماسألت فيه سؤال الا ووجدت مجموعة من الاجابات علية
فشكرا لكم .....
اليوم انا محتاج لعمل تكست بوكس امرر عليه 8 ارقام بصيغة تاريخ مثل 01092015 وهو يتحقق من انها تصلح بان تكون تاريخ
بيقوم بادراج علامة الفاصلة الخاصة للتاريخ (/) بينها وان كان النص المدخل ليس ارقام او ارقام لاتشبة التاريخ يعطيني رساله تفيد بذلك
في انتظاركم ....
ولكم الشكر والتقدير ......
لم افهم مالهدف لكن الوجوه التعبيرية في الموضوع توحي بشي
على كل حال
انت قلت 8 ارقام
من السهل جدا ترجمتهم الى التاريخ
باخذ
year=4
month=2
day=2
use
right
left
and
mid
انتهى
RE: التعامل مع تكست بوكس - الطالب - 10-09-15
سلام
كود :
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If CheckDate(TextBox1.Text.Trim) Then
MsgBox("التاريخ صحيح")
Else
MsgBox("التاريخ خطا")
End If
End Sub
Private Function CheckDate(ByVal t As String) As Boolean
t = t.Trim
If t.Count = 8 Then
Dim d As String = t.Substring(0, 2) & "/" & t.Substring(2, 2) & "/" & t.Substring(4, 4)
Return IsDate(d)
End If
End Functionموفقين
RE: التعامل مع تكست بوكس - moha11 - 10-09-15
شكرا جزيلا لكم علي الردود
الكود شغال 100% اخي الطالب لكن لااستطيع وضع الفاصلة بين اليوم والشهر
والشهروالسنة ولاتدرج تدرج تلقائيا لكي يعرف المستخدم انه تاريخ
كان قصدي في السؤال انه حي اذا نسيت كتابة الفواصل تدرج تلقائيا بعد نقل المؤشر من هذا التكست
شاكر ومقدر لك تعبك وإن شاء الله في ميزان حسناتك
واحييك علي الجهد....
RE: التعامل مع تكست بوكس - أبو عمر - 10-09-15
في مثل هذه الحالات انت كمبرمج شاطر ونبيه
تجيب للمستخدم اداة التاريخ وتريح دماغك وتجبره على اختيار التاريخ منها
حتى لا تضطر لمعالجة اخطاء المستخدم فيما بعد
تحياتي
RE: التعامل مع تكست بوكس - moha11 - 12-09-15
مشكور ابو عمر بس مطلوب مني اعمل التاريخ في تكست بوكس
كيف ادرج هذه الفاصله(/) اذا نسيه المستخدم
مفهمة وجود الفاصلة في هذا السطر في الكود السابق
(Dim d As String = t.Substring(0, 2) & "/" & t.Substring(2, 2) & "/" & t.Substring(4, 4