Início![[Resolvido]Função na tecla ALT Empty](https://2img.net/i/empty.gif)
washytonn 18/4/2013, 14:16gostaria de saber que é possivel colocar um função na tecla ALT
e como faço para colocar?
e como faço para colocar?
2 participantes
[Resolvido]Função na tecla ALT
washytonn- Avançado
- Respeito às regras :
Sexo :
Localização :
Mensagens : 295
Registrado : 13/01/2012
JPaulo- Moderador
- Respeito às regras :
Sexo :
Localização :
Mensagens : 11026
Registrado : 04/11/2009
Ola;
O seu formulario tem de estar com Visualizar Teclas = Sim
A sua função tem de existir num modulo;
No seu form;
O seu formulario tem de estar com Visualizar Teclas = Sim
A sua função tem de existir num modulo;
No seu form;
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 18 Then
Call SuaFunção
End If
End Sub
.................................................................................
Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.
Pay-Pal R$ Aqui
Pay-Pal € Aqui
Ou ainda: Aqui (Novo)
Sucesso e Bons Estudos
Success and Good Studies
![[Resolvido]Função na tecla ALT Folder_announce_new](https://2img.net/i/fa/subsilver/folder_announce_new.gif)
Utilize o Sistema de Busca do Fórum... 102 Códigos VBA Gratuitos... Instruções SQL como utilizar...
washytonn- Avançado
- Respeito às regras :
Sexo :
Localização :
Mensagens : 295
Registrado : 13/01/2012
não deu certo...
o que faço?
o que faço?
washytonn- Avançado
- Respeito às regras :
Sexo :
Localização :
Mensagens : 295
Registrado : 13/01/2012
o que quero fazer é o seguinte:
no meu formulário o cabecalhodoformulario não vai ficar visivel.
eu quero que quando aperta o ALT ele fique visivel e quando aperta novamente não fique mais visivel.
alguem sabe como faço??
no meu formulário o cabecalhodoformulario não vai ficar visivel.
eu quero que quando aperta o ALT ele fique visivel e quando aperta novamente não fique mais visivel.
alguem sabe como faço??
JPaulo- Moderador
- Respeito às regras :
Sexo :
Localização :
Mensagens : 11026
Registrado : 04/11/2009
Rapaz, é muito vago dizer que não deu certo.
O que lhe passei, acredite que funciona sim, pode é você não estar a fazer corretamente.
O que lhe passei, acredite que funciona sim, pode é você não estar a fazer corretamente.
.................................................................................
Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.
Pay-Pal R$ Aqui
Pay-Pal € Aqui
Ou ainda: Aqui (Novo)
Sucesso e Bons Estudos
Success and Good Studies
Utilize o Sistema de Busca do Fórum... 102 Códigos VBA Gratuitos... Instruções SQL como utilizar...
washytonn- Avançado
- Respeito às regras :
Sexo :
Localização :
Mensagens : 295
Registrado : 13/01/2012
If Me.CabeçalhoDoFormulário.Visible = False Then
If KeyCode = 18 Then
Me.CabeçalhoDoFormulário.Visible = True
End If
End If
If Me.CabeçalhoDoFormulário.Visible = True Then
If KeyCode = 18 Then
Me.CabeçalhoDoFormulário.Visible = False
End If
End If
dê uma olhada e veja se esta certo ou não?
obrigado
If KeyCode = 18 Then
Me.CabeçalhoDoFormulário.Visible = True
End If
End If
If Me.CabeçalhoDoFormulário.Visible = True Then
If KeyCode = 18 Then
Me.CabeçalhoDoFormulário.Visible = False
End If
End If
dê uma olhada e veja se esta certo ou não?
obrigado
JPaulo- Moderador
- Respeito às regras :
Sexo :
Localização :
Mensagens : 11026
Registrado : 04/11/2009
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 18 Then
Me.FormHeader.Visible = Not Me.FormHeader.Visible
KeyCode = 0
End If
End Sub
- Anexos
![[Resolvido]Função na tecla ALT Attachment](https://2img.net/i/fa/attachment.png)
ALT.zip - Você não tem permissão para fazer download dos arquivos anexados.
- (25 Kb) Baixado 18 vez(es)
.................................................................................
Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.
Pay-Pal R$ Aqui
Pay-Pal € Aqui
Ou ainda: Aqui (Novo)
Sucesso e Bons Estudos
Success and Good Studies
Utilize o Sistema de Busca do Fórum... 102 Códigos VBA Gratuitos... Instruções SQL como utilizar...
washytonn- Avançado
- Respeito às regras :
Sexo :
Localização :
Mensagens : 295
Registrado : 13/01/2012
valeu... deu super certo...
o que eu estava tentando fazer estava muito longe de dar certo...
esse forum é demais.
e as pessoas que participam mais ainda...
o que eu estava tentando fazer estava muito longe de dar certo...
esse forum é demais.
e as pessoas que participam mais ainda...
JPaulo- Moderador
- Respeito às regras :
Sexo :
Localização :
Mensagens : 11026
Registrado : 04/11/2009
Obrigado pelo retorno o forum agradece.
.................................................................................
Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.
Pay-Pal R$ Aqui
Pay-Pal € Aqui
Ou ainda: Aqui (Novo)
Sucesso e Bons Estudos
Success and Good Studies
Utilize o Sistema de Busca do Fórum... 102 Códigos VBA Gratuitos... Instruções SQL como utilizar...