标题:[求助]谁能提供一个最小化到系统托盘的例子?
只看楼主
lrd1986
Rank: 1
等 级:新手上路
帖 子:111
专家分:0
注 册:2007-9-11
得分:0 
回复:(purana)[upload=rar]viewFile.asp?ID=27763[...
还有2个问题

1.进入系统托盘后如何使用鼠标的左右键?如单击左键显示主界面,右键选择功能

2.为了实现单击最小化按钮可以缩进系统托盘,我使用的代码是:
Private Sub Form_Resize()
If Me.WindowState = 1 Then '最小化
AddToTray Me
frmMain.Visible = False '最小化时不在任务栏显示
SetTrayBalloon 123, "我的软件", "双击打开" '最小化到系统托盘时的提示语
SetTrayIcon LoadPicture(App.Path & "\pictuer\heart.ico") '在系统托盘显示的图标
End If
End Sub
请问有什么不妥的地方吗?

走自己的路,让人说去
2007-09-21 09:36
lrd1986
Rank: 1
等 级:新手上路
帖 子:111
专家分:0
注 册:2007-9-11
得分:0 
请问在哪里可以设置当缩进托盘后可以使用左右键?

走自己的路,让人说去
2007-09-21 11:38
juxn001
Rank: 1
等 级:新手上路
帖 子:13
专家分:5
注 册:2013-7-11
得分:0 
回复 8楼 multiple1902
这样在托盘图标区也没有啊?
2013-07-17 21:59



参与讨论请移步原网站贴子:https://bbs.bccn.net/thread-171631-1-1.html




关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.013337 second(s), 7 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved