用VB.NET輕鬆製作特效表單

表單是Windows應用程式的基礎。新一代的開發工具Visual Basic.Net為設計製作表單提供了更多簡單而豐富的方法，無需再求助於複雜而易錯的API函數，我們就可以輕鬆製作多種特效表單。

1、輕鬆製作透明表單

VB.NET可以輕鬆製作出任一透明度的表單：我們只要在表單的“屬性”視窗中，將 Opacity 屬性設定為一個介於 0.0（完全透明）與 1.0（完全不透明）之間的值就可以了：

 

Dim frm As FrmTrans = New FrmTrans() frm.Opacity = 0.5 frm.ShowDialog()

 

2、輕鬆製作始終位於最上層的表單

在VB6中，要製作一個始終位於最上層的表單我們只能求助於令人頭痛的API函數。然而在 .NET 中，我們只要簡單設定表單的 TopMost 屬性就可實現同樣效果了！例如：

 

Dim frm As frmTopMost = New frmTopMost() frm.TopMost = True frm.Show()

 

3、輕鬆製作不可見的表單

如果要編寫一個不讓別人發現的隱藏程式，製作不可見的表單就是必須實現的第一步。表單的可見度通常由 Visible 屬性控制。但是，如果希望 Windows 應用程式的主表單在應用程式啟動時不可見，您將會發現將它的 Visible 屬性設定為 False 的方法無效，表單總會自己顯示出來（這是因為，啟動表單的生存期決定了應用程式的生存期）。雖然如此，我們還是可以通過簡單將應用程式的啟動設定為一個模組，從而從表單的生存期分出應用程式的生存期，輕鬆實現不可見的表單。在下面這個例子中，表單在特定的時間內自動隱藏：

（1）在 Visual Basic 中，右擊項目並選擇“添加模組”以將模組添加到 Windows 應用程式。

（2）在已添加的模組（或類）內，建立可作為項目啟始物件的 Main 函數：

 

Sub main() Dim f1 As New Form1() f1.Visible = False While Hour(Date.Now) < 15 ‘如果目前時間早於15點，表單自動隱藏 Application.DoEvents() End While f1.ShowDialog() End Sub

 

4、輕鬆編寫托盤程式

托盤程式作為一類特殊的表單，其快捷表徵圖顯示在系統托盤中，表單本身則隱藏不可見。在.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運行！

幾乎不用編寫代碼，一個托盤程式就這樣輕鬆實現了。