wilKs
|
ITABORAÍ
RJ - BRASIL
|
|
ENUNCIADA !
|
|
|
Postada em 12/07/2004 11:33 hs
Olá!
Tenho uma rotina em que precisei desabilitar a tecla "Tab".
Como faço para reproduzir o seu efeito de mudança de foco de objeto, usando outra tecla, como "F12", por exemplo?
A quem puder ajudar, grato.
|
|
TÓPICO EDITADO
|
|
|
|
|
|
MegaMan X
|
SÃO BERNARDO DO CAMPO
SP - BRASIL
|
|
|
ENUNCIADA !
|
|
|
Postada em 12/07/2004 12:19 hs
cria vários botões por exemplo com o mesmo nome e só mudando a propriedade index, e ao utilizar a tecla f12 vc verifica uma variável na memória e faz o foco ir para o objeto que tem como index o número da variável, entendeu ??? |
|
|
|
wilKs
|
ITABORAÍ
RJ - BRASIL
|
|
|
ENUNCIADA !
|
|
|
Postada em 12/07/2004 12:42 hs
Entendi. Mas e se o próximo objeto não for igual ao anterior ? Tipo: de um CommanButton para um ComboBox ? |
|
|
|
Roßerto
não registrado
|
|
|
ENUNCIADA !
|
|
|
Postada em 12/07/2004 12:57 hs
coloque a propriedade KEYPREVIEW do form como TRUE
no evento KEYDOWN do form coloque o seguinte codigo
If keycode = vbkeyf12 then SendKeys "{Tab}"
mas para ficar certo, não esqueça de acertar a ordem do TABINDEX
Roberto
|
|
|
|
wilKs
|
ITABORAÍ
RJ - BRASIL
|
|
|
ENUNCIADA !
|
|
|
Postada em 12/07/2004 13:22 hs
Exatamente!! Pra completar esta rotina, só precisaria saber qual objeto está em foco no momento (incluido o INDEX dele). |
|
|
|
WaldirJr
|
POÇOS DE CALDAS
MG - BRASIL
|
|
|
ENUNCIADA !
|
|
|
Postada em 12/07/2004 13:39 hs
Para saber qual objeto:
Me.ActiveControl.Name
Para saber o index, ou vc faz:
Me.ActiveControl.Index
e trata os erros c/ os objetos que não tem index:
If Me.ActiveControl.Name = "Text1" Then
indice = Me.ActiveControl.Index
End If
ou utilize a propriedade Tag para gravar essa informação
indice = Me.ActiveControl.Tag
________________________ Té + Que NIMB role bons Dados! 
|
|
|
|
