طلب كود لكتابة ارقام فقط في التكست بوكس

Private Sub Text1_Change()
If Not IsNumeric(Text1.Text) Then SendKeys "{BackSpace}"
End Sub

شكرا ياباشا على المساعدة

الكود شغال عشرة على عشرة

abo_ahmed1 كتب:

Private Sub text1_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then SendKeys "{Tab}"

Select Case KeyAscii

Case 48 To 57 ' Allow digits

Case 8 ' Allow backspace

Case 46 ' Allow period (.)

Case Else

KeyAscii = 0

Beep

End Select

End Sub

هذه زيادة من عندي

وما اوتيت من العلم الا قليلاً

أخي أبو أحمد شكرا لك على هذا الكود بصراحه ممتاز

بس عندي سؤال اذا أمكن الإجابة عليه وللأستفادة

ألاحظ وجود أرقام في الكود على ماذ تدل ؟

وهل تدل على معنى معين ؟

وشكرا

ماشاء الله

بارك الله فيكم :)

Private Sub text1_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then SendKeys "{Tab}"

Select Case KeyAscii

Case 48 To 57 ' Allow digits

Case 8 ' Allow backspace

Case 46 ' Allow period (.)

Case Else

KeyAscii = 0

Beep

End Select

End Sub

هذه الارقام عبارة عن الاسكي كود للوحة المفاتيح مثال :

KeyAscii = 13 تعني اذا ضغط Enter انتقل الى التالي من الحقول

من 48 الى 57 الارقام و 8 ومفتاح المسافة اي ادخال مسافة في الحقل و 46 استخدام الفاصل العشرية من لوحة المفاتيح

KeyAscii = 0 تعني اذا ادخل غير هذا اوقف الادخال

وشكراً

abo_ahmed1 كتب:

Private Sub text1_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then SendKeys "{Tab}"

Select Case KeyAscii

Case 48 To 57 ' Allow digits

Case 8 ' Allow backspace

Case 46 ' Allow period (.)

Case Else

KeyAscii = 0

Beep

End Select

End Sub

هذه الارقام عبارة عن الاسكي كود للوحة المفاتيح مثال :

KeyAscii = 13 تعني اذا ضغط Enter انتقل الى التالي من الحقول

من 48 الى 57 الارقام و 8 ومفتاح المسافة اي ادخال مسافة في الحقل و 46 استخدام الفاصل العشرية من لوحة المفاتيح

KeyAscii = 0 تعني اذا ادخل غير هذا اوقف الادخال

وشكراً

بارك الله فيك أخي أبو أحمد على هذا التوضيح . :)

هذا اصغر وافضل كود

Private Sub Text1_KeyPress(KeyAscii As Integer)

If KeyAscii = 8 Then
ElseIf KeyAscii < Asc(0) Or KeyAscii > Asc(9) Then
KeyAscii = 0
End If

End Sub