真实的国产乱ⅩXXX66竹夫人,五月香六月婷婷激情综合,亚洲日本VA一区二区三区,亚洲精品一区二区三区麻豆

成都創(chuàng)新互聯(lián)網(wǎng)站制作重慶分公司

VB.NET如何實(shí)現(xiàn)特殊窗體

這篇文章主要介紹VB.NET如何實(shí)現(xiàn)特殊窗體,文中介紹的非常詳細(xì),具有一定的參考價(jià)值,感興趣的小伙伴們一定要看完!

創(chuàng)新互聯(lián)公司作為成都網(wǎng)站建設(shè)公司,專注重慶網(wǎng)站建設(shè)公司、網(wǎng)站設(shè)計(jì),有關(guān)企業(yè)網(wǎng)站建設(shè)方案、改版、費(fèi)用等問(wèn)題,行業(yè)涉及成都廣告制作等多個(gè)領(lǐng)域,已為上千家企業(yè)服務(wù),得到了客戶的尊重與認(rèn)可。

VB.NET特殊窗體1 、輕松制作透明窗體

VB.NET可以輕松制作出任一透明度的窗體:我們只要在窗體的“屬性”窗口中,將 Opacity 屬性設(shè)置為一個(gè)介于 0.0(完全透明)與 1.0(完全不透明)之間的值就可以了:

  1. Dim frm As FrmTrans 
    = New FrmTrans()  

  2. frm.Opacity = 0.5  

  3. frm.ShowDialog()  

VB.NET特殊窗體2、輕松制作始終位于最上層的窗體

在VB6中,要制作一個(gè)始終位于最上層的窗體我們只能求助于令人頭痛的API函數(shù)。然而在 .NET 中,我們只要簡(jiǎn)單設(shè)置窗體的 TopMost 屬性就可實(shí)現(xiàn)同樣效果了!例如:

  1. Dim frm As frmTopMost = 
    New frmTopMost()  

  2. frm.TopMost = True 

  3. frm.Show() 

VB.NET特殊窗體3、輕松制作不可見(jiàn)的窗體

如果要編寫(xiě)一個(gè)不讓別人發(fā)現(xiàn)的隱藏程序,制作不可見(jiàn)的窗體就是必須實(shí)現(xiàn)的***步。窗體的可見(jiàn)性通常由 Visible 屬性控制。但是,如果希望 Windows 應(yīng)用程序的主窗體在應(yīng)用程序啟動(dòng)時(shí)不可見(jiàn),您將會(huì)發(fā)現(xiàn)將它的 Visible 屬性設(shè)置為 False 的方法無(wú)效,窗體總會(huì)自己顯示出來(lái)(這是因?yàn)?,啟?dòng)窗體的生存期決定了應(yīng)用程序的生存期)。雖然如此,我們還是可以通過(guò)簡(jiǎn)單將應(yīng)用程序的啟動(dòng)設(shè)置為一個(gè)模塊,從而從窗體的生存期分出應(yīng)用程序的生存期,輕松實(shí)現(xiàn)不可見(jiàn)的窗體。在下面這個(gè)例子中,窗體在特定的時(shí)間內(nèi)自動(dòng)隱藏:

(1)在 Visual Basic 中,右擊項(xiàng)目并選擇“添加模塊”以將模塊添加到 Windows 應(yīng)用程序。

(2)在已添加的模塊(或類)內(nèi),創(chuàng)建可作為項(xiàng)目啟動(dòng)對(duì)象的 Main 函數(shù):

  1. Sub main()  

  2. Dim f1 As New Form1()  

  3. f1.Visible = False 

  4. While Hour(Date.Now) < 15   

  5. ‘如果當(dāng)前時(shí)間早于15點(diǎn),
    窗體自動(dòng)隱藏  

  6. Application.DoEvents()  

  7. End While  

  8. f1.ShowDialog()  

  9. End Sub 

VB.NET特殊窗體4、輕松編寫(xiě)托盤(pán)程序

托盤(pán)程序作為一類特殊的窗體,其快捷圖標(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)行!

以上是“VB.NET如何實(shí)現(xiàn)特殊窗體”這篇文章的所有內(nèi)容,感謝各位的閱讀!希望分享的內(nèi)容對(duì)大家有幫助,更多相關(guān)知識(shí),歡迎關(guān)注創(chuàng)新互聯(lián)行業(yè)資訊頻道!


網(wǎng)頁(yè)標(biāo)題:VB.NET如何實(shí)現(xiàn)特殊窗體
網(wǎng)站地址:http://weahome.cn/article/gjided.html

其他資訊

在線咨詢

微信咨詢

電話咨詢

028-86922220(工作日)

18980820575(7×24)

提交需求

返回頂部