4．响应按钮操作
在示例程序运行的过程中，如果用户在两个按钮上按下鼠标的左键，在对应的文本框中就会显示当前系统的时间和日期。
为此，在程序设计的过程中，用鼠标左键双击窗体上的两个按钮控件，在屏幕上就会弹出一个空白的代码窗口，在代码窗口的对象列表中分别选择按钮控件Command1和Command2，在对应的事件列表中选择事件Private Sub Command1_Click()和Private Sub Command2_Click()。
把光标移动到相应事件的处理过程中，添加如下所示的事件响应代码：
Private Sub Command1_Click()
Form1.Text1.Text = Time
'显示当前时间
End Sub
Private Sub Command2_Click()
Form1.Text2.Text = Date
'显示当前日期
End Sub
程序说明：
在程序运行的过程中，当用户在按钮控件Command1上按下鼠标左键时，就会激活控件的Private Sub Command1_Click()事件。
程序通过Form1.Text1.Text = Time语句在控件Text1上显示系统当前时间，如果按钮控件Command2上按下鼠标左键时，就会激活控件的Private Sub Command2_Click()事件，程序通过Form1.Text2.Text = Date语句在控件Text2上显示系统当前日期。
5．运行程序
按照附后的源程序清单添加剩余的代码，设置项目的启动窗体为主窗体Form1，存储文件，运行程序，程序运行结果如图1-15所示。
图1-15 程序运行结果
单击按钮“显示当前时间”，在界面的第一个文本框中就会出现计算机系统的当前时间。第二个按钮、文本框的功能和前者类似。
提示：
@ 运行编辑好的Visual Basic程序有两种方式，最简捷的方法就是直接按键盘上的F5功能键。
附程序完整程序清单如下所示：
程序清单
Begin Visual Basic.Form Form1
Caption = "Hello Visual Basic"
ClientHeight = 3195
ClientLeft = 60
ClientTop = 345
ClientWidth = 4680
ScaleHeight = 3195
ScaleWidth = 4680
StartUpPosition = 2
Begin Visual Basic.TextBox Text2
Height = 495
Left = 360
TabIndex = 3
Text = "Text2"
Top = 2280
Width = 2295
End
Begin Visual Basic.TextBox Text1
Height = 495
Left = 360
TabIndex = 2
Text = "Text1"
Top = 960
Width = 2295
End
Begin Visual Basic.CommandButton Command2
Caption = "显示当前日期："
Height = 495
Left = 360
TabIndex = 1
Top = 1680
Width = 1815
End
Begin Visual Basic.CommandButton Command1
Caption = "显示当前时间："
Height = 495
Left = 360
TabIndex = 0
Top = 360
Width = 1815
End
End
Attribute Visual Basic_Name = "Form1"
Attribute Visual Basic_GlobalNameSpace = False
Attribute Visual Basic_Creatable = False
Attribute Visual Basic_PredeclaredId = True
Attribute Visual Basic_Exposed = False
Private Sub Command1_Click()
Form1.Text1.Text = Time
'显示当前时间
End Sub
Private Sub Command2_Click()
Form1.Text1.Text = Date
'显示当前日期
End Sub
Private Sub Form_Load()
Form1.Text1.Text = Time
Form1.Text1.Text = Date
'显示时间和日期
End Sub
1.4 快速生成应用程序
在Visual Basic 6.0中系统为用户提供了许多个向导应用程序，利用这些向导可以节省很多的劳动，可以少用甚至不用添加代码就可以快速生成应用程序。
下面就利用Visual Basic应用程序向导来生成一个简单的应用程序，具体的程序设计步骤如下所示。
1．开始工作
首先启动一个新的项目，选择“文件”菜单中的“新建工程”选项，在Visual Basic 6.0的集成开发环境中就会弹出一个标题为“新建工程”的对话框，用户在其中可以选择各种向导程序和窗体形式等。
选择“新建工程”对话框中的“Visual Basic应用程序向导”，单击“确定”按钮进入下一步。
接下来就会显示一个“应用程序向导--介绍”对话框，在其中可以读取以前存储过的设置，单击“下一步”按钮。
注意：
@ 以上对话框基本不用任何设置，所以介绍略国，也不作图解。
2．选择界面类型
在由向导生成的应用程序中，用户可以在如图1-16所示的窗体界面类型选择对话框中选择界面的类型。
图1-16 窗体界面类型选择对话框
在窗体界面类型选择对话框中用户可以为自己的应用程序选择一种界面类型，如MDI（多文档界面）、SDI（单文档界面）或者是资源管理器样式等。
这里，用户可以选择界面类型为MDI，单击“下一步”按钮。
注意：
@ MDI、SDI窗体界面设计是Visual Basic 6.0可视化编程的重要内容，我们在稍后一章将详细介绍。
3．选择菜单
在如图1-17所示的菜单选择对话框中，用户可以选择文件菜单、编辑菜单、视图菜单、窗口菜单和帮助菜单以及其中的子菜单项。
图1-17 菜单选择对话框
4．设计完毕
接下来，用户只要按照向导的提示进行操作就可以了，不再赘述。
最后经过以上各步，完成的应用程序窗体如图1-18所示。
图1-18 选择程序路径和设置
在这里，我们没有填写一行代码的应用程序中，但是已经包括了菜单、工具栏和状态条等Windows应用程序的标准设置了，而且还具有一定的功能。
5．运行程序
做完以上的工作后，选择Visual Basic 6.0工具栏上的“保存”按钮，在弹出的对话框中选择合适的文件名保存文件，然后按键盘上的功能键F5运行程序。
程序的运行的结果如图1-19所示。
图1-19 程序运行结果
在这个应用程序中，可以完成新建文件、打开指定文件、存储文件，对文本文件进行编辑等操作。但是由于还没有添加各个事件的详细响应代码，所以它的某些功能还不能够实现。
注意：
@ 总的来说，上面我们生成的是一个标准的Windows程序框架，用户可以在此基础上添加自己的代码。
由向导生成的程序完整源代码如下所示：
程序清单
Private Sub MDIForm_Load()
Me.Left = GetSetting(App.Title, "Settings", "MainLeft", 1000)
Me.Top = GetSetting(App.Title, "Settings", "MainTop", 1000)
Me.Width = GetSetting(App.Title, "Settings", "MainWidth", 6500)
Me.Height = GetSetting(App.Title, "Settings", "MainHeight", 6500)
LoadNewDoc
End Sub
Private Sub LoadNewDoc()
Static lDocumentCount As Long
Dim frmD As frmDocument
lDocumentCount = lDocumentCount + 1
Set frmD = New frmDocument
frmD.Caption = "Document " & lDocumentCount
frmD.Show
End Sub
Private Sub MDIForm_Unload(Cancel As Integer)
If Me.WindowState <> vbMinimized Then
SaveSetting App.Title, "Settings", "MainLeft", Me.Left
SaveSetting App.Title, "Settings", "MainTop", Me.Top
SaveSetting App.Title, "Settings", "MainWidth", Me.Width
SaveSetting App.Title, "Settings", "MainHeight", Me.Height
End If
End Sub
Private Sub mnuHelpAbout_Click()
'To Do
MsgBox "在此处添加"关于"对话框代码！"
End Sub
Private Sub mnuViewOptions_Click()
'To Do
MsgBox "在此处添加"选项"对话框代码！"
End Sub
Private Sub mnuViewStatusBar_Click()
If mnuViewStatusBar.Checked Then
sbStatusBar.Visible = False
mnuViewStatusBar.Checked = False
Else
sbStatusBar.Visible = True
mnuViewStatusBar.Checked = True
End If
End Sub
Private Sub mnuViewToolbar_Click()
If mnuViewToolbar.Checked Then
tbToolBar.Visible = False
mnuViewToolbar.Checked = False
Else
tbToolBar.Visible = True
mnuViewToolbar.Checked = True
End If
End Sub
Private Sub tbToolBar_ButtonClick(ByVal Button As ComctlLib.Button)
Select Case Button.Key
Case "New"
LoadNewDoc
Case "New"
mnuFileNew_Click
Case "Open"
mnuFileOpen_Click
Case "Save"
mnuFileSave_Click
Case "Print"
mnuFilePrint_Click
Case "Cut"
mnuEditCut_Click
Case "Copy"
mnuEditCopy_Click
Case "Paste"
mnuEditPaste_Click
Case "Bold"
'To Do
MsgBox "在此处添加"粗体"代码！"
Case "Italic"
'To Do
MsgBox "在此处添加"斜体"代码！"
Case "Underline"
'To Do
MsgBox "在此处添加"下划线"代码！"
Case "Left"
'To Do
MsgBox "在此处添加"左对齐"代码！"
Case "Center"
'To Do
MsgBox "在此处添加"居中对齐"代码！"
Case "Right"
'To Do
MsgBox "在此处添加"右对齐"代码！"
End Select