找个系统托盘的例程就可,多着呢!

解决方案 »

  1.   

    找一个最小化的控件,
    运行完了,把它释放掉,就没了。
      

  2.   

    Global nid As NOTIFYICONDATA
       ......
    With nid
            .cbSize = Len(nid)
            .hwnd = form1.hwnd
            .uId = vbNull
            .uFlags = NIF_ICON Or NIF_TIP Or NIF_MESSAGE
            .uCallBackMessage = WM_NOTIFYICON
            .hicon = frmView.Icon
            .szTip = frmView.Caption & vbNullChar
        End With
      
        Shell_NotifyIcon NIM_ADD, nid
        form1.hide
         ......(運行完后)
        Shell_NotifyIcon NIM_DELETE, nid
        ......
      

  3.   

    系统托盘的例子看看,很有用的,我就是通过这样学会的!