雖然VB.NET和VB在語法上有很多相同之處，但從根本上說，VB.NET不僅僅是VB的另外一個(gè)升級版本，而是一個(gè)全新的語言。VB.NET全面支持面向?qū)ο?，在VB.NET中哪怕是一個(gè)字符串，你也都可以把它看成是一個(gè)對象，一個(gè)實(shí)例，也有自己的屬性和方法。同樣VB.NET中程序窗體（Form）也是一個(gè)實(shí)例，它是由命名空間“System.Windows.Forms”中的“Form”類通過構(gòu)造函數(shù)而成的一個(gè)實(shí)例。下面試著用VB.NET來編寫與窗體相關(guān)的程序。
利用VB.NET來定制窗體的透明度
在下面介紹的程序中，將通過調(diào)整TrackBar組件的數(shù)值來調(diào)整窗體的透明程度。定制透明的窗體，如果要用其他語言來實(shí)現(xiàn)，一定是件很復(fù)雜的工作，但對于VB.NET來說，則是一件非常簡單的事情，這是因?yàn)樵?Net FrameWork SDK的“Form”類中，提供了一個(gè)可以設(shè)定窗體透明度的屬性“Opacity”，當(dāng)“Opacity”屬性值為“1”，說明窗體不透明，當(dāng)“Opacity”為“0”，則窗體完全透明。
構(gòu)造整個(gè)程序的主要思路就是：首先要繼承一個(gè)Form對象，程序中名稱為Form1，然后創(chuàng)建一個(gè)TrackBar組件和一個(gè)Label組件，并進(jìn)行初始化，Label組件的名稱為Label1，主要是顯示當(dāng)前窗體的透明度數(shù)值。接著定義各組件相關(guān)事件，程序中只有一個(gè)TrackBar1的“Scroll”事件，并在Form1中加入這些可視組件，這樣組件才能顯示出來。最后提供VB.NET的程序入口函數(shù)“Main”來運(yùn)行這個(gè)程序。下面在VB.NET中通過TrackBar1來定制窗體透明度的完整程序代碼（Form.vb）：
Imports System.DrawingImports System.Windows.FormsImports System.ComponentModel‘繼承得到一個(gè)窗體Public Class Form1 Inherits System.Windows.Forms.Form#Region " Windows 窗體設(shè)計(jì)器生成的代碼 " Public Sub New ( ) MyBase.New ( ) ‘該調(diào)用是 Windows 窗體設(shè)計(jì)器所必需的。 InitializeComponent ( ) ‘在 InitializeComponent ( ) 調(diào)用之后添加任何初始化 End Sub ‘窗體重寫處置以清理組件列表。 Protected Overloads Overrides Sub Dispose ( ByVal disposing As Boolean ) If disposing Then If Not ( components Is Nothing ) Then components.Dispose ( ) End If End If MyBase.Dispose ( disposing ) End Sub ‘創(chuàng)建Windows 窗體中的各種組件 Private components As System.ComponentModel.IContainer ‘注意：以下過程是 Windows 窗體設(shè)計(jì)器所必需的 ‘可以使用 Windows 窗體設(shè)計(jì)器修改此過程。 ‘不要使用代碼編輯器修改它。 Friend WithEvents TrackBar1 As System.Windows.Forms.TrackBar Friend WithEvents Label1 As System.Windows.Forms.Label Friend WithEvents Label2 As System.Windows.Forms.Label ‘初始化各種組件，并定義相關(guān)的事件 Private Sub InitializeComponent ( ) Me.TrackBar1 = New System.Windows.Forms.TrackBar ( ) Me.Label1 = New System.Windows.Forms.Label ( ) Me.Label2 = New System.Windows.Forms.Label ( ) CType ( Me.TrackBar1 , System.ComponentModel. ISupportInitialize ).BeginInit ( ) Me.SuspendLayout ( ) Me.TrackBar1.Location = New System.Drawing.Point ( 12 , 48 ) Me.TrackBar1.Maximum = 100 Me.TrackBar1.Name = "TrackBar1" Me.TrackBar1.Size = New System.Drawing.Size ( 258 , 42 ) Me.TrackBar1.TabIndex = 1 Me.Label1.Location = New System.Drawing.Point ( 144 , 104 ) Me.Label1.Name = "Label1" Me.Label1.Size = New System.Drawing.Size ( 66 , 24 ) Me.Label1.TabIndex = 2 Me.Label1.Text = "1" Me.Label2.Location = New System.Drawing.Point ( 62 , 104 ) Me.Label2.Name = "Label2" Me.Label2.Size = New System.Drawing.Size ( 78 , 23 ) Me.Label2.TabIndex = 3 Me.Label2.Text = "透明程度：" Me.AutoScaleBaseSize = New System.Drawing.Size ( 6 , 14 ) Me.ClientSize = New System.Drawing.Size ( 292 , 197 ) ‘在窗體中加入組件 Me.Controls.AddRange ( New System.Windows.Forms.Control ( ) { Me.Label2 , Me.Label1 , Me.TrackBar1 } ) Me.MaximizeBox = False Me.Name = "Form1" Me.Text = "VB.NET定制透明窗體" CType ( Me.TrackBar1 , System.ComponentModel.ISupportInitialize ) .EndInit ( ) Me.ResumeLayout ( False ) End Sub#End Region ‘事件處理 Private Sub TrackBar1_Scroll ( ByVal sender As Object , ByVal e As System.EventArgs ) Handles TrackBar1.Scroll Dim temp As Double temp = ( 100 - TrackBar1.Value ) / 100 Label1.Text = temp.ToString ( ) Me.Opacity = temp End SubEnd Class‘啟動程序Module Module1Sub Main ( ) Application.Run ( new Form1 ( ) )End subEnd Module
Form.vb源程序文件經(jīng)過了下列命令編譯后，就可以得到執(zhí)行文件Form.exe，編譯命令如下：
Vbc /r:system.dll /r:system.windows.forms.dll /r:system.drawing.dll Form.vb
下面是Form.exe運(yùn)行界面：
圖01：VB.NET定制窗體透明度01
圖02：VB.NET定制窗體透明度02
通過上面的介紹，可以了解到如何創(chuàng)建窗體、組件，定義事件等，下面就在上面的這些知識之上，利用窗體的"Opacity"屬性和定時(shí)器組件來實(shí)現(xiàn)一個(gè)窗體的特效窗體——實(shí)現(xiàn)窗體的淡入淡出效果。
VB.NET實(shí)現(xiàn)窗體淡入淡出特效
根據(jù)上面的介紹，發(fā)現(xiàn)通過調(diào)整窗體的"Opacity"屬性值，就可以實(shí)現(xiàn)窗體的不同的透明程度。那么是否可以通過一個(gè)時(shí)間觸發(fā)器來不斷調(diào)整"Opacity"屬性值，從而實(shí)現(xiàn)窗體淡入淡出的特效。答案是肯定的。
在.Net FrameWork SDK中提供了一個(gè)時(shí)間觸發(fā)組件——Timer組件，當(dāng)Timer組件的"Enabled"屬性設(shè)定為"true"，那么Timer組件就會每隔其"Interval"屬性中的數(shù)值（請注意"Interval"屬性為毫秒級），觸發(fā)一下其"Tick"。所以在Timer組件的"Tick"事件中，加入修改窗體"Opacity"屬性值的代碼，就可以在Timer組件啟動的時(shí)候，實(shí)現(xiàn)窗體的淡入淡出的特效了。
整個(gè)程序構(gòu)造思路是：
首先要繼承一個(gè)Form對象，程序中為名稱為Form1，然后創(chuàng)建2個(gè)Button組件，名稱為Button1和Button2，其作用是實(shí)現(xiàn)啟動和停止定時(shí)器；一個(gè)Label組件，名稱Label1，主要是顯示當(dāng)前窗體的透明度數(shù)值；和一個(gè)Timer組件，名稱為"Timer1"，在程序中設(shè)定其"Interval"的屬性值為"100"，也就是說，當(dāng)此定時(shí)器啟動的時(shí)候，每隔01.秒，觸發(fā)一下其"Tick"事件。接著初始化組件和定義各組件的相關(guān)的事件。并在Form1中加入這些可視組件，這樣組件才能顯示出來，由于Timer1并非可視化組件，所以在Form1中也沒有必要加入了。最后提供VB.NET的程序入口函數(shù)"Main"來運(yùn)行這個(gè)程序。下面就是根據(jù)上述思路，通過VB.NET實(shí)現(xiàn)窗體淡入淡出特效的的完整程序代碼（Form2.vb）：
Imports System.Drawing Imports System.Windows.Forms Imports System.ComponentModel ‘繼承得到一個(gè)窗體 Public Class Form1 Inherits System.Windows.Forms.Form #Region " Windows 窗體設(shè)計(jì)器生成的代碼 " Public Sub New ( ) MyBase.New ( ) ‘該調(diào)用是 Windows 窗體設(shè)計(jì)器所必需的。 InitializeComponent ( ) ‘在 InitializeComponent ( ) 調(diào)用之后添加任何初始化 End Sub ‘窗體重寫處置以清理組件列表。 Protected Overloads Overrides Sub Dispose ( ByVal disposing As Boolean ) If disposing Then If Not ( components Is Nothing ) Then components.Dispose ( ) End If End If MyBase.Dispose ( disposing ) End Sub ‘在Windows 窗體創(chuàng)建組件和定義相關(guān)變量 Private components As System.ComponentModel.IContainer ‘注意：以下過程是 Windows 窗體設(shè)計(jì)器所必需的 ‘可以使用 Windows 窗體設(shè)計(jì)器修改此過程。 ‘不要使用代碼編輯器修改它。 Friend WithEvents Button1 As System.Windows.Forms.Button Friend WithEvents Button2 As System.Windows.Forms.Button Friend WithEvents Timer1 As System.Windows.Forms.Timer Friend WithEvents Label1 As System.Windows.Forms.Label Dim temp As Integer = 100 Dim flag As Boolean = True Private Sub InitializeComponent ( ) ‘初始化各組件 Me.components = New System.ComponentModel.Container ( ) Me.Button1 = New System.Windows.Forms.Button ( ) Me.Button2 = New System.Windows.Forms.Button ( ) Me.Timer1 = New System.Windows.Forms.Timer ( Me.components ) Me.Label1 = New System.Windows.Forms.Label ( ) Me.SuspendLayout ( ) Me.Button1.FlatStyle = System.Windows.Forms.FlatStyle.Flat Me.Button1.Location = New System.Drawing.Point ( 86 , 64 ) Me.Button1.Name = "Button1" Me.Button1.Size = New System.Drawing.Size ( 96 , 36 ) Me.Button1.TabIndex = 0 Me.Button1.Text = "啟動" Me.Button2.FlatStyle = System.Windows.Forms.FlatStyle.Flat Me.Button2.Location = New System.Drawing.Point ( 86 , 116 ) Me.Button2.Name = "Button2" Me.Button2.Size = New System.Drawing.Size ( 96 , 36 ) Me.Button2.TabIndex = 1 Me.Button2.Text = "停止" Me.Label1.Location = New System.Drawing.Point ( 168 , 180 ) Me.Label1.Name = "Label1" Me.Label1.TabIndex = 2 Me.Label1.Text = "Label1" Me.AutoScaleBaseSize = New System.Drawing.Size ( 6 , 14 ) Me.ClientSize = New System.Drawing.Size ( 266 , 223 ) ‘在窗體中加入可視化組件 Me.Controls.AddRange ( New System.Windows.Forms.Control ( ) {Me.Label1 , Me.Button2 , Me.Button1} ) Me.MaximizeBox = False Me.Name = "Form1" Me.Text = "VB.NET實(shí)現(xiàn)淡入淡出的窗體效果" Me.ResumeLayout ( False ) End Sub #End Region ‘啟動定時(shí)器 Private Sub Button1_Click ( ByVal sender As Object , ByVal e As System.EventArgs ) Handles Button1.Click Timer1.Enabled = True End Sub ‘關(guān)閉定時(shí)器，停止窗體淡入淡出 Private Sub Button2_Click ( ByVal sender As Object , ByVal e As System.EventArgs ) Handles Button2.Click Timer1.Enabled = False End Sub ‘調(diào)整窗體屬性，實(shí)現(xiàn)窗體淡入淡出特效 Private Sub Timer1_Tick ( ByVal sender As Object , ByVal e As System.EventArgs ) Handles Timer1.Tick If flag = True Then temp = temp - 1 Me.Opacity = temp / 100 Label1.Text = ( temp / 100 ).ToString ( ) If temp = 0 Then flag = False End If Else temp = temp + 1 Me.Opacity = temp / 100 Label1.Text = ( temp / 100 ).ToString ( ) If temp = 100 Then flag = True End If End If End Sub End Class Module Module1 Sub Main ( ) Application.Run ( new Form1 ( ) ) End sub End Module
Form2.vb源程序文件經(jīng)過了下列命令編譯后，就可以得到執(zhí)行文件Form2.exe，編譯命令如下：
Vbc /r:system.dll /r:system.windows.forms.dll /r:system.drawing.dll Form2.vb
下面是Form2.exe啟動定時(shí)器后在不同時(shí)間段的運(yùn)行界面：
圖03：VB.NET實(shí)現(xiàn)窗體淡入淡出特效的運(yùn)行界面01
圖04：VB.NET實(shí)現(xiàn)窗體淡入淡出特效的運(yùn)行界面04
總結(jié)
上面的內(nèi)容主要是通過二個(gè)具體的、有代表性的例子來介紹在VB.NET中編寫和窗體（Form）相關(guān)程序的一般思路。通過上面的介紹，可以掌握VB.NET中如何創(chuàng)建組件，定義組件的相關(guān)事件。VB.NET的WinForm雖然相對比較簡單，但卻是最基礎(chǔ)，在下面的一系列文章中，將通過大量的實(shí)例來幫助您精通WinFrom編程。
