عرض مشاركة واحدة
  #6  
قديم 07-22-2007, 04:57 AM
الصورة الرمزية الاستاذ خليل
الاستاذ خليل الاستاذ خليل غير متواجد حالياً
المدير العام


 
تاريخ التسجيل: Jan 2003
الدولة: مملكة البحرين
المشاركات: 3,977
السلام عليكم

عمل ممتاز اخت امل اعجبني اختيارك لحدث LostFocus جزيت الف خير
كود:
Private Sub TextBox1_LostFocus()
If IsNumeric(TextBox1.Text) = False Then
A = MsgBox("فضلا ... أدخل رقمك وليس اسمك", vbOKOnly, "رسالة البرنامج")
TextBox1.Text = ""
Exit Sub
End If

End Sub
__________________
هذا من فضل ربي
رد مع اقتباس