十年网站开发经验 + 多家企业客户 + 靠谱的建站团队
量身定制 + 运营维护+专业推广+无忧售后,网站问题一站解决
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