回复:(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
请问有什么不妥的地方吗?