[VB] Validacion de Txt

Nacho, no se en VB, pero en varios otros tenes lo que se llaman MaskEdits o FormattedTextField, que justamente hacen eso. Tal vez en VB se llamen igual.
Slds!
Nacho.-

Tenes dos formas de hacerlo:

- Con un control MSMaskEdit
- Validando el KeyAscii del evento KeyPress de un control

Gracias por orientarme.Alguno me podria explicar por encima que es el MSMaskEditYa que el keypress en ascii me resulta engorros Gracias....Nacho, Felicitaciones por el MOD, recien me doy cuenta

con esto estas interceptando el evento KeyPress del text1

Private Sub Text1_KeyPress(KeyAscii As Integer)

End Sub



adentro lo que tendrias que hacer es validar es que el KeyAscii (ascii correspondiente a la tecla que apretaste)
sea distinto de los caracteres que vos queres

if KeyAscii = asc("!") then 'no me acuerdo si era asi
loquesea
endif

espero que te sirva, saludos

No tengo idea como utilizar expreciones regulares en vb pero la idea seria q uses una funcion algo asi mira:
no se si se llama asi la funcion en vb, pero eso lo q haria es todo lo q no es a hasta z o A hasta Z te lo sacaraia. Busca una funcion similar y proba, para dejar solo numeros hace lo mismo pero con esta exprecion :
"^[0-9]+"



Saludos, espero q te sirva

Mañana en el laburo lo veo a ver si anda.

Mil gracias

En el evento Keypress del la Caja de Texto
select case keyascii
case 8 'retroceso
case 32 ' barra espaciadora
case 65 to 90 'Mayusculas A-Z
case 97 to 122 'Minusculas a-z
case 164 to 165 ' ñ-Ñ
case else ' si los asciis no se encuentran dentro de los parametros
keyascii=0 ' devolvemos nada!!!
End Select

es bastaaaaante mas facil de lo que parece. yo lo hice asi:
primero declare una variable global de tipo String con todos los caracteres que quiero que se puedan poner, en este caso solo numeros "0123456789"

y después en el evento KeyPress:

esto hace lo siguiente:
al apretar una tecla se fija en la cadena Caracteres si dicho caracter se encuentra, si no se encuentra entonces la funcion InStr devuelve 0 (es un caracter que no queremos) entonces no devuelve nada.
espero que te sirva
otra forma de hacerlo seria algo como
if KeyAscii >= Asc("a") and KeyAscii <= Asc("z") then
etc etc

solo numeros
Private Sub txtcodigo_KeyPress(KeyAscii As Integer)
If KeyAscii < 48 Or KeyAscii > 57 Then
If KeyAscii <> 8 Then
KeyAscii = 0
End If
End If
End Sub

asi es solo mayusculas
rivate Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii < 65 Or KeyAscii > 90 Then
If KeyAscii <> 8 Then
KeyAscii = 0
End If

End If

End Sub

solo minusculas
rivate Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii < 97 Or KeyAscii > 122 Then
If KeyAscii <> 8 Then
KeyAscii = 0
End If

End If

End Sub

Espero que les sirva