VB.NET编程之托盘程序篇（2） - VB教程 - 新闻中心 - PHP168整站系统 powered by www.php168.com

文章内容

最后要请读者注意的是，由于本文中的托盘程序的图标并不是通过创建资源文件来实现的，而是通过创建Icon实例完成的。所以在程序运行的时候，必须在程序的当前目录存在一个图标文件，并且此图标文件的名称为"Tray.ico"。下面是这个静态托盘程序的完整的代码清单（Form2.vb）：

Public Class Form1
    Inherits System.Windows.Forms.Form
#Region " Windows 窗体设计器生成的代码 "
    Public Sub New ( ) 
        MyBase.New ( ) 
        '该调用是 Windows 窗体设计器所必需的。
        InitializeComponent ( ) 
        '在 InitializeComponent ( )  调用之后添加任何初始化
    End Sub
    '窗体重写处置以清理组件列表。
    Protected Overloads Overrides Sub Dispose ( ByVal disposing As Boolean ) 
        If disposing Then
            If Not  ( components Is Nothing )  Then
                components.Dispose ( ) 
            End If
        End If
        MyBase.Dispose ( disposing ) 
    End Sub
    'Windows 窗体设计器所必需的
    Private components As System.ComponentModel.IContainer
    '注意：以下过程是 Windows 窗体设计器所必需的
    '可以使用 Windows 窗体设计器修改此过程。
    '不要使用代码编辑器修改它。
    Friend WithEvents NotifyIcon1 As System.Windows.Forms.NotifyIcon
    Friend WithEvents ContextMenu1 As System.Windows.Forms.ContextMenu
    Friend WithEvents MenuItem1 As System.Windows.Forms.MenuItem
    Friend WithEvents MenuItem2 As System.Windows.Forms.MenuItem
    Friend WithEvents MenuItem3 As System.Windows.Forms.MenuItem
    Friend TrayIcon = New Icon ( "Tray.ico" ) 
    <System.Diagnostics.DebuggerStepThrough ( ) > 
    Private Sub InitializeComponent ( ) 
        Me.components = New System.ComponentModel.Container ( ) 
        Me.NotifyIcon1 = New System.Windows.Forms.NotifyIcon ( Me.components ) 
        Me.ContextMenu1 = New System.Windows.Forms.ContextMenu ( ) 
        Me.MenuItem1 = New System.Windows.Forms.MenuItem ( ) 
        Me.MenuItem2 = New System.Windows.Forms.MenuItem ( ) 
        Me.MenuItem3 = New System.Windows.Forms.MenuItem ( ) 
        Me.NotifyIcon1.ContextMenu = Me.ContextMenu1
        Me.NotifyIcon1.Text = "VB.NET的托盘程序"
        Me.NotifyIcon1.Visible = True
	'设定托盘程序托盘区位置显示图标
        Me.NotifyIcon1.Icon = TrayIcon
	'在ContextMenu实例中加入菜单项
        Me.ContextMenu1.MenuItems.Add ( Me.MenuItem1 )  
        Me.ContextMenu1.MenuItems.Add ( Me.MenuItem2 ) 
        Me.ContextMenu1.MenuItems.Add ( Me.MenuItem3 ) 
        Me.MenuItem1.Index = 0
        Me.MenuItem1.Text = "显示窗体"
        Me.MenuItem2.Index = 1
        Me.MenuItem2.Text = "隐藏窗体"
        Me.MenuItem3.Index = 2
        Me.MenuItem3.Text = "退出"
        Me.AutoScaleBaseSize = New System.Drawing.Size ( 6 , 14 ) 
        Me.ClientSize = New System.Drawing.Size ( 292 , 273 ) 
        Me.Name = "Form1"
	'设定程序不应该显示在任务栏
	Me.ShowInTaskbar = False
        Me.Text = "VB.NET之WinForm编程托盘程序篇"
	'设定程序运行后最小化
        Me.WindowState = System.Windows.Forms.FormWindowState.Minimized
    End Sub
#End Region
    '显示托盘程序窗口
    Private Sub MenuItem1_Click ( ByVal sender As System.Object ,
    ByVal e As System.EventArgs )  Handles MenuItem1.Click
        Me.WindowState = FormWindowState.Normal
        Me.Show ( ) 
    End Sub
    '隐藏托盘程序窗口
    Private Sub MenuItem2_Click ( ByVal sender As Object , 
    ByVal e As System.EventArgs )  Handles MenuItem2.Click
        Me.Hide ( ) 
    End Sub
    '推出托盘程序窗口
    Private Sub MenuItem3_Click ( ByVal sender As Object , 
    ByVal e As System.EventArgs )  Handles MenuItem3.Click
        NotifyIcon1.Dispose ( ) 
        Application.Exit ( ) 
    End Sub
    '双击图标显示窗体
    Private Sub NotifyIcon1_DoubleClick ( ByVal sender As Object ,
    ByVal e As System.EventArgs )  Handles NotifyIcon1.DoubleClick
        Me.WindowState = FormWindowState.Normal
        Me.Show ( ) 
    End Sub
End Class
'启动程序
Module Module1
Sub Main ( )
  Application.Run ( new Form1 ( ) )
End sub
End Module

Form2.vb经过了下列命令编译、连接后：

Vbc /r:system.dll /r:system.windows.froms.dll /r:system.drawing.dll form2.vb

