Se me bloquea el sistema
Publicado por edulaencina (12 intervenciones) el 24/12/2004 13:02:04
Hola colegas, tengo un error muy extraño que no se a qeu se debe. Se me produce al intentar controlar el Keypress del un textbox. Al darle a la tecla Borrar (Keyascii = 8), se me bloquea el sistema. Aqui les paso el codigo:
Private Sub Text3_KeyPress(Keyascii As Integer)
If Keyascii = 13 Then
SendKeys "{TAB}"
End If
If Keyascii >= 49 Or Keyascii <= 52 Then
If Keyascii = 8 Then
SendKeys "{BS}"
End If
Else
Keyascii = 0
End If
End Sub
Private Sub Text3_KeyPress(Keyascii As Integer)
If Keyascii = 13 Then
SendKeys "{TAB}"
End If
If Keyascii >= 49 Or Keyascii <= 52 Then
If Keyascii = 8 Then
SendKeys "{BS}"
End If
Else
Keyascii = 0
End If
End Sub
Valora esta pregunta
0