Jump to content
Sign in to follow this  
programadorvb6

Problema com menu na Bandeja

Recommended Posts

programadorvb6

Olá boa tarde a todos.

- Estou tentando fazer com que o meu Formulário minimize na bandeja e através dos menus possa aceder a alguns controles que estão no form , nomeadamente botões etc..

Consigo fazer com que o form fique minimizado na bandeja, e ao escolher no seu menu : [ Aparecer mensagem ] a tarefa seja executada, mas ao escolher : [ opções ] e voltar a minimizar;  quando novamente escolho a opção no menu :  [ Aparecer mensagem ]  a messagebox  já não me volta a aparecer; será que estou a fazer alguma coisa de errado?

- Junto anexo o ficheiro, para que me possam ajudar.

Link : https://rapidshare.com/files/458471298/archive1OLXLRW2.zip

Grato desde já pela vossa atenção.

Atentamente.

Programadorvb6


______________________________________________________________________________

Que minha coragem seja maior que meu medo e que minha força seja tão grande quanto minha fé.
 

Share this post


Link to post
Share on other sites
bioshock

Que tal dar-mos a volta ao problema?

Instâncias um Sub que fará o que pretendes.

   Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        CriaMensagem()
    End Sub
    Private Sub ActualizarToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ActualizarToolStripMenuItem.Click
        CriaMensagem()
    End Sub
    Private Sub CriaMessagem()
        Msgbox("Ana Malhoa")
    End Sub

Share this post


Link to post
Share on other sites
programadorvb6

Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Me.WindowState = FormWindowState.Minimized
        Me.NotifyIcon1.Visible = True
        With NotifyIcon1

            .BalloonTipIcon = ToolTipIcon.Info
            .BalloonTipTitle = "Informação : "
            .BalloonTipText = "O programa foi activado !"

        End With

        Me.NotifyIcon1.ShowBalloonTip(0)
        Me.NotifyIcon1.ContextMenuStrip = ContextMenuStrip1
        If (Me.WindowState = FormWindowState.Minimized) Then
            Me.ShowInTaskbar = False
            Me.Hide()
        End If
    End Sub
    Private Sub NotifyIcon1_MouseClick(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles NotifyIcon1.MouseClick
        If e.Button = Windows.Forms.MouseButtons.Right Then
            Me.ContextMenuStrip1.Show()
        End If
    End Sub

    Private Sub ActualizarToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ActualizarToolStripMenuItem.Click
        'MsgBox("Actualizar Noticias ! ")
        Button1.PerformClick()
    End Sub

    Private Sub EntrarNoSiteToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles EntrarNoSiteToolStripMenuItem.Click
        MsgBox("Entrar no Site ")
    End Sub

    Private Sub SairDoSiteToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SairDoSitesToolStripMenuItem.Click
        MsgBox("Sair do site")

    End Sub
    
    Private Sub OpçõesToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OpçõesToolStripMenuItem.Click
        If (Me.WindowState = FormWindowState.Minimized) Then
            Me.Show()
            Me.WindowState = FormWindowState.Normal
            Me.NotifyIcon1.Visible = False
        End If
    End Sub

    Private Sub SairToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SairToolStripMenuItem.Click
        Me.NotifyIcon1.Visible = False
        End
    End Sub
  
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        MsgBox("Botão aparecer mensagem acionado!")
    End Sub

    Private Sub form1_Resize(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Resize
        If Me.WindowState = FormWindowState.Minimized Then
            NotifyIcon1.Visible = True
            Me.Visible = False
        End If
    End Sub


    Private Sub NotifyIcon1_MouseDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles NotifyIcon1.MouseDown
        If e.Button = Windows.Forms.MouseButtons.Left Then
            Me.Visible = True
            If Me.WindowState = FormWindowState.Minimized Then
                Me.WindowState = FormWindowState.Normal
            End If
            NotifyIcon1.Visible = False
        End If
    End Sub
    Private Sub Form1_Closing(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles MyBase.Closing

        e.Cancel = True
        Me.NotifyIcon1.Visible = True
        Me.WindowState = FormWindowState.Minimized
  
    End Sub

End Class

Olá bioshock

Já lhe vi chamar muita coisa ao código, mas francamente ... Ana Malhoa ..!!!!

Bem então vamos por partes.

O que se pretende neste código é que execute o componente botão , porque preciso para o fazer funcionar no estilo : (On/Off)

O exemplo que referiste até funciona, porque está a chamar directamente a função, e o que pretendo é que passe, primeiramente pelo pressionar do botão.

Grato desde já pela atenção.

Atentamente.

Programadorvb6


______________________________________________________________________________

Que minha coragem seja maior que meu medo e que minha força seja tão grande quanto minha fé.
 

Share this post


Link to post
Share on other sites
bioshock

Em vez de:

Private Sub ActualizarToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ActualizarToolStripMenuItem.Click
        Button1.PerformClick()
End Sub

Coloca:

Private Sub ActualizarToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ActualizarToolStripMenuItem.Click
        Button1_Click(sender, e)
End Sub

Share this post


Link to post
Share on other sites
programadorvb6

Obrigado.

Quem tem sede de aprender, aprende até morrer, nem que o código vire Ana malhoa! LOL!!

Grato desde já pela ajuda.

Atentamente.

ProgramadorVB6


______________________________________________________________________________

Que minha coragem seja maior que meu medo e que minha força seja tão grande quanto minha fé.
 

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
Sign in to follow this  

×
×
  • Create New...

Important Information

By using this site you accept our Terms of Use and Privacy Policy. We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.