一个使用 Whidbey 的简单状态栏通知程序

• 下载源文件 - 3 Kb
• 下载演示项目 - 178 Kb

引言

NotifyIcon 组件将在状态栏通知区域显示一个图标，您可以将其用作通知目的，以提醒用户发生了操作或事件。 您可以在 Click 或 DoubleClick 事件处理程序或任何您想关联您的应用程序的事件处理程序中编写代码。

创建 NotifyIcon 应用程序的步骤

1. 启动一个新项目并保存为“NotifyIcon”。

2. 将 Form1.vb 保存为 frmNotifyIcon.vb

3. 双击 frmNotifyIcon.vb 以从解决方案资源管理器栏加载表单。

4. 从工具箱中拖放 NotifyIcon 组件。

注意：上下文菜单将显示在当前表单的底部

5. 创建如下所示的新菜单项

6. 更改菜单项的名称，如下所示

mnuMicrosoftHome
mnuMicrosoftASPNet
mnuMicrosoftWindowsFormNet
mnuMSDN
mnuMSNBC
mnuMSN

7. 添加一个名为 SelectLink 的新过程。

  Private Sub SelectLink(ByVal strMicrosoftWebSiteName As String)
 
        Dim strWebSiteName As String
 
        Try
 
            Select Case strDescription
                Case "mnuMicrosoftHome" : strWebSiteName = "http://www.microsoft.com/"
                Case "mnuMicrosoftASPNet" : strWebSiteName = "http://www.asp.net/"
                Case "mnuMicrosoftWindowsFormNet" : strWebSiteName = "http://www.windowsforms.net/"
                Case "mnuMSDN" : strWebSiteName = "http://www.msdn.microsoft.com/"
                Case "mnuMSNBC" : strWebSiteName = "http://www.msnbc.com/"
                Case "mnuMSN" : strWebSiteName = "http://www.msn.com/"
            End Select
 
            ' Call the Process.Start method to open the default browser 
            ' with a URL:
            System.Diagnostics.Process.Start(strWebSiteName)
 
        Catch ex As Exception
            ' The error message
            Beep()
            MessageBox.Show("Unable to open link " & strDescription & " that was clicked.")
 
        End Try
    End Sub

7. 在每个菜单项的单击事件中调用 selectlink 过程。

    Private Sub mnuMicrosoftHome_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnuMicrosoftHome.Click
        SelectLinkClick(mnuMicrosoftHome.Text)
    End Sub
 
  Private Sub mnuMicrosoftASPNet_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles mnuMicrosoftASPNet.Click
        SelectLinkClick(mnuMicrosoftASPNet.Text)
    End Sub
 
    Private Sub mnuMicrosoftWindowsFormNet_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles mnuMicrosoftWindowsFormNet.Click
        SelectLinkClick(mnuMicrosoftWindowsFormNet.Text)
    End Sub
 
    Private Sub mnuMSDN_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles mnuMSDN.Click
        SelectLinkClick(mnuMSDN.Text)
    End Sub
 
    Private Sub mnuMSN_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles mnuMSN.Click
        SelectLinkClick(mnuMSN.Text)
    End Sub
 
    Private Sub mnuMSNBC_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles mnuMSNBC.Click
        SelectLinkClick(mnuMSNBC.Text)
    End Sub

8. 从工具箱中添加 NotifyIcon 组件。

9. 在 Form_Load 事件中添加以下代码行。

Private Sub frmNotifyIcon_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
     Me.Visible = False
     NotifyIcon1.Visible = True
End Sub

10. 重命名菜单名称 ContextMenu1。

11. 构建 项目并查看其工作方式！

要求

Microsoft Visual Studio.Whidbey 版本 8.0 或
Microsoft Visual Studio.NET Professional 或更高版本。
Windows 2000 或 Windows XP。

摘要

这是一个小程序，它将帮助您了解 NotifyIcon 组件的工作原理。 在 VB 6.0 中，我们需要做很多事情才能获得这个图标。这在 .NET 中得到了简化。

如果您需要任何建议或帮助，请通过 benoyraj@yahoo.com 与我联系

谢谢

Benoyraj