怎样使程序在屏幕右下角产生一个小图标代表程序正在运行??

Question

是加在系统托盘里吗？用API函数：
Private Declare Function Shell_NotifyIcon Lib "shell32.dll" Alias " Shell_NotifyIconA" (ByVal dwMessage As Long, lpData As NOTIFYICONDATA) As LongPrivate Type NOTIFYICONDATA
        cbSize As Long                  '此Type的大小
        hwnd As Long                    'Form的hWnd
        uID As Long                     '托盘图标的ID
        uFlags As Long                  '要进行的操作
        uCallbackMessage As Long        '回掉事件
        hIcon As Long                   '图标的hWnd
        szTip As String * 64            '提示信息
End Type
Private Const NIF_MESSAGE = &H1
Private Const NIF_TIP = &H4
Private Const NIM_ADD = &H0            '增加图标
Private Const NIM_DELETE = &H2
Private Const NIM_MODIFY = &H1

Answer 1

是加在系统托盘里吗？用API函数：
Private Declare Function Shell_NotifyIcon Lib "shell32.dll" Alias " Shell_NotifyIconA" (ByVal dwMessage As Long, lpData As NOTIFYICONDATA) As LongPrivate Type NOTIFYICONDATA
        cbSize As Long                  '此Type的大小
        hwnd As Long                    'Form的hWnd
        uID As Long                    '托盘图标的ID
        uFlags As Long                  '要进行的操作
        uCallbackMessage As Long        '回掉事件
        hIcon As Long                  '图标的hWnd
        szTip As String * 64            '提示信息
End Type
Private Const NIF_MESSAGE = &H1
Private Const NIF_TIP = &H4
Private Const NIM_ADD = &H0            '增加图标
Private Const NIM_DELETE = &H2
Private Const NIM_MODIFY = &H1

Answer 2

怎么调用这个api呢？例如在form1.load中，怎么调用？

Answer 3

如果你想用鼠标右键激活，那先声明：
Private Const WM_RBUTTONUP = &H205
在Form中添加一Image（当然，也可以是PictureBox），其中放上你的图标。
调用：
Dim Datas as NOTIFYICONDATA
With Datas
     .cbSize=Len(Datas)
     .hwnd=Me.hwnd
     .uID=10
     .uFlags=NIF_MESSAGE & NIF_TIP 
     .uCallbackMessage=WM_RBUTTONUP 
     .hIcon=Image1.hWnd
     .szTip="提示语句"
End With
retValue=Shell_NotifyIcon( NIM_ADD ,Datas)

Answer 4

刚才有点错误，现在是正确的：
Private Declare Function Shell_NotifyIcon Lib "shell32.dll" Alias "Shell_NotifyIconA" (ByVal dwMessage As Long, lpData As NOTIFYICONDATA) As LongConst NIF_ICON = &H2
Const NIF_MESSAGE = &H1
Const NIF_TIP = &H4
Const NIM_ADD = &H0
Const NIM_DELETE = &H2
Const WM_RBUTTONUP = &H205
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 Datas As NOTIFYICONDATAPrivate Sub Form_Load()    With Datas
        .cbSize = Len(Datas)
        .hwnd = Me.hwnd
        .uID = 10&
        .uFlags = NIF_ICON Or NIF_MESSAGE Or NIF_TIP
        .uCallbackMessage = WM_RBUTTONUP
        .hIcon = Image1.Picture
        .szTip = "提示"
    End With    If Shell_NotifyIcon(NIM_ADD, Datas) = 0 Then
        MsgBox "不能加入图标！"
    End If
End Sub

Answer 5

把WM_RBUTTONUP改为WM_RBUTTONUP Or WM_LBUTTONDBLCLK，当然，你还得定义常量WM_LBUTTONDBLCLK。