Question

高分求教：VB6.0实现运行程序后在托盘显示图标，鼠标左键单击显示或隐藏程序界面，右键单击有退出！

高分求教：VB6.0实现运行程序后在托盘显示图标，鼠标左键单击显示或隐藏程序界面，右键单击有退出！功能一：程序一运行后，在右下角托盘处显示图标；
功能二：如果程序最小化后，鼠标左键单击托盘图标，点一下显示程序界面；
功能二：鼠标右键，弹出菜单：菜单有【退出】和【联系作者】，选择【退出】就退出程序，点【联系作者】会弹出一个对话框！

代码最好是放在一个模块中，不要全部放在窗体代码中。

Answer 1

先创建一个隐藏的菜单，假定名为popmenu，并添加两个菜单项：退出、联系作者

然后在公共模块添加以下代码：

Public Declare Function Shell_NotifyIcon Lib "shell32.dll" Alias "Shell_NotifyIconA" (ByVal dwMessage As Long, lpData As NOTIFYICONDATA) As Long
Public 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
Public tp As NOTIFYICONDATA

最后在窗体添加以下代码：

Private Sub Form_Load()
tp.hWnd = Me.hWnd
tp.uID = Me.Icon
tp.uFlags = 7
tp.uCallbackMessage = &H200
tp.hIcon = Me.Icon.Handle
tp.szTip = "左键显示界面，右键弹出菜单" & vbNullChar
tp.cbSize = Len(tp)
Shell_NotifyIcon &H0, tp
End Sub

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Select Case X / Screen.TwipsPerPixelX
Case &H201
    If Me.WindowState = 1 Then Me.WindowState = 0
Case &H204
    Me.PopupMenu popmenu
End Select
End Sub

Private Sub Form_Unload(Cancel As Integer)
Shell_NotifyIcon &H2, tp
End Sub