Ver Mensaje Individual
  #2 (permalink)  
Antiguo 27/07/2009, 17:46
Avatar de STK_Pablo
STK_Pablo
 
Fecha de Ingreso: junio-2008
Ubicación: Las Rosas - Santa Fe - Argentina
Mensajes: 69
Antigüedad: 15 años, 11 meses
Puntos: 1
Respuesta: Validar un textbox ya sea que ingrese numeros o letras dependiendo de dos

en el evento keypress del textbox verificas que radiobutton esta con value=true y en base a eso utilizas para los numeros:

Código vb:
Ver original
  1. If InStr("0123456789", Chr(KeyAscii)) = 0 Then
  2.         KeyAscii = 0
  3.       End If

y para las letras:

Código vb:
Ver original
  1. If InStr("ABCDEFG.....xyz", Chr(KeyAscii)) = 0 Then
  2.         KeyAscii = 0
  3.       End If
Espero que con esto te alcance para lo que necesitas


en definitiva, te quedaria algo as{i dentro del keypress del txtbox


Código vb:
Ver original
  1. Private Sub txtBox_KeyPress(KeyAscii As Integer)
  2.   If KeyAscii = 13 Then SendKeys "{Tab}": KeyAscii = 0: Exit Sub
  3.   If KeyAscii = 8 Then Exit Sub   'Si es retroceso salir de la funcion
  4.  If radiobutton(0).Value Then          'Numerico por ejemplo
  5.      If InStr("0123456789", Chr(KeyAscii)) = 0 Then
  6.         KeyAscii = 0
  7.       End If
  8.   ElseIf radiobutton(1).Value Then          'Texto por ejemplo
  9.      If InStr("ABCDEF......VWXYZabcdefgh.....xyz", Chr(KeyAscii)) = 0 Then
  10.         KeyAscii = 0
  11.       End If
  12.   End If
  13. End Sub