一个简单的Visual Basic程序的创建实例

做下好人把,完整代码:

界面文件Form1.Designer.vb :

<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>_

Partial Class Form1

Inherits System.Windows.Forms.Form

'Form 重写 Dispose，以清理组件列表。

<System.Diagnostics.DebuggerNonUserCode()>_

Protected Overrides Sub Dispose(ByVal disposing As Boolean)

If disposing AndAlso components IsNot Nothing Then

components.Dispose()

End If

MyBase.Dispose(disposing)

End Sub

'Windows 窗体设计器所必需的

Private components As System.ComponentModel.IContainer

'注意: 以下过程是 Windows 窗体设计器所必需的

'可以使用 Windows 窗体设计器修改它。

'不要使用代码编辑器修改它。

<System.Diagnostics.DebuggerStepThrough()>_

Private Sub InitializeComponent()

Me.Command1 = New System.Windows.Forms.Button

Me.Command2 = New System.Windows.Forms.Button

Me.Label1 = New System.Windows.Forms.Label

Me.SuspendLayout()

'

'Command1

'

Me.Command1.Location = New System.Drawing.Point(57, 173)

Me.Command1.Name = "Command1"

Me.Command1.Size = New System.Drawing.Size(75, 23)

Me.Command1.TabIndex = 0

Me.Command1.Text = "显示"

Me.Command1.UseVisualStyleBackColor = True

'

'Command2

'

Me.Command2.Enabled = False

Me.Command2.Location = New System.Drawing.Point(161, 173)

Me.Command2.Name = "Command2"

Me.Command2.Size = New System.Drawing.Size(75, 23)

Me.Command2.TabIndex = 1

Me.Command2.Text = "退出"

Me.Command2.UseVisualStyleBackColor = True

'

'Label1

'

Me.Label1.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle

Me.Label1.Location = New System.Drawing.Point(43, 31)

Me.Label1.Name = "Label1"

Me.Label1.Size = New System.Drawing.Size(206, 104)

Me.Label1.TabIndex = 3

Me.Label1.Text = "Label1"

'

'Form1

'

Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 12.0!)

Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font

Me.ClientSize = New System.Drawing.Size(292, 270)

Me.Controls.Add(Me.Label1)

Me.Controls.Add(Me.Command2)

Me.Controls.Add(Me.Command1)

Me.Name = "Form1"

Me.Text = "Form1"

Me.ResumeLayout(False)

End Sub

Friend WithEvents Command1 As System.Windows.Forms.Button

Friend WithEvents Command2 As System.Windows.Forms.Button

Friend WithEvents Label1 As System.Windows.Forms.Label

End Class

代码文件 Form1.vb :

Public Class Form1

Dim clickCount As Int32

Private Sub Command1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Command1.Click

If (clickCount Mod 2) = 0 Then

Label1.Text = "这是我的第一个VB程序"

Command1.Text = "继续"

Else

Label1.Text = "请你赐教，谢谢！"

Command1.Text = "显示"

End If

If (clickCount >0) Then

Command2.Enabled = True

End If

clickCount += 1

End Sub

Private Sub Command2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Command2.Click

End

End Sub

End Class

Visual Basic 应用程序的结构

一个应用程序实际上无非是指挥计算机完成任务的指令集。应用程序的结构是组织指令的方法，也就是指令存放的位置和指令的执行顺序。

典型的 "hello world" 例子以及诸如此类的简单应用程序都具有简单结构。对于只有一行的代码来说，组织结构并不十分重要。但应用程序越复杂，对组织或结构的要求也就越明显。试想一下，如果允许应用程序以随机顺序去执行，那将会带来什么样的混乱。除了对应用程序的执行进行控制外，如何在应用程序中轻松查找特定指令，结构也起着很重要的作用。

由于 Visual Basic 应用程序是基于对象的，所以应用程序的代码结构就是该程序在屏幕上物理表示的模型。根据定义，对象包含数据和代码。在屏幕上看到的窗体代表属性，这些属性定义了窗体的外观和内在特性。应用程序中的每个窗体都有一个包含其代码的相关的窗体模块（文件扩展名为 .frm）。

每个窗体模块都包含事件过程，即代码部分，其中有为响应特定事件而执行的指令。窗体可包含控件。在窗体模块中，对窗体上的每个控件都有一个对应的事件过程集。除了事件过程，窗体模块还可包含通用过程，它对来自任何事件过程的调用都作出响应。

可将那些与特定窗体或控件无关的代码放入另一类型的模块——标准模块（文件扩展名为 .BAS ）中。一个过程可能用来响应几个不同对象中的事件，应该将这个过程放在标准模块中，而不应在每一个对象的事件过程中重复相同的代码。

用类模块（文件扩展名为 .CLS ）创建对象，这些对象可被应用程序内的过程调用。标准模块只包含代码，而类模块既包含代码又包含数据，可视为没有物理表示的控件。

在第四章“工程的管理”中叙述了哪些部件可以添加到应用程序中，本章将说明如何将代码写到构成应用程序的各种部件中。按照缺省规定，工程包含的窗体模块。可根据需要另行添加窗体、类和标准模块。第九章“用对象编程”将讨论类模块。

事件驱动应用程序的工作方式

事件是窗体或控件识别的动作。在响应事件时，事件驱动应用程序执行 Basic代码。Visual Basic 的每一个窗体和控件都有一个预定义的事件集。如果其中有一个事件发生，而且，在关联的事件过程中存在代码，则 Visual Basic 调用该代码。

尽管 Visual Basic 中的对象自动识别预定义的事件集，但要判定它们是否响应具体事件以及如何响应具体事件则是编程的责任了。代码部分（即事件过程）与每个事件对应。 想让控件响应事件时，就把代码写入这个事件的事件过程之中。

对象所识别的事件类型多种多样，但多数类型为大多数控件所共有。例如，大多数对象都能识别 Click 事件——如果单击窗体，则执行窗体的单击事件过程中的代码；如果单击命令按钮，则执行命令按钮的Click 事件过程中的代码。每个情况中的实际代码几乎完全不一样。

这里是事件驱动应用程序中的典型事件序列：

1. 启动应用程序，装载和显示窗体。

2. 窗体（或窗体上的控件）接收事件。事件可由用户引发（例如键盘 *** 作），可由系统引发（例如定时器事件），也可由代码间接引发（例如，当代码装载窗体时的 Load 事件）。

3. 如果在相应的事件过程中存在代码，就执行代码。

4. 应用程序等待下一次事件。

注意 许多事件伴随其它事件发生。例如，在 DblClick 事件发生时，MouseDown、MouseUp 和 Click 事件也会发生。

---