كود صحيح ويحتاج الى تغير جزء فيه

طيب ممكن تشرح لنا هذة الدالتين:-

IsNumeric

Chr

لكي نتمكن من مساعدتك.

Private Sub Text1_KeyPress(KeyAscii As Integer)
If Chr(KeyAscii) = vbBack Then Exit Sub
If Not IsNumeric(Chr(KeyAscii)) And Chr(KeyAscii) <> Chr(46) Then
KeyAscii = 0
End If
End Sub

تم الصحيح..

أخي العزيز .. بالنسبه للـ IsNumeric فإنها تقوم بالتحقق ما إذا كان الـ String المدخل من مصفوفة الأرقام أم لا .. أي (1234567890)

أما بالنسبه للـ Chr فإنها تسمى character وأي الرمز فإن كل مابين القوسين سيكون رقمين أو ثلاثه على حسب جدول ASCII وعندما نضع كلمة KeyAscii في الداخل فإننا نخبر الجهاز بأن يقوم بحويل أي زر من على لوحة المفاتيح إلي أرقام ASCII ..

أعتقد ان الشرح معقد .. فأرجوا تصحيح أي معلومه خطأ.. وشكراً