妳需要找到VB的安裝盤的常用\ tools \ VB \ unsupprt \ Systray目錄(不是安裝後的目錄),把Systray目錄復制到硬盤上編譯成ocx控件(編譯前記得修改只讀屬性,有時候會提示妳先直接保存。),
然後在自己的VB程序中添加壹個更改控件(項目-組件-瀏覽)。
妳最好把這個ocx放在C:\WINDOWS\system32。
更改控件的屬性。固有屬性用於設置是否在托盤中顯示。True表示在托盤中顯示,False表示不顯示。TrayIcon屬性是顯示在托盤中的圖標樣式。TrayTip屬性是當鼠標移動以更改控件時顯示的提示文本。如果要將程序最小化顯示到托盤中,如下:
私有子窗體_Resize()
如果我。WindowState =最小化然後
cSysTray1。InTray =真
我。Visible = FalseEnd If
末端接頭
單擊托盤圖標顯示程序,如下所示:
private Sub csystray 1 _ MouseDown(Button為整數,Id為Long)
我。WindowState = vbNormal
我。可見=真
cSysTray1。InTray = False
我。SetFocus
末端接頭