編程中國-托盤程序輕松實現(xiàn)

zjsxShenwx 2007-06-24

展開全文


http://www./Article/kfyy/vb/kjjj/200512/2437.html

托盤，亦即程序最小化后程序圖標隱藏到屏幕右下角的任務欄里。這種最小化方法比普通的最小化節(jié)約空間，因此備受歡迎，很多軟件都具有這樣的功能。在VB中，可用API函數(shù)來實現(xiàn)托盤功能，但比較復雜,不太好操作。這里給大家介紹一種非常簡單易行的方法：控件法。說到控件，大家可能要皺眉頭了：去哪找呀？放心！這個控件就躺在你的VB安裝盤里！不過，得處理一下：請在COMMON\TOOLS\VB\UNSUPPRT文件夾里查找一個名叫Systray的目錄，將它拷貝到硬盤，用VB打開該目錄下的工程，必要的話可作些改進（如更換圖標、添加功能等），然后編譯成ocx控件，可以隨意命名。為方便使用起見，最好編譯到Windows\System目錄下。好了，現(xiàn)在我們就可以在我們的程序中使用此控件來輕松實現(xiàn)托盤功能了。添加控件的方法就不用我說了吧？該控件最主要的屬性是InTray屬性：設置為True時程序圖標出現(xiàn)在任務欄右邊，設置為False時從任務欄中清除圖標。此外還有圖標屬性TrayIcon(程序出現(xiàn)在任務時的圖標樣式)、TrayTip屬性(鼠標移到該圖標時出現(xiàn)的ToolTip字樣)等，都是我們所熟悉的東西，一看就知道。該控件的重要事件是幾個我們常用的鼠標事件：按下、放開、移動、雙擊，編程時就是利用這些事件達到在任務欄中控制程序的目的。你會發(fā)現(xiàn)這也是很簡單的，我就不羅嗦了。下面給個例子。運行此例，點擊最小化按鈕，程序界面消失，程序圖標（確切地說是CsysTray控件的圖標）出現(xiàn)在任務欄右邊；點擊任務欄右邊的圖標，程序恢復到原狀。 ‘最小化程序到任務欄的右邊 Private Sub Form_Resize() If Me.WindowState = 1 Then ‘如程序為最小化則—— cSysTray1.InTray = True ‘隱藏到任務欄 Me.Visible = False ‘讓程序界面不可見 End If End Sub ‘恢復程序到屏幕 Private Sub CsysTray1_MouseDown(Button As Integer, Id As Long) Me.WindowState = 0 ‘程序回復到Normal狀態(tài) Me.Visible = True ‘從任務欄中清除圖標 cSysTray1.InTray = False ‘令程序界面可見 End Sub