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

[Guest]

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!

[Guest]

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

[Hipnoted]

Usa o geSHi para pôr o código... 😄

[NuGuN]

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

[NuGuN]

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

[Hipnoted]

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.

[NuGuN]

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

Cumps

[Guest]

Olha dá m um site em concreto loool!

na sei bem do que ando a procura pah!

[NuGuN]

Tens aqui varios, é só escolher  👍

Cumps

[Guest]

o k faço com akilo pah??? sou novato an matéria!

[NuGuN]

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

[Miguel_Silva]

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

[Miguel_Silva]

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