• Revista PROGRAMAR: Já está disponível a edição #53 da revista programar. Faz já o download aqui!

vox_pt

[VB6] minimixar para o lado do relogio? e questionar se desejo fechar?

13 mensagens neste tópico

Queria saber como meto a minimizar para a barra e perguntar se desejo sair quando meto fechar!

fechar é o X não é botão nenhum, por botão sei programar!

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Private Sub Form_Terminate()

Dim R As Integer

R = MsgBox("Deseja terminar o programa?", vbYesNo)

If R = vbYes Then

End

Else

End If

End Sub

meti esse código mas há um problem. ele desliga o programa depoi é k pergunta! loool enquanto ao minimizar na faço ideia

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Issu do minimizar para a barra chama-se minimizar para o systray.

Quanto ao teu código eu não costumo fazer assim, fasso tipo:


if msgbox("Ais sim?", vbinformation + vbyesno, "Titulo" ) = vbyes then end

No teu o código o que esta mal é o evento onde o colocaste e falta ai uma coisita.

Primeiro devias colocar issu no evento Unload e depois para issu funcionar no evento unload vais ter de adicionar 2 linhas (cancel = 1 e cancel = 0)

Dim R As Integer
R = MsgBox("Deseja terminar o programa?", vbYesNo)
If R = vbYes Then
    Cancel = 0
    End
    Else
        Cancel = 1
End If

Em relação ao systray, eu ate te deixava aqui um código que exemplifica como se faz issu mas não consigo deixar anexos não sei porque. Tenta procurar no google.

Cumps

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Epa alguem me pode explicar porque é que não sou capas de alterar os meus tópicos?!?

Procura no google por -> minimize to systray with VB6

Cumps

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Epa alguem me pode explicar porque é que não sou capas de alterar os meus tópicos?!?

Clicas sempre na opção "modificar" ?

É que eu consigo... Sempre consegui.

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Não me aparece esse botão nem sequer sou capas de enviar anexos...

Cumps

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Olha dá m um site em concreto loool!

na sei bem do que ando a procura pah!

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

hhhmmm, então é complicado  :bored:

O que tens de fazer é apenas copiar o código de um daqueles para o teu projecto e adicionares aquele modulo que vem com o código fonte. No lado direito onde tens as form's fazes click direito -> ADD -> e escolhes module e depois metes Existing e escolhes o que vem com o código que fizeste download. Depois o código que esta na form é só copiares para o teu, mas cuidado porque se ja tiveres a utilizar os eventos da form vai ter de copiar apenas o código e não os eventos. Os eventos são aquelas coisas que estao no código como "Form_Load", "Form_Unload", etc... e depois acabam com um "End Sub"

E é o que esta entre p exemplo o Form_Load e o End sub é que teras de copiar para o teu.

Cumps

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Eu costumo fazer assim

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)

If MsgBox("Deseja Sair", vbQuestion + vbYesNo, "Sair?") = vbYes Then
  End
Else
  MsgBox "Então continuemos", vbInformation, "Continuar"
  Cancel = True
End If
End Sub

Isto é apenas para o botão fechar agora para minimizar para a sistem tray precisas de um ocx que vem no cd do VB, eu vou ver em casa e depois digo-te alguma coisa

Adapta o código ao que precisas

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

:thumbsup:Ora vem precisas de procurar no cd do VB o projecto com o nome systray e depois compila-o na pasta system do windows

Depois é só adicionares este ficheiro aos componentes no VB ;)

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Crie uma conta ou ligue-se para comentar

Só membros podem comentar

Criar nova conta

Registe para ter uma conta na nossa comunidade. É fácil!


Registar nova conta

Entra

Já tem conta? Inicie sessão aqui.


Entrar Agora