Quantcast
Channel: solo 1 letra y 1 numero
Viewing all articles
Browse latest Browse all 7

solo 1 letra y 1 numero

0
0

tengo problemas para que el textbox solo acepte 1 letra y 1 numero he coseguido que acepte solo los caracteres que quiero este es el codigo:

  Dim strLetra As String
        Dim blFlag As Boolean = False
        strLetra = UCase(e.KeyChar)
        Select Case Asc(strLetra)
            Case 65 To 71 : blFlag = True    'Es letra de la A -> G
               
            Case 48 To 56 : blFlag = True    'Es un número 0 -> 8   

            Case 8 : blFlag = True         'Tecla de retroceso
            Case 45 : blFlag = True
            Case Else : blFlag = False
        End Select
        If blFlag = False Then
            e.Handled = True
            SendKeys.Send("")
        End If

pero como ya dije solo quiero que sea 1 letra y 1 numero espere que puedan ayudar....MUCHAS GRACIAS!!!!


Viewing all articles
Browse latest Browse all 7

Latest Images

Vimeo 10.7.0 by Vimeo.com, Inc.

Vimeo 10.7.0 by Vimeo.com, Inc.

HANGAD

HANGAD

MAKAKAALAM

MAKAKAALAM

Doodle Jump 3.11.30 by Lima Sky LLC

Doodle Jump 3.11.30 by Lima Sky LLC

Doodle Jump 3.11.30 by Lima Sky LLC

Doodle Jump 3.11.30 by Lima Sky LLC

Vimeo 10.6.2 by Vimeo.com, Inc.

Vimeo 10.6.2 by Vimeo.com, Inc.

Vimeo 10.6.1 by Vimeo.com, Inc.

Vimeo 10.6.1 by Vimeo.com, Inc.

Vimeo 10.6.0 by Vimeo.com, Inc.

Vimeo 10.6.0 by Vimeo.com, Inc.

Re:

Re:





Latest Images

Vimeo 10.7.0 by Vimeo.com, Inc.

Vimeo 10.7.0 by Vimeo.com, Inc.

HANGAD

HANGAD

MAKAKAALAM

MAKAKAALAM

Doodle Jump 3.11.30 by Lima Sky LLC

Doodle Jump 3.11.30 by Lima Sky LLC

Doodle Jump 3.11.30 by Lima Sky LLC

Doodle Jump 3.11.30 by Lima Sky LLC

Vimeo 10.6.1 by Vimeo.com, Inc.

Vimeo 10.6.1 by Vimeo.com, Inc.

Vimeo 10.6.0 by Vimeo.com, Inc.

Vimeo 10.6.0 by Vimeo.com, Inc.

Re:

Re:

Re:

Re: