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

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

اختبار التيكست هل هو فارغ او فيه اية كتابة او رقم - swan - 04-03-20

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

تحياتي لكم 

وهذا هو سؤالي الاول في هذا المنتدى الرائع ز

RE: اختبار التيكست هل هو فارغ او فيه اية كتابة او رقم - Ahmed_Mansoor - 04-03-20

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

أهلا بك أخي الكريم , هاذي عدة طرق لإختبار محتوى التكست بوكس :

PHP كود :
If Trim$(Text1.Text) = "" Then
   MsgBox "التكست بوكس فارغ", vbOKOnly + vbExclamation, "تنبيه"
End If

If Trim$(Text1.Text) = "5" Then
   MsgBox "لقد كتبت في التكست بوكس الرقم 5", vbOKOnly + vbExclamation, "تنبيه"
End If

If Trim$(Text1.Text) = "محمد" Then
   MsgBox "لقد كتبت في التكست بوكس الإسم محمد", vbOKOnly + vbExclamation, "تنبيه"
End If

If IsNumeric(Trim$(Text1.Text)) = False Then
   MsgBox "الذي كتبته في التكست بوكس ليس رقما", vbOKOnly + vbExclamation, "تنبيه"
End If

MsgBox "عدد الخانات التي كتبتها في التكست هي :" & vbNewLine & Len(Trim$(Text1.Text)), vbOKOnly + vbExclamation + vbMsgBoxRight + vbMsgBoxRtlReading, "تنبيه" 

بالتوفيق .

RE: اختبار التيكست هل هو فارغ او فيه اية كتابة او رقم - swan - 12-03-20

(04-03-20, 05:13 AM)Ahmed_Mansoor كتب : وعليكم السلام ورحمة الله وبركاته

أهلا بك أخي الكريم , هاذي عدة طرق لإختبار محتوى التكست بوكس :

PHP كود :
If Trim$(Text1.Text) = "" Then
   MsgBox "التكست بوكس فارغ", vbOKOnly + vbExclamation, "تنبيه"
End If

If Trim$(Text1.Text) = "5" Then
   MsgBox "لقد كتبت في التكست بوكس الرقم 5", vbOKOnly + vbExclamation, "تنبيه"
End If

If Trim$(Text1.Text) = "محمد" Then
   MsgBox "لقد كتبت في التكست بوكس الإسم محمد", vbOKOnly + vbExclamation, "تنبيه"
End If

If IsNumeric(Trim$(Text1.Text)) = False Then
   MsgBox "الذي كتبته في التكست بوكس ليس رقما", vbOKOnly + vbExclamation, "تنبيه"
End If

MsgBox "عدد الخانات التي كتبتها في التكست هي :" & vbNewLine & Len(Trim$(Text1.Text)), vbOKOnly + vbExclamation + vbMsgBoxRight + vbMsgBoxRtlReading, "تنبيه" 

بالتوفيق .
شكرا اخي العزيز ماقصرت ... تحياتي