Forzar a un TextBox para que admita únicamente números
Truco de Visual Basic 6.0 - Forzar a un TextBox para que admita únicamente números
Crear un formulario, añadir un TextBox y escribir el siguiente código:
Sub Text1_Keypress(KeyAscii As Integer)
If KeyAscii <;>; Asc("9") Then
'KeyAscii = 8 es el retroceso o BackSpace
If KeyAscii <;>; 8 Then
KeyAscii = 0
End If
End If
End Sub
Más trucos de Trucos de Visual Basic 6.0
Trucos más leídos
Los trucos Trucos de Visual Basic 6.0 más vistos