VB.NET編寫托盤程序
龍門網站建設公司創新互聯,龍門網站設計制作,有大型網站制作公司豐富經驗。已為龍門上千余家提供企業網站建設服務。企業網站搭建\外貿網站制作要多少錢,請找那個售后服務好的龍門做網站的公司定做!
托盤程序作為一類特殊的窗體,其快捷圖標顯示在
系統托盤
中,窗體本身則隱藏不可見。在.NET之前版本的VB中編寫托盤程序是十分困難的,但是VB.NET提供的新的NotifyIcon組件卻使VB初學者也能輕松編寫一個這樣的程序:
新建“Windows應用程序”,設置主窗體Opacity屬性為0,FormBorderStyle屬性為None,ShowInTaskbar屬性為
False,這樣窗體將在啟動后隱藏。在窗體上放置一個NotifyIcon組件NotifyIcon1,一個ContextMenu(彈出菜單)組件
ContextMenu1,并根據需要為ContextMenu1添加菜單項。
設置NotifyIcon1的ICON屬性,這個圖標就是應用程序出現在系統托盤中的快捷圖標;設置NotifyIcon1的Text屬性為“VB.NET托盤程序”,這就是鼠標移動到托盤圖標時彈出的文字說明;設置NotifyIcon1的ContextMenu屬性為ContextMenu1,也就是右鍵單擊快捷圖標時的彈出菜單為
ContextMenu1。OK,按F5運行!
幾乎不用編寫代碼,一個托盤程序就這樣輕松實現了。
1.降窗體的WindowState 屬性 設置為 Mininmized;將ShowInTaskbar屬性設置為False
2.在窗體的Load事件中添加下面的代碼
if Me.WindowState = FormWindowState.Minimized then
me.hide()
end if
窗體最小化代碼:
Private Sub Command1_Click()
Me.WindowState = 1
End Sub
窗體最大化代碼:
Private Sub Command2_Click()
Me.WindowState = 2
End Sub
下列代碼用一個按鈕完成窗體的最大化或正常設置:
Option Explicit
Dim cmdFlag As Boolean
Private Sub Command1_Click()
If cmdFlag = True Then
Me.WindowState = 0
Command1.Caption = "最大化"
Else
Me.WindowState = 2
Command1.Caption = "正常"
End If
cmdFlag = Not cmdFlag
End Sub
vb窗體的屬性欄:
maxbutton
設置成false將隱藏最大化按鈕,true為顯示.
minbutton設置成false將隱藏最小化按鈕,true為顯示.
但是用鼠標放在窗體邊上,會出現左右箭頭,仍然可以
用鼠標改變窗體的大小,,
如果你想徹底鎖定窗體,可在窗體屬性欄里的borderstyle屬性設置為1
新聞名稱:vb點虐
使窗體最小化的簡單介紹
網站網址:http://vcdvsql.cn/article46/ddsishg.html
成都網站建設公司_創新互聯,為您提供品牌網站制作、品牌網站設計、網站排名、靜態網站、軟件開發、動態網站
聲明:本網站發布的內容(圖片、視頻和文字)以用戶投稿、用戶轉載內容為主,如果涉及侵權請盡快告知,我們將會在第一時間刪除。文章觀點不代表本網站立場,如需處理請聯系客服。電話:028-86922220;郵箱:631063699@qq.com。內容未經允許不得轉載,或轉載時需注明來源: 創新互聯