send
Grupo de Telegram
play_arrow
Este sitio utiliza cookies propias y de terceros. Si continúa navegando consideramos que acepta el uso de cookies. OK Más Información.

Como validar cualquier clase de cadena

  • 0 Respuestas
  • 1165 Vistas

0 Usuarios y 1 Visitante están viendo este tema.

Conectado ANTRAX

  • *
  • Administrator
  • Mensajes: 5283
  • Actividad:
    35%
  • Reputación 28
  • ANTRAX
    • Ver Perfil
    • Underc0de
    • Email
  • Skype: underc0de.org
  • Twitter: @Underc0de
« en: Julio 26, 2010, 04:11:28 pm »
Código: Visual Basic
  1. Function ValidarCadena(Caractar As Integer, StrValida As String) As Integer
  2. Dim Respuesta As Integer
  3. Respuesta = Caractar
  4. If Caractar > 26 Then
  5. If InStr(StrValida, Chr(Caractar)) = 0 Then
  6. Respuesta = 0
  7. End If
  8. End If
  9. ValidarCadena = Respuesta
  10. End Function
  11.  
  12. Private Sub txtvalidar_KeyPress(KeyAscii As Integer)
  13. KeyAscii = ValidarCadena(KeyAscii, "01234567ABCDEF")
  14. End Sub
« Última modificación: Mayo 12, 2014, 03:25:22 pm por Expermicid »


 

¿Te gustó el post? COMPARTILO!



Manual de como bloquear CTRL+ALT+SUP, ALT+TAB, Y OTROS con Visual Basic en WinXP

Iniciado por ANTRAX

Respuestas: 0
Vistas: 1710
Último mensaje Julio 26, 2010, 11:11:14 am
por ANTRAX
Como Imprimir en tamaño especial en Impresoras Matriciales en XP

Iniciado por ANTRAX

Respuestas: 0
Vistas: 1591
Último mensaje Julio 26, 2010, 11:14:36 am
por ANTRAX
Como impedir cambiar el tamaño de una ventana redimensionable

Iniciado por ANTRAX

Respuestas: 0
Vistas: 1486
Último mensaje Julio 26, 2010, 11:33:48 am
por ANTRAX
Como pasar de un texto a otro usando Enter

Iniciado por ANTRAX

Respuestas: 0
Vistas: 1505
Último mensaje Julio 26, 2010, 10:28:10 am
por ANTRAX
Como pasar de un TextBox a otro pulsando ENTER

Iniciado por ANTRAX

Respuestas: 0
Vistas: 9253
Último mensaje Julio 26, 2010, 03:41:24 pm
por ANTRAX