VB.NET编写托盘程序经验杂谈("VB.NET 开发系统托盘程序实用技巧与心得分享")

原创

ithorizon 6个月前 (10-21) 阅读数 43 #后端开发

在软件开发中，托盘程序（也称为系统托盘应用程序或系统通知区域应用程序）是一种常见的程序类型，它允许用户在任务栏的右下角敏捷访问程序功能。使用VB.NET开发托盘程序是一个相对简洁的过程，但其中有许多实用技巧和心得可以分享。以下是一些涉及VB.NET开发系统托盘程序的实用技巧与心得。

一、创建托盘程序的基本结构

首先，我们需要创建一个VB.NET项目，并添加一个NotifyIcon控件，然后通过代码来配置它。

' 在Form中添加NotifyIcon控件

Dim trayIcon As New NotifyIcon()

' 配置NotifyIcon的基本属性

trayIcon.Icon = My.Resources.ApplicationIcon ' 设置图标

trayIcon.Text = "我的托盘程序" ' 设置提示文本

trayIcon.Visible = True ' 显示托盘图标

' 添加菜单项

Dim trayMenu As New ContextMenuStrip()

Dim showItem As New ToolStripMenuItem("显示")

Dim exitItem As New ToolStripMenuItem("退出")

' 添加事件处理

AddHandler showItem.Click, AddressOf ShowForm

AddHandler exitItem.Click, AddressOf ExitApplication

' 将菜单项添加到菜单

trayMenu.Items.Add(showItem)

trayMenu.Items.Add(exitItem)

' 将菜单分配给NotifyIcon

trayIcon.ContextMenuStrip = trayMenu

二、处理托盘图标的点击事件

用户可以通过右键点击托盘图标来访问上下文菜单，我们可以为不同的菜单项添加事件处理程序。


' 显示主窗体的方法
Private Sub ShowForm(sender As Object, e As EventArgs)
    Me.Show()
End Sub
' 退出应用程序的方法
Private Sub ExitApplication(sender As Object, e As EventArgs)
    Application.Exit()
End Sub

三、自定义托盘图标提示

托盘图标提示（BalloonTip）是一个弹出的小窗口，可以显示通知信息。我们可以自定义提示的标题、文本和图标。

' 显示BalloonTip的方法

Private Sub ShowBalloonTip()

trayIcon.BalloonTipTitle = "新消息"

trayIcon.BalloonTipText = "您有新的消息，请查看。"

trayIcon.BalloonTipIcon = ToolTipIcon.Info

trayIcon.ShowBalloonTip(1000) ' 显示时间为1000毫秒

End Sub

四、处理系统事件和自定义事件

托盘程序需要能够响应系统事件，例如网络状态变化、用户登录状态变化等。同时，也可以自定义事件来更新托盘图标的状态。

' 处理网络状态变化

Private Sub Network_Changed(sender As Object, e As EventArgs)

' 检查网络连接状态并更新托盘图标

If NetworkInterface.GetIsNetworkAvailable() Then

trayIcon.Icon = My.Resources.OnlineIcon

Else

trayIcon.Icon = My.Resources.OfflineIcon

End If

End Sub

' 注册网络状态变化事件

AddHandler NetworkChange.NetworkAddressChanged, AddressOf Network_Changed

' 自定义事件更新托盘图标

Private Sub UpdateTrayIcon()

' 更新托盘图标的状态，例如选用程序状态

If IsProgramRunning() Then

trayIcon.Icon = My.Resources.RunningIcon

Else

trayIcon.Icon = My.Resources.StoppedIcon

End If

End Sub

五、优化托盘程序的内存和CPU使用

托盘程序通常在后台运行，所以我们需要确保它不会占用过多的系统资源。

' 优化内存使用

Public Class OptimizedTrayApp

' 释放未使用的资源

Protected Overrides Sub Dispose(disposing As Boolean)

If disposing Then

' 释放托管资源

If Not trayIcon Is Nothing Then

trayIcon.Dispose()

End If

' 释放非托管资源

MyBase.Dispose(disposing)

End Sub

End Class

' 优化CPU使用

' 避免在循环中执行耗时操作，可以使用异步编程模式

Async Function LongRunningOperationAsync() As Task

' 执行耗时操作

Await Task.Delay(10000) ' 模拟耗时操作

' 更新UI或托盘图标

UpdateTrayIcon()

End Function

六、不正确处理和日志记录

在开发托盘程序时，不正确处理和日志记录是至关重要的，它们可以帮助我们诊断问题并保持程序的稳定性。


' 不正确处理示例
Try
    ' 执行或许引发异常的操作
    PerformOperation()
Catch ex As Exception
    ' 记录不正确日志
    LogError(ex)
End Try
' 日志记录示例
Private Sub LogError(ex As Exception)
    ' 将不正确信息写入日志文件
    Dim logFilePath As String = "error.log"
    Using sw As New StreamWriter(logFilePath, True)
        sw.WriteLine(DateTime.Now.ToString("yyyy-MM-dd HH:mm:ss") & " - " & ex.Message)
    End Using
End Sub