就可以得到Form2.exe，下图是From2.exe运行的界面：

图01：托盘程序运行界面01

动态托盘程序的编写过程

动态托盘程序中的托盘图标之所以能够呈现动画效果，是因为程序中的一个定时器组

件每隔一段时间都不断切换托盘图标。本文是通过二个图标的切换来表现动态效果的，读者如果有好的、连续的图标，也可以设定多个图标的切换，而这只需要修改Timer1定时器中的"Tick"事件中的代码就可以了。下面是此动态托盘程序的具体编制步骤：

要创建程序中的实例和变量：

Friend WithEvents NotifyIcon1 As System.Windows.Forms.NotifyIcon
    Friend WithEvents ContextMenu1 As System.Windows.Forms.ContextMenu
    Friend WithEvents MenuItem1 As System.Windows.Forms.MenuItem
   Friend WithEvents MenuItem2 As System.Windows.Forms.MenuItem
    Friend WithEvents MenuItem3 As System.Windows.Forms.MenuItem
    '创建Icon实例，用以切换图标
    Friend Icon1 = New Icon ( "icon1.ico" ) 
    Friend Icon2 = New Icon ( "icon2.ico" ) 
    '为不同图标的切换提供标识符
    Dim BeginFlag As Boolean = True
    '定时器
    Friend WithEvents Timer1 As System.Windows.Forms.Timer

初始化实例：

Me.components = New System.ComponentModel.Container ( ) 
        Me.NotifyIcon1 = New System.Windows.Forms.NotifyIcon ( Me.components ) 
        Me.ContextMenu1 = New System.Windows.Forms.ContextMenu ( ) 
        Me.MenuItem1 = New System.Windows.Forms.MenuItem ( ) 
        Me.MenuItem2 = New System.Windows.Forms.MenuItem ( ) 
        Me.MenuItem3 = New System.Windows.Forms.MenuItem ( ) 
        Me.Timer1 = New System.Windows.Forms.Timer ( Me.components ) 
        Me.NotifyIcon1.ContextMenu = Me.ContextMenu1
        Me.NotifyIcon1.Text = "VB.NET的托盘程序"
        Me.NotifyIcon1.Visible = True
	'设定托盘程序托盘区位置显示缺省图标
        Me.NotifyIcon1.Icon = Icon1
	'在ContextMenu实例中加入菜单项
        Me.ContextMenu1.MenuItems.Add  (  Me.MenuItem1  )   
        Me.ContextMenu1.MenuItems.Add  (  Me.MenuItem2  )  
        Me.ContextMenu1.MenuItems.Add  (  Me.MenuItem3  )  
        Me.MenuItem1.Index = 0
        Me.MenuItem1.Text = "开始转动"
        Me.MenuItem2.Index = 1
        Me.MenuItem2.Text = "停止转动"
        Me.MenuItem3.Index = 2
        Me.MenuItem3.Text = "退出"
        Me.AutoScaleBaseSize = New System.Drawing.Size ( 6 , 14 ) 
        Me.ClientSize = New System.Drawing.Size ( 292 , 273 ) 
        Me.Name = "Form1"
        Me.ShowInTaskbar = False
        Me.Text = "VB.NET之WinForm编程动态托盘程序"
        Me.WindowState = System.Windows.Forms.FormWindowState.Minimized

定义托盘程序中菜单项对应的事件，以及具体的处理方法：

'开始托盘图标的转动
    Private Sub MenuItem1_Click ( ByVal sender As System.Object , 
    ByVal e As System.EventArgs )  Handles MenuItem1.Click
        Timer1.Enabled = True
    End Sub
    '停止托盘图标的转动
    Private Sub MenuItem2_Click ( ByVal sender As Object ,
    ByVal e As System.EventArgs )  Handles MenuItem2.Click
        Timer1.Enabled = False
    End Sub
    '关闭程序，清除托盘资源
    Private Sub MenuItem3_Click ( ByVal sender As Object , 
    ByVal e As System.EventArgs )  Handles MenuItem3.Click
        NotifyIcon1.Dispose ( ) 
        Application.Exit ( ) 
    End Sub
    '根据标识符，来确定托盘图标类型
    Private Sub Timer1_Tick ( ByVal sender As Object ,
    ByVal e As System.EventArgs )  Handles Timer1.Tick
        If BeginFlag = True Then
            NotifyIcon1.Icon = Icon2
            BeginFlag = False
        Else
            NotifyIcon1.Icon = Icon1
            BeginFlag = True
        End If
    End Sub

至此编写动态托盘程序的主要步骤就介绍完了，和上面的静态托盘程序相同，在运行此程序的时候必须保证此程序当前目录存在二个Icon文件，并且名称为"Icon1.ico"和"Icon2.ico"。这里并没有给出动态托盘程序的完整代码清单，读者只需要把上面这些关键步骤的代码覆盖到Form2.vb中的相应位置就可以得到动态托盘程序的源程序文件Form3.vb。这应该不算很难，下面是编译Form3.vb的命令：

Vbc /r:system.dll /r:system.windows.froms.dll /r:system.drawing.dll form2.vb

成功编译、连接后就得到Form3.exe，下图是Form3.exe的运行界面：

图02：托盘程序运行界面02

总结

托盘程序是现在比较流行的一种程序类型。本文中介绍的二个程序，也是托盘程序中比较典型的二个，希望对各位了解并掌握编写托盘程序有所帮助。

【