成人午夜视频全免费观看高清-秋霞福利视频一区二区三区-国产精品久久久久电影小说-亚洲不卡区三一区三区一区

vb.net系統(tǒng)托盤(pán) vbnet tabcontrol

vb.net 利用NotifyIcon實(shí)現(xiàn)最小化到系統(tǒng)托盤(pán),但是收縮到軌跡到開(kāi)始菜單

添加托盤(pán)圖標(biāo)控件,并設(shè)置好其Icon屬性,然后添加如下代碼:

讓客戶(hù)滿(mǎn)意是我們工作的目標(biāo),不斷超越客戶(hù)的期望值來(lái)自于我們對(duì)這個(gè)行業(yè)的熱愛(ài)。我們立志把好的技術(shù)通過(guò)有效、簡(jiǎn)單的方式提供給客戶(hù),將通過(guò)不懈努力成為客戶(hù)在信息化領(lǐng)域值得信任、有價(jià)值的長(zhǎng)期合作伙伴,公司提供的服務(wù)項(xiàng)目有:空間域名、虛擬空間、營(yíng)銷(xiāo)軟件、網(wǎng)站建設(shè)、平遠(yuǎn)網(wǎng)站維護(hù)、網(wǎng)站推廣。

Private Sub Form1_FormClosing(sender As Object, e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing

e.Cancel = True

Me.Hide()

End Sub

這樣實(shí)現(xiàn)了點(diǎn)關(guān)閉,進(jìn)入托盤(pán),如果點(diǎn)最小化進(jìn)入托盤(pán):

'窗體最小化時(shí)候隱藏窗體,

Private Sub MainForm_SizeChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.SizeChanged

If Me.WindowState = FormWindowState.Minimized Then

Me.Hide()

Me.ShowInTaskbar = False

End If

End Sub

如何把VB.NET程序最小化到托盤(pán)圖標(biāo)區(qū)

VB.NET編寫(xiě)托盤(pán)程序

托盤(pán)程序作為一類(lèi)特殊的窗體,其快捷圖標(biāo)顯示在

系統(tǒng)托盤(pán)

中,窗體本身則隱藏不可見(jiàn)。在.NET之前版本的VB中編寫(xiě)托盤(pán)程序是十分困難的,但是VB.NET提供的新的NotifyIcon組件卻使VB初學(xué)者也能輕松編寫(xiě)一個(gè)這樣的程序:

新建“Windows應(yīng)用程序”,設(shè)置主窗體Opacity屬性為0,F(xiàn)ormBorderStyle屬性為None,ShowInTaskbar屬性為

False,這樣窗體將在啟動(dòng)后隱藏。在窗體上放置一個(gè)NotifyIcon組件NotifyIcon1,一個(gè)ContextMenu(彈出菜單)組件

ContextMenu1,并根據(jù)需要為ContextMenu1添加菜單項(xiàng)。

設(shè)置NotifyIcon1的ICON屬性,這個(gè)圖標(biāo)就是應(yīng)用程序出現(xiàn)在系統(tǒng)托盤(pán)中的快捷圖標(biāo);設(shè)置NotifyIcon1的Text屬性為“VB.NET托盤(pán)程序”,這就是鼠標(biāo)移動(dòng)到托盤(pán)圖標(biāo)時(shí)彈出的文字說(shuō)明;設(shè)置NotifyIcon1的ContextMenu屬性為ContextMenu1,也就是右鍵單擊快捷圖標(biāo)時(shí)的彈出菜單為

ContextMenu1。OK,按F5運(yùn)行!

幾乎不用編寫(xiě)代碼,一個(gè)托盤(pán)程序就這樣輕松實(shí)現(xiàn)了。

vb.net 托盤(pán)!

我記在彈出菜單的時(shí)候可以指定位置的吧?依稀記得有個(gè)x和y的參數(shù)吧?你試試修改一下,把y值再減少一點(diǎn)呢?

找了個(gè)以前的代碼:

mnuPrize.Show(lblMenu, New Point(0, lblMenu.Height))

我這個(gè)是在Label的下面彈出來(lái),你可以改一下Point的賦值,提高菜單顯示位置

vb.net系統(tǒng)托盤(pán)菜單怎樣顯示在系統(tǒng)托盤(pán)圖標(biāo)的上方

NotifyIcon1屬性中ContextMenustrip=ContextMenuStrip1

在NotifyIcon1的屬性中修改就可以了,好像可以去掉以下內(nèi)容,用鼠標(biāo)右鍵點(diǎn)擊圖標(biāo)就可以了

Private Sub NotifyIcon1_MouseClick(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles NotifyIcon1.MouseClick

ContextMenuStrip1.Visible = True

End Sub

當(dāng)前標(biāo)題:vb.net系統(tǒng)托盤(pán) vbnet tabcontrol
網(wǎng)頁(yè)URL:http://jinyejixie.com/article34/dosihse.html

成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián),為您提供虛擬主機(jī)、軟件開(kāi)發(fā)、移動(dòng)網(wǎng)站建設(shè)面包屑導(dǎo)航、ChatGPT

廣告

聲明:本網(wǎng)站發(fā)布的內(nèi)容(圖片、視頻和文字)以用戶(hù)投稿、用戶(hù)轉(zhuǎn)載內(nèi)容為主,如果涉及侵權(quán)請(qǐng)盡快告知,我們將會(huì)在第一時(shí)間刪除。文章觀點(diǎn)不代表本網(wǎng)站立場(chǎng),如需處理請(qǐng)聯(lián)系客服。電話(huà):028-86922220;郵箱:631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載,或轉(zhuǎn)載時(shí)需注明來(lái)源: 創(chuàng)新互聯(lián)

網(wǎng)站優(yōu)化排名
汉川市| 巴中市| 武宣县| 横山县| 威海市| 日土县| 防城港市| 沁阳市| 蒲江县| 宾阳县| 五原县| 镇坪县| 浏阳市| 和田市| 军事| 遂宁市| 交口县| 亚东县| 常山县| 屏山县| 辽源市| 那坡县| 昌黎县| 惠安县| 米脂县| 正蓝旗| 宜良县| 舟曲县| 廊坊市| 青岛市| 南乐县| 兰考县| 绥芬河市| 乐安县| 安岳县| 德清县| 惠来县| 东兰县| 襄汾县| 富川| 松阳县|