منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
[vb6.0] كيف يمكن ان اشترط على المستخدم إذخال في Text "ذكر"او "انثى" ؟؟ - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغات البرمجة الاخرى (http://vb4arb.com/vb/forumdisplay.php?fid=4)
+--- قسم : قسم لغة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=18)
+---- قسم : قسم أسئلة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=28)
+---- الموضوع : [vb6.0] كيف يمكن ان اشترط على المستخدم إذخال في Text "ذكر"او "انثى" ؟؟ (/showthread.php?tid=38048)

كيف يمكن ان اشترط على المستخدم إذخال في Text "ذكر"او "انثى" ؟؟ - Microformt - 17-03-21

الاخوه الكرام
 السلام عليكم
 كيف يمكن ان اشترط على المستخدم إذخال في Text  "ذكر" او "انثى" ؟؟
نامل من الله المساعدة وجزكم الله خيراً
 تحياتي

RE: كيف يمكن ان اشترط على المستخدم إذخال في Text "ذكر"او "انثى" ؟؟ - ahmedabdelaliem - 21-03-21

كود :
Private Sub Text1_LostFocus()
If Text1.Text <> "" Then
If Text1.Text <> "ذكر" And Text1.Text <> "انثى" Then
Text1.Text = ""
MsgBox " من فضلك ادخل النوع ذكر او انثى فقط"
Text1.SetFocus
Exit Sub
End If
End If
End Sub
ارجو ان يفيدك هذا الكود

RE: كيف يمكن ان اشترط على المستخدم إذخال في Text "ذكر"او "انثى" ؟؟ - Microformt - 21-03-21

(21-03-21, 02:00 AM)ahmedabdelaliem كتب :
كود :
Private Sub Text1_LostFocus()
If Text1.Text <> "" Then
If Text1.Text <> "ذكر" And Text1.Text <> "انثى" Then
Text1.Text = ""
MsgBox " من فضلك ادخل النوع ذكر او انثى فقط"
Text1.SetFocus
Exit Sub
End If
End If
End Sub
ارجو ان يفيدك هذا الكود
اخي العغزيز
 السلام عليكم
 الف الف الف شكر لك
 تحياتي