VB.NET不再打扰您了可以最小化托盘不用管了吧

信息发布软件

	本文所使用的编程环境是Microsoft Visual Studio 2005，首先打开Visual Studio。在文件(File)菜单上，单击新建项目(New Project)。在新建项目(New Project)对话框的模板(Templates)窗格中，单击Windows应用程序(WindowsApplication)。单击确定(ok)。 　　想要将窗体图标最小化时自动隐藏到任务栏，我们可以使用一个控件，这个控件的名字叫做NotifyIcon控件，打开左侧的工具箱找到NotifyIcon控件直接将它拖到窗体上。把NotifyIcon的Icon属性设一下，当然ICON属性你可以设置一个好看的图标。 图1 　　接下来单击Form1窗体，进入属性设置。把Form的WindowState设成Minimized；ShowInTaskbar属性设成False。 图2 　　 接下来我们就要输入代码了。在Form的Resize代码事件中， 　　Private Sub Form1_Resize(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Resize If Me.WindowState = FormWindowState.Minimized Then Me.Hide() End If End Sub 　　代码的意思是让窗体最小化的时候就自动隐藏到状态栏。 　　这样运行的时候窗体就会自动隐藏，出现在状态栏了。 　　想双击图标的时候显示窗体的话可以设置NotifyIcon控件的DoubleClick代码。 　　代码如下： 　　Private Sub NotifyIcon1_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles NotifyIcon1.DoubleClick Me.ShowInTaskbar = True Me.Show() Me.WindowState = FormWindowState.Normal End Sub 　　如果我们想创建右键菜单的话，我们可以在窗体上添加一个ContextMenustrip控件，用NotifyIcon的ContextMenu属性进行关联。 　　在工具箱中选择菜单和工具栏，直接将ContextMenu控件拖到窗体上进入属性设置，输入相应菜单关键字(自己想输入的文字如下图的软件版本等)。 图3 　　然后单击窗体的NotifyIcon1控件，设置属性，在contextmenustrip处选择刚才编辑过的右键菜单ContextMenustrip1进行关联。 图4　　然后按F5运行程序，点击窗体最小化按钮，窗体的图标自动隐藏到状态栏了。点击右键你可以看到精美的右键菜单。     以前我用的是Form1的SizeChanged事件发生时，判断Me.WindowState是否是Minimized，如果是，就Me.Hide()。然后在托盘图标的菜单单击事件里面Me.Show()  这个是有问题的，show了以后，Form1不显示在最前端，需要鼠标点一下任务栏。今天找到一个办法，效果很好： Public Class Form1     Private Sub Form1_Load(ByVal sender As System.Object, ByVal e AsSystem.EventArgs) Handles MyBase.Load         Me.Opacity = 0% '全透明，这个状态下即使有鼠标点击事件也会无效，点不到上面去，效果和hide差不多         Me.ShowInTaskbar = False '不显示在任务栏     End Sub     Private Sub 显示窗口ToolStripMenuItem_Click(ByVal sender As System.Object, ByVale As System.EventArgs) Handles 显示窗口ToolStripMenuItem.Click         Me.Opacity = 100% '不透明         Me.ShowInTaskbar = True '在任务栏显示     End Sub End Class VB实现自身窗口最大化、最小化显示，用Me.WindowState来实现。关于WindowState的几种状态：WindowState = 0指正常状态，WindowState = 1是指窗口最小化，WindowState = 2是指窗口最大化显示，用此可实现窗口标题栏右下角最小化、最大化按钮点击后的效果，下面是具体的VB实例代码： view source print? 01 VERSION 5.00 02 Begin VB.Form Form1 03    Caption         =   "Form1" 04    ClientHeight    =   2310 05    ClientLeft      =   120 06    ClientTop       =   450 07    ClientWidth     =   4560 08    LinkTopic       =   "Form1" 09    ScaleHeight     =   2310 10    ScaleWidth      =   4560 11    StartUpPosition =   3 '窗口缺省 12    Begin VB.CommandButton Command4 13       Caption         =   "正常模式" 14       Height          =   495 15       Left            =   2280 16       TabIndex        =   3 17       Top             =   120 18       Width           =   1815 19    End 20    Begin VB.CommandButton Command3 21       Caption         =   "关闭程序" 22       Height          =   495 23       Left            =   240 24       TabIndex        =   2 25       Top             =   1560 26       Width           =   1815 27    End 28    Begin VB.CommandButton Command2 29       Caption         =   "最小化" 30       Height          =   495 31       Left            =   240 32       TabIndex        =   1 33       Top             =   840 34       Width           =   1815 35    End 36    Begin VB.CommandButton Command1 37       Caption         =   "最大化" 38       Height          =   495 39       Left            =   240 40       TabIndex        =   0 41       Top             =   120 42       Width           =   1815 43    End 44 End 45 Attribute VB_Name = "Form1" 46 Attribute VB_GlobalNameSpace = False 47 Attribute VB_Creatable = False 48 Attribute VB_PredeclaredId = True 49 Attribute VB_Exposed = False 50 Option Explicit 51 Private Sub Command1_Click() 52     Me.WindowState = 2 53 End Sub 54 55 Private Sub Command2_Click() 56     Me.WindowState = 1 57 End Sub 58 59 Private Sub Command3_Click() 60     End 61 End Sub 62 63 Private Sub Command4_Click() 64     Me.WindowState = 0 65 End Sub

yangjiang1

	心不懂就问他就告诉也不嫌弃烦不给好评等啥呢必须好评太给力了好多客人都说我家店铺好看。从来没有碰到过

loverun

	公司，没这个技术别吹这个牛B，从6月份给我做网站做到11月份，不是这不行就是那个不行。技术不行就别干这行，就这种服务态度，劳资钱当送给你们

tian001

	务很好，设计的宝贝很漂亮我很满意，以后有需要还会合作

紫逸风

	真的买值了，谢谢

mm5216299

	搞了，雏形出来了，看起来真不错，还有多谢工作人员耐心指导。

万能群发

	及时做出评价,系统默认好评!

ctbvip

	有竞争才有进步嘛

anleeycn

	服务耐心

z2340868

	耐心技术也很牛逼好评