Como usar esses botões amigo?
2 participantes
[Resolvido]Botões ao estilo Vista no formulário
Mendluciano- Novato
- Respeito às regras :
Sexo :
Localização :
Mensagens : 27
Registrado : 16/09/2011
- Mensagem nº1
Re: [Resolvido]Botões ao estilo Vista no formulário
vieirasoft- Developer
- Respeito às regras :
Sexo :
Localização :
Mensagens : 7304
Registrado : 11/05/2010
- Mensagem nº2
Botões ao estilo Vista no formulário
Boa tarde amigo:
Em primeiro lugar vamos transferir o Tópico para a Sala formulários (Dúvidas), pois aqui esta Sala destina-se a exemplos. Depois damos seguimento.
Em primeiro lugar vamos transferir o Tópico para a Sala formulários (Dúvidas), pois aqui esta Sala destina-se a exemplos. Depois damos seguimento.
vieirasoft- Developer
- Respeito às regras :
Sexo :
Localização :
Mensagens : 7304
Registrado : 11/05/2010
- Mensagem nº3
Re: [Resolvido]Botões ao estilo Vista no formulário
Pronto agora vamos fazer assim.
1- Coloque um controle imagem no form e adicione a imagem que deeseja.
2- Coloque um segundo controle imagem sobreposto ao primeiro, ou seja um encima do outro com a mesma imagem e defina-o nas propriedades do controle como visible=False.
vamos dar o nome de Imagem1 ao primeiro controle e Imagem 2 ao segundo.
Agora no evento ao passar com o mouse sobre o controle
Private Sub Imagem191_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Imagem1.Visible = False
Imagem2.Visible = True
End Sub
Ou seja, tornamos a primeira imagem não visível e a segunda passamos de false a true. Veja o efeito que dá.
No evento clique podemos fazer assim:
Me.Imagem177.SpecialEffect = 1
E aqui o código que queremos para o botão
E na secção detalhe, muito importante,vamos fazer tudo regressar ao seu estado normal:
Private Sub Detalhe_MouseMove
Imagem1.Visible = True
Imagem2.Visible = False
Me.Imagem177.SpecialEffect = 0
É a penas uma ideia.
1- Coloque um controle imagem no form e adicione a imagem que deeseja.
2- Coloque um segundo controle imagem sobreposto ao primeiro, ou seja um encima do outro com a mesma imagem e defina-o nas propriedades do controle como visible=False.
vamos dar o nome de Imagem1 ao primeiro controle e Imagem 2 ao segundo.
Agora no evento ao passar com o mouse sobre o controle
Private Sub Imagem191_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Imagem1.Visible = False
Imagem2.Visible = True
End Sub
Ou seja, tornamos a primeira imagem não visível e a segunda passamos de false a true. Veja o efeito que dá.
No evento clique podemos fazer assim:
Me.Imagem177.SpecialEffect = 1
E aqui o código que queremos para o botão
E na secção detalhe, muito importante,vamos fazer tudo regressar ao seu estado normal:
Private Sub Detalhe_MouseMove
Imagem1.Visible = True
Imagem2.Visible = False
Me.Imagem177.SpecialEffect = 0
É a penas uma ideia.
Mendluciano- Novato
- Respeito às regras :
Sexo :
Localização :
Mensagens : 27
Registrado : 16/09/2011
- Mensagem nº4
Re: [Resolvido]Botões ao estilo Vista no formulário
Obrigado
vieirasoft- Developer
- Respeito às regras :
Sexo :
Localização :
Mensagens : 7304
Registrado : 11/05/2010
- Mensagem nº5
Re: [Resolvido]Botões ao estilo Vista no formulário
Qualquer coisa estamos aí.