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
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