vb.net

位置:IT落伍者 >> vb.net >> 浏览文章

VB.NET实现窗体图标最小化到状态栏


发布日期:2019年03月01日
 
VB.NET实现窗体图标最小化到状态栏

本文所使用的编程环境是Microsoft Visual Studio 首先打开Visual Studio在文件(File)菜单上单击新建项目(New Project)在新建项目(New Project)对话框的模板(Templates)窗格中单击Windows应用程序(WindowsApplication)单击确定(ok)

想要将窗体图标最小化时自动隐藏到任务栏我们可以使用一个控件这个控件的名字叫做NotifyIcon控件打开左侧的工具箱找到NotifyIcon控件直接将它拖到窗体上把NotifyIcon的Icon属性设一下当然ICON属性你可以设置一个好看的图标

)thisstylewidth=; twffan=done>图

接下来单击Form窗体进入属性设置把Form的WindowState设成MinimizedShowInTaskbar属性设成False

borderColorDark=#ffffff align=center bgColor=#ddddd borderColorLight=# border=>image onmousewheel=javascript:return big(this) src=http://imgeducitycn/img_///jpg onload=javascript:if(thiswidth>)thisstylewidth=; twffan=done>图

接下来我们就要输入代码了在Form的Resize代码事件中

borderColorDark=#ffffff cellPadding= width= align=center borderColorLight=black border=>ee>

Private Sub Form_Resize(ByVal sender As Object

ByVal e As SystemEventArgs) Handles MyBaseResize

If MeWindowState = FormWindowStateMinimized Then

MeHide()

End If

End Sub

代码的意思是让窗体最小化的时候就自动隐藏到状态栏

这样运行的时候窗体就会自动隐藏出现在状态栏了

想双击图标的时候显示窗体的话可以设置NotifyIcon控件的DoubleClick代码

代码如下

borderColorDark=#ffffff cellPadding= width= align=center borderColorLight=black border=>ee>

Private Sub NotifyIcon_DoubleClick(ByVal sender As Object

ByVal e As SystemEventArgs) Handles NotifyIconDoubleClick

MeShowInTaskbar = True

MeShow()

MeWindowState = FormWindowStateNormal

End Sub

如果我们想创建右键菜单的话我们可以在窗体上添加一个ContextMenustrip控件用NotifyIcon的ContextMenu属性进行关联

在工具箱中选择菜单和工具栏直接将ContextMenu控件拖到窗体上进入属性设置输入相应菜单关键字(自己想输入的文字如下图的软件版本等)

borderColorDark=#ffffff align=center bgColor=#ddddd borderColorLight=# border=>image onmousewheel=javascript:return big(this) src=http://imgeducitycn/img_///jpg onload=javascript:if(thiswidth>)thisstylewidth=; twffan=done>图

然后单击窗体的NotifyIcon控件设置属性在contextmenustrip处选择刚才编辑过的右键菜单ContextMenustrip进行关联

borderColorDark=#ffffff align=center bgColor=#ddddd borderColorLight=# border=>image onmousewheel=javascript:return big(this) src=http://imgeducitycn/img_///jpg onload=javascript:if(thiswidth>)thisstylewidth=; twffan=done>图

然后按F运行程序点击窗体最小化按钮窗体的图标自动隐藏到状态栏了点击右键你可以看到精美的右键菜单

上一篇:了解VB.NET中的常量与枚举

下一篇:VB.NET分层开发的几点心得