新建立一标准exe程序,在form1中添加一command按钮,然后把下在的代码复制过去就可以解决!解决了乱码的问题,XP+VB6测试通过!
Private Declare Function Shell_NotifyIcon Lib "shell32.dll" (ByVal dwMessage As Long, lpData As NOTIFYICONDATA) As Long
Const NIM_ADD = &H0
Const NIM_DELETE = &H2
Const NIF_ICON = &H2
Const NIF_MESSAGE = &H1
Const NIF_TIP = &H4
Const WM_MOUSEMOVE = &H200
Const WM_LBUTTONDBLCLK = &H203
Private Type NOTIFYICONDATA
cbSize As Long
hWnd As Long
uId As Long
uFlags As Long
uCallBackMessage As Long
hIcon As Long
szTip As String * 64
End Type
Dim tray As NOTIFYICONDATA
Private Sub Command1_Click()
tray.cbSize = Len(tray)
tray.uId = vbNull
tray.hWnd = Me.hWnd
tray.uFlags = NIF_TIP Or NIF_MESSAGE Or NIF_ICON
tray.uCallBackMessage = WM_MOUSEMOVE
tray.hIcon = Me.Icon
tray.szTip = "测试" & vbNullChar
Shell_NotifyIcon NIM_ADD, tray
Me.Hide
End Sub
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Dim msg As Long
msg = X / 15
If msg = WM_LBUTTONDBLCLK Then
Me.Show
Shell_NotifyIcon NIM_DELETE, tray
End If
End Sub
参考资料:
http://wenwen.soso.com/z/q129311370.htm
http://zhidao.baidu.com/question/10939984.html
分享到:
相关推荐
用VB6.0实现将窗体最小化到系统托盘区 方法均测试有效
vb6实现的程序最小化或关闭窗体后, 隐藏到右侧系统托盘, 双击图标后回复原窗体,windows7测试可用.
工程开始运行窗体就自动最小化到托盘,左键点击托盘上的图标即可弹出窗体,右键点击托盘上的图标即可弹出菜单;点击窗体的关闭按钮则最小化到托盘;右键点击托盘上的图标并在弹出菜单中选择退出--退出程序.
本程序由VB编写,主要是用VB实现在把程序最小化到右下角托盘中。
程序最小化到托盘上是现在很多软件都有的功能,而如何使用VB实现将自己的程序最小化到托盘中,经过我的寻找,才找到这份比较简单的代码,代码很少,只有一个模块,又很艰辛地将英文注释翻译成中文,但还有英文原版。...
可实现程序最小化到托盘,可移植性好。 并含有“显示\隐藏”窗口菜单
最小化 系统托盘 气泡提示 源码 打包下载
工程开始运行窗体就自动最小化到托盘,点击托盘上的图标即可弹出窗体,这时是我想实现的是要点击关闭按钮的时候窗体又回去托盘上,最小化的时候窗体回到任务栏,请问这怎么实现?麻烦帮帮忙改一下!谢谢!
最小化后到托盘。。最小化后到托盘。。最小化后到托盘。。最小化后到托盘。。
摘要:VB源码,界面编程,气泡提示,托盘 VB将窗体最小化到托盘+VB精美气泡提示的源代码完美版,函数参数:指针在图标上显示的内容,标题,内容,图标。菜单中的事件,在窗体上右键选择菜单编辑器进行修改 ...
VB6使用API法完成窗体文件最小化到系统托盘
工程开始运行窗体就自动最小化到托盘,左键点击托盘上的图标即可弹出窗体,右键点击托盘上的图标即可弹出菜单;点击窗体的最小化按钮则最小化到托盘;右键点击托盘上的图标并在弹出菜单中选择退出--退出程序.
免费在线客服工程开始运行窗体就自动最小化到托盘,左键点击托盘上的图标即可弹出窗体,右键点击托盘上的图标即可弹出菜单;点击窗体的最小化按钮则最小化到托盘;右键点击托盘上的图标并在弹出菜单中选择退出--退出...
2.点击最小化,任务栏上的不消失,只是最小化,同时托盘的图标也存在 3.点击关闭按钮,程序从任务栏消失,只有系统托盘 4.无论在何时,鼠标左键单击托盘图标,窗口重新显现 5.系统托盘上鼠标右键,退出程序 框架已经提供,...
VB利用CallWindowProc、SetWindowLong、Shell、NotifyIcon三个API函数将窗体最小化取系统托盘的示例代码。
VB6.0将窗体最小化到系统托盘区 控件法,才是最适合最方便的。使用已被微软封装好的控件:csystray1(名称可自定)。 可直接使用 SysTray.ocx 控件。也可用VB打开工程,做必要的话可作些改进(如更换图标、添加功能...
VB气泡提示控件,最小化到托盘,可以显示中文提示的气泡控件,加载NorkIconDLL.dll方法:工程-引用-浏览,找到根文件下的NorkIconDLL.dll,加载即可。最小化到托盘气泡完美版VB源码。下面两个是菜单中的事件,在窗体...
如果要使程序最小化时显示到托盘,如下: Private Sub Form_Resize() If Me.WindowState = vbMinimized Then cSysTray1.InTray = True Me.Visible = False End If End Sub 点击托盘图标...
VB6.0控件,QQ窗体,菜单增强,超连接,纯按钮,皮肤增强,容器,最小化到托盘等控件合集