04-03-20, 05:13 AM
وعليكم السلام ورحمة الله وبركاته
أهلا بك أخي الكريم , هاذي عدة طرق لإختبار محتوى التكست بوكس :
بالتوفيق .
أهلا بك أخي الكريم , هاذي عدة طرق لإختبار محتوى التكست بوكس :
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