經過長時間學習VB.NET設計制作窗體，以前介紹過VB.NET窗體編程模式，于是今天和大家分享一下，看完本文你肯定有不少收獲，希望本文能教會你更多東西。新一代的開發工具VB.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、VB.NET設計制作窗體:不可見的窗體

如果要編寫一個不讓別人發現的隱藏程序，制作不可見的窗體就是必須實現的***步。窗體的可見性通常由 Visible 屬性控制。但是，如果希望 Windows 應用程序的主窗體在應用程序啟動時不可見，您將會發現將它的 Visible 屬性設置為 False 的方法無效，窗體總會自己顯示出來（這是因為，啟動窗體的生存期決定了應用程序的生存期）。雖然如此，我們還是可以通過簡單將應用程序的啟動設置為一個模塊，從而從窗體的生存期分出應用程序的生存期，輕松實現不可見的窗體。在下面這個例子中，窗體在特定的時間內自動隱藏：
（1）在 Visual Basic 中，右擊項目并選擇“添加模塊”以將模塊添加到 Windows 應用程序。
（2）在已添加的模塊（或類）內，創建可作為項目啟動對象的 Main 函數：

Dim f1 As New Form1()  
f1.Visible = False 
While Hour(Date.Now) < 15   
‘如果當前時間早于15點，窗體自動隱藏  
Application.DoEvents()  
End While  
f1.ShowDialog()  
End Sub 

【編輯推薦】

1. 實例分析VB.NET Treeview結構
2. 一見鐘情VB.NET On Error語句
3. VB.NET共享成員高手經驗談
4. 描述VB.NET DirectCast運算符
5. 手把手指導VB.NET Socket編程