Visual Basic - Limitar un textbox

Life is soft - evento anual de software empresarial
 
Vista:

Limitar un textbox

Publicado por Néstor (13 intervenciones) el 10/12/2004 12:43:55
Hola amigos, alguien puede decirme por favor como hago para limitar un textbox para que unicamente reciba números, y que en caso de que el usuario escriba texto en él, de un msgbox.
Gracias por compartir su sabiduría.
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:Limitar un textbox

Publicado por Rogelio Carmona (113 intervenciones) el 10/12/2004 13:01:35
no que yo sepa nestor, tendrias que programar toda la validacion, yo lo haria de la siguiente manera:

en el Change del texbox

If Text1 <> "" Then
If Not IsNumeric(Mid(Text1, Len(Text1), 1)) Then
Text1 = Mid(Text1, 1, Len(Text1) - 1)
MsgBox "noooooooo"
Text1.SelStart = Len(Text1)
End If
End If
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:Limitar un textbox

Publicado por POLA (522 intervenciones) el 10/12/2004 13:10:50
Claro que se puede hacer. Deberás de programar el evento KeyPress y pegar el siguiente codigo.

Select Case Chr(Keyascii)
Case "0" To "9"
Case "a" To "z"
Msgbox "Letras"
Keyascii=0
Case "A" To "Z"
Msgox "Letras"
KeyAscii=0
Case else
Keyascii=0
End Select

Espero te sirva. Saludos Pola
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:Limitar un textbox

Publicado por Néstor (13 intervenciones) el 10/12/2004 14:11:28
MIL GRACIAS AMIGOS
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:Limitar un textbox

Publicado por fernando (79 intervenciones) el 10/12/2004 20:25:03
if keyascii < 48 or keyascii > 57 then
msgbox "Sólo Números!!"
keyascii = 0
endif
esto no permite puntos ni comas, no se si los necesitas
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
sin imagen de perfil

RE:Limitar un textbox

Publicado por eric martinez (59 intervenciones) el 12/12/2004 01:18:16
ufff si que ahy maneras aki tengo otra

Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii <> 8 Then esto es para que puedas borrar con la backspace
If Not IsNumeric(Chr(KeyAscii)) Then
KeyAscii = 0
End If
End If

un saludo
End Sub
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