Validação De Letras

[jmroque]

Boa tarde, gostaria se possivel que me dissessem o código para uma text box aceitar apenas letras, mas sem o recurso a vbkeys.

Obrigado

[mestre fyoda]

sei la mano , uma solução seria colocar o campo mask .

Project --> Components -> Marque a opção Microsoft Masked Edit Control 6.0

depois você vai na propriedade do campo mask e va na propriedade mask e adicione la dentro isso

>???-????

, se você quiser tirar o maisculo tire o sinal > .

[Graymalkin]

Boa tarde, gostaria se possivel que me dissessem o código para uma text box aceitar apenas letras, mas sem o recurso a vbkeys.

O que seria "vbkeys"? As constantes (vbKeyA, vbKeyB, etc.)? Bom, um jeito simples de se fazer isso é assim, no evento KeyPress:

    código = Asc(LCase(Chr(KeyAscii)))
    If Not (código >= 97 And código <= 122) Then
        KeyAscii = 0
    End If

Vale ressaltar que só serão aceitos os caracteres de a-z e de A-Z e mais nenhum outro (inclusive ç e Ç, caracteres acentuados e o backspace serão bloqueados).

Abraços,

Graymalkin

[William Rodrigues]

Salve!

Outra forma, não sei se é bem o caso, seria travar apenas os números:

    If KeyAscii > 47 And KeyAscii < 58 Then
        KeyAscii = 0
    End If

Se precisar travar ou destravar alguma tecla, basta dar uma consultada na tabela ASCII

Abraços,

William Rodrigues