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

zjsxShenwx 2007-06-24

展開全文


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

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

本站是提供個(gè)人知識(shí)管理的網(wǎng)絡(luò)存儲(chǔ)空間，所有內(nèi)容均由用戶發(fā)布，不代表本站觀點(diǎn)。請(qǐng)注意甄別內(nèi)容中的聯(lián)系方式、誘導(dǎo)購買等信息，謹(jǐn)防詐騙。如發(fā)現(xiàn)有害或侵權(quán)內(nèi)容，請(qǐng)點(diǎn)擊一鍵舉報(bào)。

轉(zhuǎn)藏 分享

QQ空間 QQ好友新浪微博微信

獻(xiàn)花（0） +1

來自： zjsxShenwx > 《編程技術(shù)》

舉報(bào)/認(rèn)領(lǐng)