اريد كتابة ارقام في مربع نص فقظ بحيث ادا كتبت حرف لايكتب في مربع النص او يظهر رساله بان الطريقه خطأ
كيف اتحكم في مدخلات مربع النص
مغلق
بسم الله الرحمن الرحيم
الكود التالي يسم لك بادخال الارقام والفاصلة العشرية و Back Space فقط
انقله الى برنامجك مع التأكد من اسم مربع النص
Private Sub Text1_KeyPress(KeyAscii As Integer) If KeyAscii > 57 Or KeyAscii < 48 Then If KeyAscii <> 46 And KeyAscii <> 8 Then KeyAscii = Empty End If End If End Sub
********************* ******************** *********************
(( أشــهد أن لا اله الا الله ..... وأشهد أن محمد رسول الله ))
********************* ******************** *********************
لا تقـل من أيـن أبدأ
طـاعـة الله الـبدايـة
***
لا تقـل أين طـريـقي
شــرع الله الهـدايـة
***
لا تـقـل أيـن نعـيمي
جـنـة الله كـفـايـــــة
***
لا تقـل في الغـد أبدأ
ربمـــا تأتـي النهـايـــة
**************** **************** ****************
استخدم دالة
IsNumeric(ضع الحقل المراد فحصه هنا)
&&& سبحانك اللهم وبحمدك .. أشهد ان لا إله إلا أنت .. أستغفرك وأتوب إليك &&&
...
هذا الموضوع مغلق.