duda: validar un text box de un winform.

dani25, le envio una forma de capturar la informacion solo numerica
descartando otros caracteres, el emplear un mensaje por presion de otros
caracteres dificulta el proceso.

la idea es utilizar la rutina de keyup para el filtrado asi:

private sub textbox.._keyup(...)

dim Campo, letra as string
dim j, Se as short
dim NoPoint as boolean

textbox...text = trim(textbox...text)
select case e.keycode

case keys.home, keys.end, keys.left, keys.right, keys.delete, keys.insert
'se obvia el filtrado de estas en la rutina
case keys.tab
'cuando recibe de otro seleccion todo
textbox...selectall()
case keys.up 'define a donde ir si se presiona up
case 13, keys.down
'captura el enter o down
'aqui defina a donde ir
case else
'filtrado de caracteres

Se= textbox...selectionstart 'guarda posicion del cursor
NoPoint = false 'memoria de digitacion de un punto

for j = 1 to len(textbox...text)
letra = mid(textbox...text,j,1)
if NoPoint and asc(letra) = 46 then
letra = "A" 'convierte los puntos a A si ya se digito 1
end if

select case asc(letra)
case 48 to 57 'filtra que solo se acepten numeros
campo = campo & letra
case 46
Nopoint = true
'memoriza que ya se digito un punto nopoint debe ser publica
Campo = campo & letra 'acepta el primer punto
end select
next

texttbox...text = campo 'volcamiento del campo depurado
textbox...Selectionstart = se ' coloca el cursor

end select

end sub


espero le sea util o le de ideas para crear su propia rutina

"dani25A" escribió:

Hola estoy haciendo una aplicación para Windows en VB .NET , y tengo la
siguiente duda:
- No se como puedo validar un textbox de un winform, es decir quiero que me
introduzcan un valor decimal en el siguiente formato (1234,12) pero no se
como puedo conseguir que no me introduzcan "texto " en este campo porque sino
luego al hacer el cast del valor del textbox a decimal me da una
excepcion.

GRACIAS !!! y aprovecho para desearos felices fiestas.