elhacker.net cabecera Bienvenido(a), Visitante. Por favor Ingresar o Registrarse
¿Perdiste tu email de activación?.

 

 


Tema destacado: Usando Git para manipular el directorio de trabajo, el índice y commits (segunda parte)


+  Foro de elhacker.net
|-+  Programación
| |-+  Programación General
| | |-+  .NET (C#, VB.NET, ASP) (Moderador: kub0x)
| | | |-+  como puedo Evitar signos + - en texbox 		0 Usuarios y 1 Visitante están viendo este tema.
Páginas: [1] Ir Abajo Respuesta Imprimir
Autor Tema: como puedo Evitar signos + - en texbox  (Leído 3,064 veces)
luis456


Desconectado Desconectado

Mensajes: 551



Ver Perfil
como puedo Evitar signos + - en texbox
« en: 29 Septiembre 2013, 17:53 pm »
Ya mareado de googlear jejejej tengo otra pregunta si es posible  :rolleyes:

tengo varios texbox donde envió los resultados de una ecuación matemática introduzco datos en unos texbox estos pasan por la función y los resultados me los envía a estos 20 texbox. el problema es, que aunque le he puesto que solo acepte números lo cual funciona hay una pega es que cuando los números son negativos me muestra el signo  negativo  " - " lo cual no he podido eliminar. he puesto esta funcion pero sigue igual.

Código:
If InStr(1, "0123456789" & Chr(8), e.KeyChar) = 0 Then  
        e.KeyChar = ""  
    End If 


De antemano gracias

Luis

Pd alguna direccion de algun tuto de solo texbox jejeje
En línea
Que tu sabiduria no sea motivo de Humillacion para los demas
Eleкtro
Ex-Staff
*
Desconectado Desconectado

Mensajes: 9.885



Ver Perfil
Re: como puedo Evitar signos + - en texbox
« Respuesta #1 en: 29 Septiembre 2013, 18:15 pm »
( InStr es una función de vb6, te vuelvo a aconsejar como en otra ocasión que dejes todo eso a un lado... si empiezas a programar en VBNET como si estuvieramos en VB6, mal vamos, creo que deberías buscar ejemplos mejores en Google xD )

A ver si lo he entendido bien, ¿quieres permitir la escritura MANUAL de solo Dígitos en un textbox (solo números, sin tener en cuenta el símbolo del minus "-")?

Código
  1. Private Sub TextBox1_KeyPress(ByVal sender As Object, ByVal e As KeyPressEventArgs) _
  2. Handles TextBox1.KeyPress
  3.  
  4.     e.Handled = Not ("0123456789".IndexOf(e.KeyChar) > -1 OrElse e.KeyChar = Convert.ToChar(Keys.Back))
  5.  
  6. End Sub

Si usas ese código que te acabo de mostrar, el textbox podrá seguir conteniendo cualquier tipo de caracter si seteas la propiedad Text del control, Ej: Textbox1.text = "QWERTY"


¿O quieres que de todas las maneras posibles el Textbox solo pueda contener números?, no se si me explico bien:

Código
  1. Private Sub TextBox1_TextChanged(sender As Object, e As EventArgs) _
  2. Handles TextBox1.TextChanged
  3.  
  4.     sender.text = System.Text.RegularExpressions.Regex.Replace(sender.text, "\D", "")
  5.  
  6. End Sub

Si usas ese código, entonces no necesitas usar el primero que hice.

Saludos!
« Última modificación: 29 Septiembre 2013, 18:21 pm por EleKtro H@cker » En línea


luis456


Desconectado Desconectado

Mensajes: 551



Ver Perfil
Re: como puedo Evitar signos + - en texbox
« Respuesta #2 en: 29 Septiembre 2013, 18:57 pm »
Cita de: EleKtro H@cker en 29 Septiembre 2013, 18:15 pm
( InStr es una función de vb6, te vuelvo a aconsejar como en otra ocasión que dejes todo eso a un lado... si empiezas a programar en VBNET como si estuvieramos en VB6, mal vamos, creo que deberías buscar ejemplos mejores en Google xD )

A ver si lo he entendido bien, ¿quieres permitir la escritura MANUAL de solo Dígitos en un textbox (solo números, sin tener en cuenta el símbolo del minus "-")?

Código
  1. Private Sub TextBox1_KeyPress(ByVal sender As Object, ByVal e As KeyPressEventArgs) _
  2. Handles TextBox1.KeyPress
  3.  
  4.     e.Handled = Not ("0123456789".IndexOf(e.KeyChar) > -1 OrElse e.KeyChar = Convert.ToChar(Keys.Back))
  5.  
  6. End Sub

Si usas ese código que te acabo de mostrar, el textbox podrá seguir conteniendo cualquier tipo de caracter si seteas la propiedad Text del control, Ej: Textbox1.text = "QWERTY"


¿O quieres que de todas las maneras posibles el Textbox solo pueda contener números?, no se si me explico bien:

Código
  1. Private Sub TextBox1_TextChanged(sender As Object, e As EventArgs) _
  2. Handles TextBox1.TextChanged
  3.  
  4.     sender.text = System.Text.RegularExpressions.Regex.Replace(sender.text, "\D", "")
  5.  
  6. End Sub

Si usas ese código, entonces no necesitas usar el primero que hice.

Saludos!



 ;-)  ;-)  ;-)  ;-)  ;-)  ;-)  ;-)   no se me ocurre mas jejejje

Muchas gracias si necesitas alguna reparacion de tu coche me avisas :)

Luis
En línea
Que tu sabiduria no sea motivo de Humillacion para los demas
luis456


Desconectado Desconectado

Mensajes: 551



Ver Perfil
Re: como puedo Evitar signos + - en texbox
« Respuesta #3 en: 29 Septiembre 2013, 19:01 pm »
Perdon este fue el que nesecitaba  ;-)  ;-)  ;-)  ;-)


Código:
Private Sub TextBox1_TextChanged(sender As Object, e As EventArgs) _
Handles TextBox1.TextChanged
 
    sender.text = System.Text.RegularExpressions.Regex.Replace(sender.text, "\D", "")
 
End Sub

De nuevo muchas gracias

Luis
En línea
Que tu sabiduria no sea motivo de Humillacion para los demas
Páginas: [1] Ir Arriba Respuesta Imprimir 

Ir a:  

Mensajes similares
Asunto Iniciado por Respuestas Vistas Último mensaje
como puedo evitar errores de grabacion en cd?
Software 		sebtk 4 3,555 Último mensaje 11 Julio 2005, 11:09 am
por oldcap
como puedo evitar un correo donde lo quieren defraudar a uno
Dudas Generales 		checharin power 2 2,452 Último mensaje 3 Junio 2010, 01:59 am
por Sk9ITk5Z
Como puedo evitar que el administ. de Red vea mi Escritorio a traves del Dominio
Redes 		rxmr 1 3,981 Último mensaje 25 Junio 2011, 06:53 am
por ThonyMaster
¿Sabe alguien como puedo evitar que mi proveedor vea la información introducida?
Redes 		BillyXD 7 7,205 Último mensaje 9 Junio 2012, 15:16 pm
por BillyXD
¿Como puedo evitar que determinadas aplicaciones puedan acceder al router?
Redes 		do-while 0 1,967 Último mensaje 17 Enero 2013, 15:24 pm
por do-while
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines