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:17:31
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

Epale que pasó ?

Publicado por J2ML (464 intervenciones) el 30/09/2002 18:02:43
Yo pensé que te había enviado la respuesta de todas formas aquí te la repito.... Necesitas un Form1, con un TextBox1 con un Timer1, luego este código...

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

Public Sub BorrarCaracter()
If CBool(Len(Text1)) Then Text1 = Left(Text1, Len(Text1) - 1)
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:Epale que pasó ?

Publicado por Miguel (1 intervención) el 01/10/2002 08:27:46
Es q puse la pregunta en varios foros. Gracias otra vez.
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