正在阅读：如何在VB.NET中创建Windows应用程序如何在VB.NET中创建Windows应用程序

　　对于一个Visual Basic程序员来说，创建的每一个应用程序都是胖客户端的。Web开发从来不是VB的目的，VB专注于开发具有Windows用户界面的单机或C/S结构应用程序，使得VB语言和其窗体引擎得到紧密的结合。在VB6中没有必要区分语言和创建界面的工具，但是在.NET中却是非常有必要的。

　　在VB.NET中，创建"标准"windows 应用程序的技术是.NET框架的一部分，在任何其它.NET语言中也都可以实现，这是和原先有着巨大改变的。在以下几个部分中，在详细讨论VB.NET中新的窗体技术如何工作。

　　崭新的Windows 窗体模型

　　在.NET中的窗体改变了在VB6中的窗体模型，窗体不再是一个专门的文件。编辑窗体或窗体上的控件的属性会产生与你在代码里设置属性一样的真正的VB.NET代码，下面我们通过一个例子来剖析一下VB.NET的新窗体设计器的特点，并看一下通过可视化的编辑所产生的代码。

　　让我们来看一下窗体Form1的代码，你可以看到这个窗体中的按钮的点击处理程序和一个被称作Windows Form Designer generated code的区域，如下图所示：

'NOTE: The following procedure
is required by the Windows Form Designer
'It can be modified using
the Windows Form Designer.
'Do not modify it using the code editor.
Friend WithEvents Button1
As System.Windows.Forms.Button
<System.Diagnostics.DebuggerStepThrough()> _
Private Sub InitializeComponent()
Me.Button1 = New System.Windows.Forms.Button
Me.SuspendLayout()
'
'Button1

'
Me.Button1.Location =
New System.Drawing.Point(96, 88)
Me.Button1.Name = "Button1"
Me.Button1.TabIndex = 0
Me.Button1.Text = "Button1"
'
'Form1
'
Me.AutoScaleBaseSize =
New System.Drawing.Size(5, 13)
Me.ClientSize =
New System.Drawing.Size(292, 273)
Me.Controls.Add(Me.Button1)
Me.Name = "Form1"
Me.Text = "Form1"
Me.ResumeLayout(False)
End Sub

'
'Button1
'
Me.Button1.Location =
New System.Drawing.Point(96, 88)
Me.Button1.Name = "Button1"
Debug.WriteLine("Testing!")
Me.Button1.TabIndex = 0
Me.Button1.Text = "Button1"

Friend WithEvents Button1
As System.Windows.Forms.Button

Private Sub Button1_Click( _
ByVal sender As System.Object, _
ByVal e As System.EventArgs) _
Handles Button1.Click
MsgBox("Hello World!")
End Sub

Private Sub Button2_Click( _
ByVal sender As System.Object, _
ByVal e As System.EventArgs) _
Handles Button2.Click
End Sub

Private Sub Button1_Click( _
ByVal sender As System.Object, _
ByVal e As System.EventArgs) _
Handles Button1.Click, Button2.Click

MsgBox("Hello World!")
End Sub

Private Sub ClickEvent1( _
ByVal sender As System.Object, _
ByVal e As System.EventArgs) _
Handles Button2.Click

MsgBox("ClickEvent1")
End Sub
Private Sub ClickEvent2( _
ByVal sender As System.Object, _
ByVal e As System.EventArgs) _
Handles Button2.Click
MsgBox("ClickEvent2")
End Sub

　　当Button2被点击的时候，在ClickEvent1和ClickEvent2中的代码都会被执行。

　　2、通过使用AddHandler/RemoveHandler手动处理事件

　　这种方法可以允许在运行时动态地将事件与一个或更多的事件处理程序连接或者断开。例如在一个空的窗体上有一个按钮和一个CheckBox.当CheckBox被压下后，通过使用AddHandler，按钮的点击事件被关联到一个简单的事件处理程序，显示一个消息框。当CheckBox在不被选中的时候，使用RemoveHandler来将事件处理程序与按钮分离开来。

Private Sub CheckBox1_CheckedChanged( _
ByVal sender As System.Object, _
ByVal e As System.EventArgs) _
Handles CheckBox1.CheckedChanged
If CheckBox1.Checked Then
AddHandler Button1.Click, _
AddressOf myClickHandler
Else
RemoveHandler Button1.Click, _
AddressOf myClickHandler
End If
End Sub
Private Sub myClickHandler( _
ByVal sender As System.Object, _
ByVal e As System.EventArgs)
MsgBox("Event Handled!")
End Sub

Private Sub RadioButton1_CheckedChanged( _
ByVal sender As System.Object, _
ByVal e As System.EventArgs) _
Handles RadioButton1.CheckedChanged, _
RadioButton2.CheckedChanged, _
RadioButton3.CheckedChanged, _
RadioButton4.CheckedChanged, _
RadioButton5.CheckedChanged
End Sub

Public Sub New()
MyBase.New()
'This call is required by the
Windows Form Designer.
InitializeComponent()
'Add any initialization after
the InitializeComponent() call
radioButtons(0) = RadioButton1
radioButtons(1) = RadioButton2
radioButtons(2) = RadioButton3
radioButtons(3) = RadioButton4
radioButtons(4) = RadioButton5
End Sub

Private Sub RadioButton1_CheckedChanged( _
ByVal sender As System.Object, _
ByVal e As System.EventArgs) _
Handles RadioButton1.CheckedChanged, _
RadioButton2.CheckedChanged, _
RadioButton3.CheckedChanged, _
RadioButton4.CheckedChanged, _
RadioButton5.CheckedChanged
Dim i As Integer = 0
Dim found As Boolean = False
While i < radioButtons.GetLength(0)
And Not found
If radioButtons(i).Checked Then
found = True
selectedOption = i + 1
Label1.Text = CStr(selectedOption)
End If
i += 1
End While
End Sub