[Resolvido]Atalho para as Teclas

neiva.weber Qui 16 Fev 2012, 13:41

neiva.weber: Novato; Respeito às regras :

Sexo :
Localização :
Mensagens : 9
Registrado : 03/02/2012

Mensagem nº1

Atalho para as Teclas -

Mensagem neiva.weber Qui 16 Fev 2012, 13:41

Olá Feras,

Estou tentando realizar uma pesquisa ao pressionar a tecla Ctrl+F5, ele me monte uma mascara X e ao Pressionar a tecla Ctrl+F6, ele me monte uma mascara Y, em um textbox. Só que não está funcionando! Como vcs podem ver, eu coloquei no evento "Form_KeyDown", ou seja do formulário. O problema é que não acontece nada! O que poderia ser!
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
Select Case KeyCode
Case CtrlDown, vbKey5
LblEscolha.Caption = "Nº do Processo >>"
TxtProcesso.InputMask = "99999,999999/9999\-99"
TxtProcesso.Width = 2430

Case CtrlDown, vbKey6
LblEscolha.Caption = "Nome da Empresa >>"
TxtProcesso.InputMask = ""
TxtProcesso.Width = 4375
End Select

**Pablo Neruda** Qui 16 Fev 2012, 15:23

Pablo Neruda

Pablo Neruda: Developer; Respeito às regras :

Sexo :
Localização :
Mensagens : 344
Registrado : 17/09/2010

Mensagem nº2

Re: [Resolvido]Atalho para as Teclas

Mensagem Pablo Neruda Qui 16 Fev 2012, 15:23

No load do form você colocou keypreview = true?!?

Sds,

Pablo

.................................................................................
[Resolvido]Atalho para as Teclas Uc?export=view&id=0B-lnOJoekdM2VzZBQzFMVzRreTg