VB最小化到托盘效果

来源：百度知道 编辑：UC知道 时间：2024/06/28 08:32:24
想要的效果如图上说明.请VB高手帮帮忙.谢谢了http://hiphotos.baidu.com/yaozhen208/pic/item/2225dd4bad3a6bec82025cc8.jpg
参考或修改代码如下网址http://hi.baidu.com/yaozhen208/blog/item/227503f0fd264da8a40f52f6.html满意追加分....
我是要图上的效果,我不会修改这个东西.帮帮忙了.

在Form中制作一个菜单，在窗体上点右键－菜单编辑器，标题随便，名称“F00”（不含引号，下同），去掉“可见”前的勾，“下一个”，标题“打开”，名称“F01”，点“右箭头”，“下一个”，标题退出，名称“F02”，点“右箭头”，“确定”

以下是代码，效果是程序运行时不显示在托盘中图标，点最小化后显示在托盘图标并且不在任务栏中显示窗口，双击图标打开窗口，右键点图标弹出菜单

'-----------------------窗体中--------------------------
Dim WindowTop, WindowLeft

Function WindowStyle()
'以下把程序放入System Tray====================================System Tray Begin
With nfIconData
.hWnd = Me.hWnd
.uID = Me.Icon
.uFlags = NIF_ICON Or NIF_MESSAGE Or NIF_TIP
.uCallbackMessage = WM_MOUSEMOVE
.hIcon = Me.Icon.Handle
'定义鼠标移动到托盘上时显示的Tip
.szTip = "已最小化到托盘" & vbNullChar
.cbSize = Len(nfIconData)
End With
Call Shell_NotifyIcon(NIM_ADD, nfIconData)
'=============================================================System Tray End
Me.Hide
End Function

Private Sub Form_Resize()
WindowTop = Me.Top
WindowLeft = Me.Left
If M