منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

نسخة كاملة : اختبار التيكست هل هو فارغ او فيه اية كتابة او رقم
أنت حالياً تتصفح نسخة خفيفة من المنتدى . مشاهدة نسخة كاملة مع جميع الأشكال الجمالية .
السلام عليكم
اريد كود او اداة يختبرلي التيكست هل فيه كتابة او فارغ 
مثلا اذا فيه كتابة ولو حرف او رقم قم بامر معين كفتح فورم ثاني مثلا 

تحياتي لكم 

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

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

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"تنبيه" 

بالتوفيق .
(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"تنبيه" 

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