Texbox Que Solo Admita Números

Programación General > Visual Basic para principiantes

<< < (3/3)

RadicalEd:

--- Cita de: "Tania_D" ---
--- Cita de: "RadicalEd" ---
Puede reacomodar tú código de esta manera sin tantos If

--- Código: Text ---Private Sub text1_keypress(keyascii As Integer)If (keyascii < 48 Or keyascii > 57) And KeyAscii == 8 Then keyascii = 0 End Ifsalir:End Sub
--- Fin de la cita ---
:ph34r: ademas de que hay un signo igual (=) extra, lo probe y no acepta la tecla BACKSPACE porque deberia ser asi:

--- Código: Text ---Private Sub text1_keypress(keyascii As Integer)If (keyascii < 48 Or keyascii > 57) And KeyAscii <> 8 Then keyascii = 0 End Ifsalir:End Sub
--- Fin de la cita ---
Sorry :( :( Es que estoy jugando con Python y me estoy apegando a su sintaxis :comp: :comp:

zubrowska:
bueno esta es otra manera de hacerlo y creo q es un poco más facil; bueno para mi lo es.....

[CODE]
'8 codigo ascii de la tecla backspace
'función asc convierte el caracter a su codigo ascii
If (Asc(e.keychar) <> 8) Then
If (e.keychar < "0" 0r e.keychar > "9") Then
MsgBox("ingrese solo números")
End If
End If

zubrowska:
bueno esta es otra manera de hacerlo y creo q es un poco más facil; bueno para mi lo es.....

--- Código: Text --- '8 codigo ascii de la tecla backspace'función asc convierte el caracter a su codigo asciiIf (Asc(e.keychar) <> 8) Then If (e.keychar < "0" 0r e.keychar > "9") Then MsgBox("ingrese solo números") End IfEnd If

sorrino:
jajajaja que manera de encontrar variadas respuestas y muy buen comentario de no me acuerdo quien que dijo (escribio mejor dicho) lo de Ctrl + V que eso en mis programas no lo utilizo tremendo error que ahora al llegar a casa lo mirare.
yo solo te dire que pon una caja de texto en un form y

Private Sub text1_keypress(keyascii As Integer)
text1.text=keyascii
end sub

sorrino:
podras ver que tecla presionaste, y no te digo el codigo qeu utilizo ya que con los que escribieron arriba esta mas que completo y esta el qeu yo uso jajaja.
salu2 del sorrino

Navegación

[0] Índice de Mensajes

[*] Página Anterior

Ir a la versión completa