Foro de elhacker.net

Programación => Programación Visual Basic => Mensaje iniciado por: UNFORMAT en 9 Febrero 2010, 19:33 pm



Título: Duda con textbox
Publicado por: UNFORMAT en 9 Febrero 2010, 19:33 pm
Hola, tengo un problema que no se resolver. Me gustaría no permitir unos determinados caracteres en un textbox, por ejemplo + o &
¿Como podría hacerlo? en vb6


saludos!  ::)


Título: Re: Duda con textbox
Publicado por: DragonFire en 9 Febrero 2010, 19:38 pm
Hola, tengo un problema que no se resolver. Me gustaría no permitir unos determinados caracteres en un textbox, por ejemplo + o &
¿Como podría hacerlo? en vb6


saludos!  ::)

pues ve al evento de keypress o algun nombre similar

y evualua el contenido del textbox cada que es presionada (cualquier) tecla, borrandolo


Título: Re: Duda con textbox
Publicado por: ssccaann43 © en 9 Febrero 2010, 19:59 pm
Hola, tengo un problema que no se resolver. Me gustaría no permitir unos determinados caracteres en un textbox, por ejemplo + o &
¿Como podría hacerlo? en vb6


saludos!  ::)

Bien, puedes hacerlo así:


Código
  1.  
  2. Private Sub Text1_KeyPress(KeyAscii As Integer)
  3.    KeyAscii = VerificaTecla(KeyAscii)
  4. End Sub
  5.  
  6. Function VerificaTecla(Tecla)
  7.  
  8.  
  9. Dim CaracterProhibido As String
  10.  
  11.  
  12.    'Acepta todos los números, la tecla Backspace, _
  13.      la tecla Enter, la coma y el punto
  14.  
  15.    CaracterProhibido = "&%$!+-*/" & Chr(vbKeyBack)
  16.  
  17.    If InStr(1, CaracterProhibido, Chr(Tecla)) Then
  18.        'Si la tecla que precionaste contiene el caracter no deseado pues lo prohibe.
  19.        VerificaTecla = 0
  20.  
  21.    Else
  22.        VerificaTecla = Tecla
  23.    End If
  24.  
  25.  
  26. End Function
  27.  

Cualquier cosa postea...!


Título: Re: Duda con textbox
Publicado por: UNFORMAT en 9 Febrero 2010, 20:59 pm
Hola, tengo un problema que no se resolver. Me gustaría no permitir unos determinados caracteres en un textbox, por ejemplo + o &
¿Como podría hacerlo? en vb6


saludos!  ::)

Bien, puedes hacerlo así:


Código
  1.  
  2. Private Sub Text1_KeyPress(KeyAscii As Integer)
  3.    KeyAscii = VerificaTecla(KeyAscii)
  4. End Sub
  5.  
  6. Function VerificaTecla(Tecla)
  7.  
  8.  
  9. Dim CaracterProhibido As String
  10.  
  11.  
  12.    'Acepta todos los números, la tecla Backspace, _
  13.      la tecla Enter, la coma y el punto
  14.  
  15.    CaracterProhibido = "&%$!+-*/" & Chr(vbKeyBack)
  16.  
  17.    If InStr(1, CaracterProhibido, Chr(Tecla)) Then
  18.        'Si la tecla que precionaste contiene el caracter no deseado pues lo prohibe.
  19.        VerificaTecla = 0
  20.  
  21.    Else
  22.        VerificaTecla = Tecla
  23.    End If
  24.  
  25.  
  26. End Function
  27.  

Cualquier cosa postea...!



Que te puedo decir.... un millon de gracias me ha servido a la perfección
la verdad que no tenia ni idea me salvastes!!!

te debo una amigo  ;) de nuevo GRACIAS!


Título: Re: Duda con textbox
Publicado por: ssccaann43 © en 9 Febrero 2010, 21:46 pm
Dale, cualquier duda postea..!