vb怎麼最小化到托盤，VB怎麼最小化到托盤

1樓：尚心部落

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

2樓：匿名使用者

網路上很多**！你要我也可以給你！

vb怎麼 最小化到托盤，VB怎麼 最小化到托盤