百宝箱之VB.NET设计制作窗体

经过长时间学习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编程