托盤化

單擊“最小化”按鈕（標題欄的右邊）將窗口縮小為任務欄上右邊的圖標，同時隱藏原窗體。單擊或者右鍵托盤化的圖標，可以重現原窗體。

vb中有部分api可以實現將窗體最小化的功能，但是非常繁瑣。這裏有一個非常簡單的辦法：可以用微軟封裝好的控件來實現，不過該控件並不在VB安裝目錄中，需要找到VB的安裝盤(不是安裝以後的目錄)的COMMON\TOOLS\VB\UNSUPPRT\SYSTRAY目錄，將Systray目錄拷到硬盤上面並編譯為ocx控件（編譯前記得要先把只讀屬性修改掉，有時候會提示要先保存，直接保存。），

然後在自己的VB程序中添加改控件(工程-部件-瀏覽)。

最好把這個ocx放到C:\WINDOWS\system32。

改控件的屬性InTray屬性用來設置是否顯示在托盤中，True為顯示在托盤，False為不顯示。TrayIcon屬性是在托盤中顯示的圖標式樣。TrayTip屬性是鼠標移到改控件上面顯示的提示文字。如果要使程序最小化時顯示到托盤，如下：

Private Sub Form_Resize()

If Me.WindowState = vbMinimized Then

cSysTray1.InTray = True

Me.Visible = FalseEnd If

End Sub

點擊托盤圖標後讓程序顯示出來，如下：

Private Sub cSysTray1_MouseDown(Button As Integer, Id As Long)

Me.WindowState = vbNormal

Me.Visible = True

cSysTray1.InTray = False

Me.SetFocus

End Sub