第三章 常用对话框的设计和使用
用任何的编程语言编制应用程序时，都是一个程序员与编程环境的交流过程，而任何一个应用程序的运行的目的都是为了用户与程序之间的成功交流，从而达到更好的为用户服务的目的。在本章主要讲述的是在编制应用程序的过程中，程序员如何与Visual Basic 6.0编程环境之间交流，如何能够更加高效的工作。
提示：
@ 在Visual Basic 6.0中的交流手段有两种：一是在程序运行过程中的对话框，另外就是利用程序调试工具。
本章将通过几个典型的示例介绍对话框设计，而程序调试的内容在本书的其他内容中穿插介绍。
3.1 输入对话框
在Visual Basic 6.0中显示一个输入对话框所调用的函数是InputBox()，它的作用是显示一个对话框，等待用户输入正文或按下按钮，并返回包含文本框内容的一个字符串。
它的语法结构如下所示：
InputBox(prompt[, title] [, default] [, xpos] [, ypos] [, helpfile, context])
如下面的几条语句就可以实现显示一个输入对话框的功能。
Private Sub Form_Load()
InputBox ""
End Sub
运行程序，结果如图3-1所示。
图3-1 不带任何参数的输入对话框
其中InputBox函数的参数说明如表3-1所示。
表3-1 参数说明
|
参 数 |
说 明 |
| ||
|
prompt |
作为对话框消息出现的字符串表达式 |
| ||
|
|
title |
显示对话框标题栏中的字符串表达式 | ||
|
|
default |
显示文本框中的字符串表达式，在没有其他输入时作为缺省值 | ||
|
|
xpos |
指定对话框的左边与屏幕左边的水平距离 | ||
|
|
ypos |
指定对话框的上边与屏幕上边的距离 | ||
|
|
Context |
由帮助文件的作者指定给某个帮助主题的帮助上下文编号 | ||
下面以一个示例来说明InputBox函数的用法，它的具体设计步骤如下：
1．开始工作
首先启动一个新的项目，在空白的窗体上放置一个CommandButton控件、三个TextBox控件和两个Label控件，窗体及控件的属性设置如表3-2所示。
表3-2 窗体和控件的属性设置
|
名 称 |
属 性 |
设 置 | |
|
窗体 |
(Name) |
Form1 | |
|
Caption |
输入对话框示例程序 |
| |
|
TextBox控件 |
(Name) |
Text1 | |
|
Text |
3.141592653589 |
| |
|
TextBox控件 |
(Name) |
Text2 | |
|
Text |
待输入数据 |
| |
|
TextBox控件 |
(Name) |
Text3 | |
|
Text |
计算结果 |
| |
|
CommandButton控件 |
(Name) |
Command1 | |
|
Caption |
输入数据 |
| |
|
Label控件 |
(Name) |
Label2 | |
|
Caption |
* |
| |
|
Label控件 |
(Name) |
Label1 | |
|
Caption |
= |
| |
添加控件后的窗体如图3-2所示。
图3-2 添加控件后的窗体
2．添加代码
首先进行程序的初始化工作，在窗体的设计阶段双击窗体，在窗体的声明模块中定义一个全局变量。
Dim number1 As Double
'定义一个全局变量
添加窗体的初始化代码，在窗体的代码窗口中找到窗体的Form_Load()事件，并且在其中添加初始化变量的代码如下：
Private Sub Form_Load()
Number = 0
'变量初始化
End Sub
最后添加相应CommandButton控件动作的代码，在控件“输入数据”按钮的Command1_Click()事件中添加下列代码：
Private Sub Command1_Click()
Number = InputBox("请输入一个有效的数字变量值：", "输入数据", 0)
'显示一个输入对话框
Text2.Text = Number
Text3.Text = Number * Text1.Text
'显示运算结果
End Sub
3．运行程序
存储文件，按键盘上的功能键F5运行程序，程序运行的初始画面如图3-3所示。
图3-3 程序运行的初始画面
单击“输入数据”按钮，就会弹出一个等待用户输入一个有效的数字的对话框，如图3-4所示。
图3-4 输入对话框