از کار افتادن دکمه Backspace

[hr0694]

سلام

چرا وقتی این کد زیر رو مینویسم دکمه Backspace از کار می افته چه جوری اصلاحش کنم

Private Sub Text1_KeyPress(KeyAscii As Integer)
If InStr("0123456789", Chr(KeyAscii)) = 0 Then KeyAscii = 0
End Sub

[just4froum]

با سلام

Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii <> 8 Then
If InStr("0123456789", Chr(KeyAscii)) = 0 Then KeyAscii = 0
End If
End Sub

موفق باشید.

[محسن واژدی]

سلام علیکم

کد زیر را جایگزین کنید:

Private Sub Text1_KeyPress(KeyAscii As Integer)

If (KeyAscii < vbKey0 Or KeyAscii > vbKey9) And Not KeyAscii = vbKeyBack Then KeyAscii = 0

End Sub


موفق باشید