validar textbox

[lucasiramos]

Iniciado por RadicalEd

Código:

Sub Text1_Keypress(KeyAscii As Integer)
If KeyAscii <> Asc("9") Then
If KeyAscii <> 8 Then
KeyAscii = 0
End If
End If
End Sub

Perdon RadicalEd, ese txt solo deja ingresar 9. Yo lo haria de la siguente manera

Código:

 Private Sub Text1_KeyPress(KeyAscii As Integer)
	If KeyAscii < 48 Or KeyAscii > 57 Then
		Select Case KeyAscii
			Case 8
			Case Else
				KeyAscii = 0
		End Select
	End If
End Sub

Para las fechas te recomiendo usar un MaskedEdit o un DTPicker. Luego con respecto a la validación de texto, todo depende lo que quieras hacer...

Saludos. Lucas