الدرس السابع التحقق من القيم المدخلة رقمية او نصية

[الاستاذ خليل]

السلام عليكم

اضغط هنا للشرح بالصوت و الصورة
الواجب عمل برنامج يتحقق من قيمة رقمية رقمية او نصية
تحتاجون الى
textbox
زر
و تقولون له في الزر
اذا كانت القيمة رقمية ارسل مسج القيمة رقمية
اذا كانت القيمة نصية يرسل مسج ان القيمة نصية

و شكرا

[refathafez]

شكر جزيلا وسوف تعمل الواجب
وشكرا

[zine pef]

اليكم الواجب اخواني منهم الأستاذ الفاضل خليل و الأعضاء المشركين الأعزاء
الواجب من هنا

[الاستاذ خليل]

عمل ممتاز zine pef

[Amel2005]

السلام عليكم ورحمة الله وبركاته
الدرس رائع ... شكرا لك أستاذنا الكريم .
تطبيقى بالمرفقات ... أتمنى أن أكون قد وفقت .
تحياتى.

[الاستاذ خليل]

السلام عليكم

عمل ممتاز اخت امل اعجبني اختيارك لحدث LostFocus جزيت الف خير

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

End Sub