189 8069 5689
VB.NET编写托盘程序
龙门网站建设公司创新互联,龙门网站设计制作，有大型网站制作公司丰富经验。已为龙门上千余家提供企业网站建设服务。企业网站搭建\外贸网站制作要多少钱，请找那个售后服务好的龙门做网站的公司定做！
托盘程序作为一类特殊的窗体，其快捷图标显示在
系统托盘
中，窗体本身则隐藏不可见。在.NET之前版本的VB中编写托盘程序是十分困难的，但是VB.NET提供的新的NotifyIcon组件却使VB初学者也能轻松编写一个这样的程序：
新建“Windows应用程序”，设置主窗体Opacity属性为0，FormBorderStyle属性为None，ShowInTaskbar属性为
False，这样窗体将在启动后隐藏。在窗体上放置一个NotifyIcon组件NotifyIcon1，一个ContextMenu（弹出菜单）组件
ContextMenu1，并根据需要为ContextMenu1添加菜单项。
设置NotifyIcon1的ICON属性，这个图标就是应用程序出现在系统托盘中的快捷图标；设置NotifyIcon1的Text属性为“VB.NET托盘程序”，这就是鼠标移动到托盘图标时弹出的文字说明；设置NotifyIcon1的ContextMenu属性为ContextMenu1，也就是右键单击快捷图标时的弹出菜单为
ContextMenu1。OK，按F5运行！
几乎不用编写代码，一个托盘程序就这样轻松实现了。
1.降窗体的WindowState 属性 设置为 Mininmized;将ShowInTaskbar属性设置为False
2.在窗体的Load事件中添加下面的代码
if Me.WindowState = FormWindowState.Minimized then
me.hide()
end if
窗体最小化代码:
Private Sub Command1_Click()
Me.WindowState = 1
End Sub
窗体最大化代码:
Private Sub Command2_Click()
Me.WindowState = 2
End Sub
下列代码用一个按钮完成窗体的最大化或正常设置:
Option Explicit
Dim cmdFlag As Boolean
Private Sub Command1_Click()
If cmdFlag = True Then
Me.WindowState = 0
Command1.Caption = "最大化"
Else
Me.WindowState = 2
Command1.Caption = "正常"
End If
cmdFlag = Not cmdFlag
End Sub
vb窗体的属性栏:
maxbutton
设置成false将隐藏最大化按钮,true为显示.
minbutton设置成false将隐藏最小化按钮,true为显示.
但是用鼠标放在窗体边上,会出现左右箭头,仍然可以
用鼠标改变窗体的大小,,
如果你想彻底锁定窗体,可在窗体属性栏里的borderstyle属性设置为1