VB.net怎么最小化到系统托盘

最新推荐文章于 2022-10-14 10:19:54 发布
最新推荐文章于 2022-10-14 10:19:54 发布
阅读量2.1k 收藏 3
点赞数
分类专栏： VB.NET编程
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
本文链接：https://blog.csdn.net/esonbest1234/article/details/50729318
版权
    小孩放假了，天天在电脑上看动画片，时间有点长，对小孩视力和身体都不好，准备自己写个有个性的保护程序，就是固定时间直接播放声音，并锁定屏幕一定间隔，过后程序自动最小化到托盘。现在遇到问题，不知道vb.net程序 怎么最小化到系统托盘，百度到一篇资料CP过来参考。新浪微博对代码支持不好，排序有问题，可以直接查阅: http://oteman.blog.sohu.com/47614796.html
所谓静态托盘程序是指程序运行后，在系统托盘区的图标处于静止状态的托盘程序。动态托盘程序正好与之相反，它是指在系统托盘区图标呈现动画效果的一类托盘程序。下面就来探讨一下VB.NET是如何实现静态托盘程序。 
.Net FrameWork SDK为编写托盘程序提供了一个组件：NotifyIcon组件。NotifyIcon组件是一个WinForm组件，位于命名空间"System.Windows.Forms"中，在VB.NET程序中，只要创建一个NotifyIcon组件的实例，并且对NotifyIcon实例的"Icon"属性赋值，这样一个简单的托盘程序就完成了。下面就是这个简单托盘程序对于的代码（Form1.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
    '创建一个NotifyIcon实例
    Friend TrayIcon = New Icon ( "Tray.ico" ) 
    '创建一个Icon实例
    <System.Diagnostics.DebuggerStepThrough ( ) > 
    Private Sub InitializeComponent ( ) 
        Me.components = New System.ComponentModel.Container ( ) 
        Me.NotifyIcon1 = New System.Windows.Forms.NotifyIcon ( Me.components ) 
                Me.NotifyIcon1.Text = "NotifyIcon1"
                Me.NotifyIcon1.Visible = True
                '对NotifyIcon实例的Icon属性赋值，完成简单托盘程序
                Me.NotifyIcon1.Icon = TrayIcon
                Me.AutoScaleBaseSize = New System.Drawing.Size ( 6 , 14 ) 
                Me.ClientSize = New System.Drawing.Size ( 292 , 273 ) 
                Me.Name = "Form1"
                Me.Text = "Form1"
            End Sub
        #End Region
        End Class
        '启动程序
        Module Module1
        Sub Main ( ) 
          Application.Run ( new Form1 ( ) ) 
        End sub
        End Module



但是这个托盘程序还不是真正意义上的托盘程序，因为它还有很多具体功能没有实现，下面就列出这些功能，并介绍具体的实现方法 

（1）.托盘程序是隐藏窗口后，程序不应该显示在任务栏中，并且一般运行后都不显示窗口： 

这是通过设定窗体的属性来完成的，具体如下：  

'设定程序不应该显示在任务栏
Me.ShowInTaskbar = False
'设定程序运行后最小化
   Me.WindowState = System.Windows.Forms.FormWindowState.Minimized


（2）.定义托盘程序中的菜单和相关事件： 

往NotifyIcon实例中添加菜单，首先要创建ContextMenu实例，此实例主要作用是表示快捷菜单，其中的菜单项是通过创建MenuItem实例来实现，托盘程序中的菜单有几个菜单项，就创建几个MenuItem实例。然后把这些菜单项加入到ContextMenu实例，并把此实例赋值给NotifyIcon实例的ContextMenu属性，这样托盘程序右键点击弹出的菜单就完成了。下面是具体代码：  

创建ContextMenu实例和MenuItem实例：
    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


把这些菜单项加入到ContextMenu实例，并把ContextMenu实例赋值给NotifyIcon实例的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 = "退出"


当把ContextMenu实例赋值给NotifyIcon实例的ContextMenu属性后，托盘程序的缺省状态是当鼠标右击托盘图标，就会弹出对应的菜单。这时就可以对其中的每一个菜单项定义相应的事件以及具体的处理方法。一个完整的静态托盘程序的编写过程就完成了。 

最后要请读者注意的是，由于本文中的托盘程序的图标并不是通过创建资源文件来实现的，而是通过创建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



 

总结



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

