Visual Basic - Simular un teclado

Life is soft - evento anual de software empresarial
 
Vista:

Simular un teclado

Publicado por Miguel (40 intervenciones) el 30/09/2002 13:19:33
Buenas.

A ver, lo q yo tengo es un textbox y un boton y cuando pulso en el boton me borra el ultimo caracter q haya escrito en el textbox. Lo que quiero hacer es q cuando lo mantengo pulsado simular lo q hace el backspace, es decir y borrandolos todos uno a uno, empezando por el final.
Espero haberme explicado.
Gracias.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

Simular un teclado...!

Publicado por J2ML (464 intervenciones) el 30/09/2002 15:13:45
A mi me parece que tu requieres algo como el siguiente código (por cierto par ello necesitas un Command button 1, un Timer1 y un Textbox1):

Public Sub BorrarCaracter()
If CBool(Len(Text1)) Then Text1 = Left(Text1, Len(Text1) - 1)
End Sub

Private Sub Form_Load()
Timer1.Enabled = False
Timer1.Interval = 50
End Sub

Private Sub Command1_KeyDown(KeyCode As Integer, Shift As Integer)
Timer1.Enabled = True
Call BorrarCaracter
End Sub

Private Sub Command1_KeyUp(KeyCode As Integer, Shift As Integer)
Timer1.Enabled = False
End Sub

Private Sub Command1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Timer1.Enabled = True
Call BorrarCaracter
End Sub

Private Sub Command1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
Timer1.Enabled = False
End Sub

Private Sub Timer1_Timer()
Call BorrarCaracter
End Sub

Si te sirve o nó avísame.... J2ML
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Simular un teclado...!

Publicado por Miguel (40 intervenciones) el 30/09/2002 16:32:17
Perfecto. Muchas gracias.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar