hacker


Ingresar con nombre de usuario, contraseña y duración de la sesión
| Portal Hacker | Editorial | Descargas | Ezine |
Inicio Ayuda Ingresar Registrarse
26 de Julio de 2008, 03:07:41
Noticias: Te consideras bueno en C++?
Para ver este enlace Registrate o Inicia Sesion
Aquí

+  Foros pOrtal Hacker
|-+  Programacion
| |-+  Programación en general
| | |-+  Visual Basic (Moderadores: ranefi, crypto136, ziBboh, >> s E t H <<)
| | | |-+  como hago para solo poner numeros en un textbox
0 Usuarios y 1 Visitante están viendo este tema. « anterior próximo »
Páginas: [1] Ir Abajo Imprimir
Autor Tema: como hago para solo poner numeros en un textbox  (Leído 267 veces)
Zidane10
Recien llegado
*
Desconectado Desconectado

Mensajes: 13


Ver Perfil
« : 27 de Febrero de 2007, 08:42:42 »

 ;DNecesito saber como se pone solo numeros en un textbox
En línea
zXxOsirisxXz
NZ2
**
Desconectado Desconectado

Mensajes: 173



Ver Perfil
« Respuesta #1 : 27 de Febrero de 2007, 11:14:35 »

Hola Zidane10 ^^

Pues bueno para solo poner numeros en un textbox es facil.. solo tienes k poner el siguiente codigo en un textbox.

Citar
Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 8 then goto 1
If KeyAscii < 48 Or KeyAscii > 57 Then KeyAscii = 0
1:
End Sub


Citar
Explicacion:
Fijate que el evento es de KeyPress y no de Change, ya que es al precionar las teclas.

Lo de Keyascii = 8, es porque 8 = BackSpace [Borrar] de esa manera, si le das a borrar, el ignorara la parte de solo numeros y nada mas, y se podra borrar.

Y la parte de If KeyAscii < 48 Or KeyAscii > 57 Then KeyAscii = 0, significa k si el keyascii es menor que 48 [ 0 ] o mayor que 57 [9] entonces el valor sera 0 = nada.

Espero que te alla servido de algo.

Saludos  Kiss
« Última modificación: 27 de Febrero de 2007, 11:16:49 por zXxOsirisxXz » En línea

Korpex
Visitante
« Respuesta #2 : 03 de Marzo de 2007, 01:26:23 »

Código:
Private Sub Text1_Change()
    If Not IsNumeric(Text1.Text) Then
        If Len(Text1.Text) <> 0 Then
            Text1.Text = Left(Text1.Text, Len(Text1.Text) - 1)
        Else
            Text1.Text = ""
        End If
    End If
End Sub

Yo uso el change y furula.. Tongue
En línea
Páginas: [1] Ir Arriba Imprimir 
« anterior próximo »
Ir a:  


Ingresar con nombre de usuario, contraseña y duración de la sesión

Powered by SMF 1.1.5 | SMF © 2006-2008, Simple Machines LLC hacker

Juegos gratis - Articulos PHP - Juegos - Trucos - Letras - Juegos - Juegos Online