تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[vb6.0] اختبار التيكست هل هو فارغ او فيه اية كتابة او رقم
#1
السلام عليكم
اريد كود او اداة يختبرلي التيكست هل فيه كتابة او فارغ 
مثلا اذا فيه كتابة ولو حرف او رقم قم بامر معين كفتح فورم ثاني مثلا 

تحياتي لكم 

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

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

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

بالتوفيق .
كود :
For Each Breathe in MyLife
Breathe.Say " سبحان الله والحمد لله ولا إله إلا الله والله أكبر أستغر الله العظيم وأتوب إليه"
Next
الرد
تم الشكر بواسطة: مصمم هاوي
#3
(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"تنبيه" 

بالتوفيق .
شكرا اخي العزيز ماقصرت ... تحياتي
الرد
تم الشكر بواسطة:



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


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