04/05/2009, 16:10
|
 | | | Fecha de Ingreso: mayo-2009
Mensajes: 185
Antigüedad: 16 años Puntos: 1 | |
| Respuesta: Borrar cajas de texto con la funcion Esc
Mira lo que pude hacer y funciono es esto (3 TextBox):
img15.imageshack.us/img15/5374/capturegox.jpg
Private Sub Text1_KeyDown(Keyascii As Integer, Shift As Integer)
If Keyascii = 27 Then
Text1.text = ""
Text2.text = ""
Text3.text = ""
End If
End Sub
Private Sub Text2_KeyDown(Keyascii As Integer, Shift As Integer)
If Keyascii = 27 Then
Text1.text = ""
Text2.text = ""
Text3.text = ""
End If
End Sub
Private Sub Text3_KeyDown(Keyascii As Integer, Shift As Integer)
If Keyascii = 27 Then
Text1.text = ""
Text2.text = ""
Text3.text = ""
End If
End Sub
Espero que te sirva |