ncgege
关注
  • 0
    点赞
  • 踩
  • 3
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
专栏目录
VB.net 程序最小化到状态栏
ngamgolden的博客
01-17 2932
状态栏 任务栏 最小化 关闭 窗体无法显示
VC6.0 中如何实现最小化到托盘以及恢复？
michaelli的专栏
09-29 2443
（一）  原理1、最小化的原理：首先要将窗口隐藏，然后 在右下角绘制图标。2、恢复的原理：将窗口显示，再将托盘中的图片删除。（二）程序实现1、自定义消息WM_SHOWTASK： #define WM_SHOWTASK (WM_USER +1)2、在MFC的::OnSysCommand(UINT nID, LPARAM lParam)函数体中增加一个命令响应           
VB让程序最小化到系统托盘处并显示图标
05-07
内容索引:VB源码,系统相关,托盘　　VB让程序最小化到系统托盘处并显示图标，一些核心的代码定义这里首要说明下： 　　 cbSize As Long 该数据结构的大小 　　 hwnd As Long 处理任务栏中图标的窗口句柄 　　 uID As Long 定义的任务栏中图标的标识 　　 uFlags As Long 任务栏图标功能控制，可以是以下值的组合（一般全包括） 　　 NIF_MESSAGE 表示发送控制消息； 　　 'NIF_ICON表示显示控制栏中的图标； 　　 NIF_TIP表示任务栏中的图标有动态提示。 　　 uCallbackMessage As Long 任务
VB窗体最小化到系统托盘中
键盘上的舞指
02-15 988
'添加一标准模块，加入以下代码： Option Explicit Private Declare Function Shell_NotifyIcon Lib “shell32.dll” Alias “Shell_NotifyIconA” (ByVal dwMessage As Long, lpData As NOTIFYICONDATA) As Long Const MAX_TOOLTIP As Integer = 64 Const NIF_ICON = &H2 Const NIF_MESSAGE
窗体隐藏及最小化到托盘
11-14 791
1、隐藏winForm窗体并使程序正常运行。在项目工程中找到文件Program..cs修改代码        staticvoid Main()        {            Application.EnableVisualStyles();            Application.SetC
Visual Basic NET实现窗体图标最小化到状态栏
chinaherolts2008的博客
10-14 448
在新建项目 (New Project) 对话框的模板 (Templates) 窗格中，单击 Windows 应用程序 (Windows Application)。想要将窗体图标最小化时自动隐藏到任务栏，我们可以使用一个控件，这个控件的名字叫做NotifyIcon控件，打开左侧的工具箱找到NotifyIcon控件直接将它拖到窗体上。把NotifyIcon的Icon属性设一下，当然ICON属性你可以设置一个好看的图标。代码的意思是让窗体最小化的时候就自动隐藏到状态栏。在Form的Resize代码事件中，
vb.net 系统托盘,鼠标左键单击系统托盘图标显示窗口,点关闭按钮最小化到托盘等等
05-10
vb.net2008工程源代码. 网上讲系统托盘,演示系统托盘的程序太多了,但是都太简单,用处有些,但不大,我根据自己程序的需求,提取出来一个很多标准桌面引用程序都使用的模式,同时也是提供了一个框架,朋友们可以直接在这...
VB剪贴板管理器、抓图工具源程序
05-07
内容索引:VB源码,系统相关,剪贴板,抓图,截屏　这是一个很不错的功能扩展型的系统剪贴板管理器，不但...　这个程序还可以设定随windows一起启动，同时最小化到托盘，单击左键和右键即可显示和设置，它支持声音提醒。 　
托盘上显示提示信息
01-24
最小化到托盘，并在托盘上显示提示信息，可以根据自己的需要修改显示的信息
VB日历实例
12-30
可以设置窗体的样式，如窗口形式，无边框形式，透明，半透明等属性。可以最小化到系统托盘区，可以进行农历和阳历转换等功能。
VB.NET关闭窗体时最小化（附带解决.NET程序导致XP无法关机重启的问题）
11-05 1119
我们经常需要实现“用户关闭窗体，但窗体并不关闭而是最小化”的功能，这个功能的实现非常简单，只需在FormClosing事件中写入如下代码即可： If e.CloseReason = CloseReason.UserClosing Then '判断是不是用户做出的关闭窗体的行为                 e.Cancel = True'这句可使程序停止关闭 End If     “If
VB.NET实现窗体图标最小化到状态栏
05-01
VB.NET实现窗体图标最小化到状态栏，word文档的，有图照着操作就可以了。
VB托盘演示程序,实现最小化到任务栏。
06-26
VB托盘演示程序,实现最小化到任务栏,以及任务栏图标设置等。
VB最小化后到托盘
12-05
最小化后到托盘。。最小化后到托盘。。最小化后到托盘。。最小化后到托盘。。
最小化代码(VB.NET)
09-11
最小化代码(VB.NET) 最小化代码(VB.NET) 最小化代码(VB.NET) 最小化代码(VB.NET)
VB.NET窗口最小化
rztyfx的专栏
07-09 3925
Protected Overrides Sub WndProc(ByRef m As System.Windows.Forms.Message) Const WM_SYSCOMMAND As Integer = &H112 Const SC_CLOSE As Integer = &HF060 Const SC_MINIMIZE As Integer
vb.net和c#.net最小化到托盘
yuanxun05的专栏
03-20 653
添加一个notifyIcon控件  vb.net Private Sub vbFormTest_Resize(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Resize         If WindowState = FormWindowState.Minimized Then
让程序进驻系统托盘
junchieh
03-09 511
1.定义自定义消息ID（可在StdAfx.h或主窗体的类型声明文件中）： #define WM_USER_NOTIFYICON    WM_USER + 0x1002.在主窗体的类型声明文件(如：MainFrame.h)加入NOTIFYICONDATA类型成员变量：NOTIFYICONDATA m_nid;3.在主窗体中处理WM_CREATE消息：int C
vb.net最小化所有窗口的代码
最新发布
05-31
在 VB.NET 中，可以使用以下代码最小化所有窗口： ``` Imports System.Runtime.InteropServices Public Class Form1 <DllImport("user32.dll")> Private Shared Function ShowWindow(ByVal hWnd As IntPtr, ByVal nCmdShow As Integer) As Boolean End Function Private Const SW_MINIMIZE As Integer = 6 Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load ' 最小化所有窗口 For Each hWnd As IntPtr In Process.GetCurrentProcess().Handle.GetProcesses().Select(Function(p) p.MainWindowHandle) ShowWindow(hWnd, SW_MINIMIZE) Next End Sub End Class ``` 上述代码中，使用了 ShowWindow 函数来最小化窗口。遍历当前进程中的所有窗口，并将它们都最小化。通过调用 ShowWindow 函数，将窗口句柄和 SW_MINIMIZE 参数传递给该函数来最小化窗口。

“相关推荐”对你有帮助么？

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值