المساعد الشخصي الرقمي

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

الاستاذ خليل
07-18-2007, 06:55 PM
السلام عليكم

اضغط هنا للشرح بالصوت و الصورة (http://www.hesab.net/PowerPoint/16-cheknumber.exe)
الواجب عمل برنامج يتحقق من قيمة رقمية رقمية او نصية
تحتاجون الى
textbox
زر
و تقولون له في الزر
اذا كانت القيمة رقمية ارسل مسج القيمة رقمية
اذا كانت القيمة نصية يرسل مسج ان القيمة نصية

و شكرا
refathafez
07-18-2007, 11:18 PM
شكر جزيلا وسوف تعمل الواجب
وشكرا
zine pef
07-19-2007, 02:12 AM
اليكم الواجب اخواني منهم الأستاذ الفاضل خليل و الأعضاء المشركين الأعزاء
الواجب من هنا (http://www.m5zn.com/Download-7.php?name=73dabf43c8.zip)
الاستاذ خليل
07-19-2007, 02:36 PM
عمل ممتاز zine pef
Amel2005
07-21-2007, 06:23 PM
السلام عليكم ورحمة الله وبركاته
الدرس رائع ... شكرا لك أستاذنا الكريم .
تطبيقى بالمرفقات ... أتمنى أن أكون قد وفقت .
تحياتى.
الاستاذ خليل
07-22-2007, 04:57 AM
السلام عليكم

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

End Sub