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

 

 


Tema destacado: Security Series.XSS. [Cross Site Scripting]


+  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 2,123 veces)
luis456


Desconectado Desconectado

Mensajes: 546



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.700



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: 546



Ver Perfil
Re: como puedo Evitar signos + - en texbox
« Respuesta #2 en: 29 Septiembre 2013, 18:57 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: 546



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:  

WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines