VB编写程序的步骤

VB编写程序的步骤可以分为三步：

枯伏设计程序的界面，根据想要实现的功能画出程序的界面；编写代码是最枯燥的一步悉举，根据程序的功能，为每个控件元没陆携素编写代码，这是程序设计的关键所在；发布应用程序为程序创建安装项目。

敲代码很好学。

在面向对象的程序设计中，我们把外界的刺激用事件来表示，而把对这个事件的反应称为事件过程。

可视化和事件驱动正是使用VB进行Windows程序设计的精髓所在。事件驱动，即事件发生时，程序才会运行，在没有事件时，整个程派老序处于停滞状态。事件决定了对象之间的联系。在VB中，事件就是能够被对象识别的动作，如用鼠标单击或双击，键盘输入、鼠标的移动、窗体的载入，还有定时器产生的定时信号。

VB的每个窗体和控件都有一个预定义的事件集，它们能够察羡慧自动识别属于事件集中的事件，大多数类型的事件是各种控件所共有的，例如命令按钮和窗体都可以对单击、双击和按键这样的事件做出响应，而某些事件只能发生在特定的对象上。 *相同的事件发生在不同的对象上得到的反应是不一样的，造成这种差异是事件过程的缘故，对象对每一个可以识别的事件都有一个事件过程，当事件发生时，会自动执行这个事件的过程。语法如下：

Private Sub 对象名_事件()

处理事件的程序代码

End Sub

在VB程序设计过程中，基本的思想就是改变对象的属性，使用对象的方法和为对象的事件编写事件过程。除非有必要，用户不必为所有的事件编写事件过程，Windows系统会以默认的方式来处理事件。使用VB编写程序的妙处在于：只有当用户要以某种特定方式来响应某个事件时，才有必要针对某个事件的事件过程。

事件驱动程序中典型的事件序列：

启动应用程序，装载并显示窗体，产生Load和Show事件。

窗体或窗体上的控件接收事件。事件可以由用户引发、由系统引发，也可以由代码间接引发。

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

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

应用程序中使用一个窗体时，程序开始运行时窗体接收到了Load消息，从而引发了窗体的Load事件，在这个默认的事件过程中，什么语句都没有，这个过程只是调用就结束了，而VB则执行了一个重要的默认 *** 作——把窗体装入内存。

许多事件的发生常常会伴随其它事件发生：双击事件发生时，按下鼠标键、复原鼠标键和单击事件也会发生。

希望我能帮助你解疑释惑败答。

将下列代码复制到一个文本文件，并将文本文件命名为Form1.frm，然后运行（我不知道你要取消按钮的用途）

VERSION 5.00

Begin VB.Form Form1

Caption = "Form1"

ClientHeight= 4035

ClientLeft = 60

ClientTop = 450

ClientWidth = 5310

LinkTopic = "Form1"

ScaleHeight = 4035

ScaleWidth = 5310

StartUpPosition = 3 '窗口缺省

Begin VB.TextBox Text1

BeginProperty Font

Name= "宋体"

Size= 14.25

Charset = 134

Weight = 400

Underline = 0 'False

Italic = 0 'False

Strikethrough = 0 'False

EndProperty

Height = 465

Left= 1920

TabIndex= 3

Top = 240

Width = 2175

End

Begin VB.CommandButton Command2

Caption = "取 消"

BeginProperty Font

Name= "宋体"

Size= 14.25

Charset = 134

Weight = 400

Underline = 0 'False

Italic = 0 'False

Strikethrough = 0 'False

EndProperty

Height = 615

Left= 3000

TabIndex= 1

Top = 2400

Width = 1455

End

Begin VB.CommandButton Command1

Caption = "确 定"

Default = -1 'True

BeginProperty Font

Name= "宋体"

Size= 14.25

Charset = 134

Weight = 400

Underline = 0 'False

Italic = 0 'False

Strikethrough = 0 'False

EndProperty

Height = 615

Left= 720

TabIndex= 0

Top = 2400

Width = 1455

End

Begin VB.Label Label3

BeginProperty Font

Name= "宋体"

Size= 14.25

Charset = 134

Weight = 400

Underline = 0 'False

Italic = 0 'False

Strikethrough = 0 'False

EndProperty

Height = 375

Left= 1800

TabIndex= 5

Top = 1080

Width = 2295

End

Begin VB.Label Label2

Caption = "八位号"

BeginProperty Font

Name= "宋体"

Size= 14.25

Charset = 134

Weight = 400

Underline = 0 'False

Italic = 0 'False

Strikethrough = 0 'False

EndProperty

Height = 495

Left= 480

TabIndex= 4

Top = 1080

Width = 1215

End

Begin VB.Label Label1

Caption = "姓 名"

BeginProperty Font

Name= "宋体"

Size= 14.25

Charset = 134

Weight = 400

Underline = 0 'False

Italic = 0 'False

Strikethrough = 0 'False

EndProperty

Height = 375

Left= 480

TabIndex= 2

Top = 360

Width = 1215

End

End

Attribute VB_Name = "Form1"

Attribute VB_GlobalNameSpace = False

Attribute VB_Creatable = False

Attribute VB_PredeclaredId = True

Attribute VB_Exposed = False

Private Declare Function GetPrivateProfileString Lib "kernel32" Alias "GetPrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpDefault As String, ByVal lpReturnedString As String, ByVal nSize As Long, ByVal lpFileName As String) As Long

Private Declare Function WritePrivateProfileString Lib "kernel32" Alias "WritePrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpString As Any, ByVal lpFileName As String) As Long

Private Sub Command1_Click()

If Text1 = "" Then

MsgBox "请输入名字！"

Text1.SetFocus

Exit Sub

End If

Randomize

CF:

Label3 = LTrim(Str(Int(Rnd() * 100000000)))

Label3 = String(8 - Len(Label3), "0") &Label3

Open "D:\花名册\花名册.txt" For Input As #1

Do While Not EOF(1)

Input #1, strzc

If strzc = "" Then GoTo TG

k = Split(strzc, " ")

If k(1) = Label3 Then

Close #1

GoTo CF

End If

If k(0) = Text1 Then

w = MsgBox("输入的姓名已经存在，点“是”保存，点“否”放弃。", vbYesNo, "提示")

If w = 7 Then

Close #1

Exit Sub

End If

End If

Loop

TG:

Close #1

Open "D:\花名册\花名册.txt" For Append As #1

Print #1, Text1 &" " &Label3 &" " &Format(Now, "yyyy年mm月dd日hh:nn:ss")

Close #1

Text1.SelStart = 0

Text1.SelLength = Len(Text1)

End Sub

Private Sub Form_Load()

If Dir(App.Path &"\MyTime.INI") = "" Then

MkDir "D:\花名册"

Open "D:\花名册\花名册.txt" For Append As #1

Close #1

End If

A = WritePrivateProfileString("TIP", "START", Time$, App.Path &"\MyTime.INI")

Show

Text1.SetFocus

End Sub

更多VB代码请参阅我的博客：http://hi.baidu.com/zgmg/

---