لو أريد أن يكتب الtextbox
أرقام فقط ولا يكتب حروف أو رموز أو غيره
بعرف انه هذا الكود
Private Sub COMMAND1_CLICK()
DIM SS AS STRING
SS="123456789"
IF INSTR(SS,CHR(KEYASCII)=0 THEN
KEYASCII=0
END IF
End Sub
بس للأسف مش راضي يضبط بالمرة
بكتب حروف ...عادي بكتبها شو ما كان
أرجوا الإفادة
اختكم
هذا تصحيح الكود
Private Sub Text1_KeyPress(KeyAscii As Integer) If InStr(1, "123456789", Chr(KeyAscii)) = 0 Then KeyAscii = 0 End Sub
وهذا كود اخر
Private Sub Text1_KeyPress(KeyAscii As Integer) If IsNumeric(Chr(KeyAscii)) = False Then KeyAscii = 0 End Sub
الاثنين بحدث KeyPress للتكست بوكس
Ali Sayed
شكرا كثير وبارك الله فيك
فقد توقعتك ترد على سؤالي يا مبرمج يا محترف
اشكرك كثير على الرد
هذا الموضوع مغلق.