创建一个从系统托盘运行的程序

Pav*_*vic 9 vb.net visual-studio-2010

我想创建一个从Windows右下角系统托盘运行的程序.

但我不知道从哪里开始?

有人可以说\显示我在哪里查看和示例或使用什么命令\研究?

jlv*_*ero 19

添加NotifyIcon到主窗体窗体.使用Resize事件Form来控制何时显示NotifyIcon和隐藏表单:

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.Hide()
                NotifyIcon1.BalloonTipText = "Hi from right system tray"
                NotifyIcon1.ShowBalloonTip(500)
        End If
    End Sub
Run Code Online (Sandbox Code Playgroud)

使用NotifyIcon中的事件再次显示表单:

Private Sub NotifyIcon1_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles NotifyIcon1.DoubleClick
        Me.Show()
        Me.WindowState = FormWindowState.Normal
        NotifyIcon1.Visible = False
    End Sub
Run Code Online (Sandbox Code Playgroud)

您可以在AutoDNIE google代码项目中下载完整的示例

  • 谢谢你的工作!只是不要做我做的事情并尝试使用它没有图标......它将无法正常工作. (2认同)

Dob*_*ron 13

我查看答案,我注意到错过了图标.

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
        NotifyIcon1.Icon = SystemIcons.Application
        NotifyIcon1.BalloonTipIcon = ToolTipIcon.Info
        NotifyIcon1.BalloonTipTitle = "Verificador corriendo"
        NotifyIcon1.BalloonTipText = "Verificador corriendo"
        NotifyIcon1.ShowBalloonTip(50000)
        'Me.Hide()
        ShowInTaskbar = False
    End If
End Sub

Private Sub NotifyIcon1_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles NotifyIcon1.DoubleClick
    'Me.Show()
    ShowInTaskbar = True
    Me.WindowState = FormWindowState.Normal
    NotifyIcon1.Visible = False
End Sub
Run Code Online (Sandbox Code Playgroud)