Visual Basic - Ayuda urge

Life is soft - evento anual de software empresarial
 
Vista:

Ayuda urge

Publicado por Arturo (1 intervención) el 21/02/2006 14:10:28
Necisito realizar una validacion en un texbox que solo me admita numeros, si el usuario pone letras que aparezca un mensaje indicando "caracter valido" ayuden por favor
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Ayuda urge

Publicado por Marcelo (1 intervención) el 21/02/2006 15:44:32
If Not isnumeric(txt.text) then
msgbox"Total es un campo Numerico"
txt.setfocus
txt.selStar=0
txt.selLength= len(txt.text)
exit sub
end if

**Cualquier cosa Comunicate marblaan@hotmail.com
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Ayuda urge

Publicado por Jorge (231 intervenciones) el 21/02/2006 16:18:00
Otra forma es no dejar que escriba letras sino solo numeros con este codigo puedes hacerlo

Private Sub Text1_KeyPress(KeyAscii As Integer)
Select Case KeyAscii
Case 8 'Retroceso
Case Is < 48
KeyAscii = 0
Case Is > 57
KeyAscii = 0
End Select
End Sub
El punto y la coma son respectivamente 46 y 44
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar