测量平差程序设计第2版-人机交互式输入和输出

2025-09-30 理论教育版权反馈

【摘要】：消息对话框如图1.12所示。Msg是一字符串或字符型变量，字符串长度≤1024个字符，其值显示在消息对话框中。缺省时，标题栏显示应用程序名。作为无输入时的返回默认值。文本框中输入的字符默认最多为2048个。

1.消息对话框

VB自带Msgbox（）函数，其功能是弹出一消息对话框，提示用户并等待用户操作。点击“确定”按钮后，程序继续执行后面的语句。消息对话框如图1.12所示。

pagenumber_ebook=40,pagenumber_book=33

图1.12　对话框

Msgbox（）函数语法结构为：

MsgBox（<提示字符串msg> [，<图标按钮类型值type>] [，<标题字符串title>]…）

功能：按指定格式，输出一个含＜提示字符串＞的对话框，对用户进行提示。

参数说明：

（1）＜提示字符串＞。

Msg是一字符串或字符型变量，字符串长度≤1024个字符，其值显示在消息对话框中。字符串在一行内不能完全显示时，若要分行显示应在分行处用“＋”或“&”连接Chr（13）（回车符）、Chr（10）（换行符）或二者组合。

（2）图标按钮类型值。

Type是一个整数值，是分别表示按钮类型、图标种类和按钮位置的三类值的和，用来控制对话框中显示的按钮、图标的种类和数量。

各种类型的值表示内容为：

第一组值（0～5）：

0：只显示“确定”按钮（OK）；

1：显示“确定”和“取消”按钮（OK，Cancel）；

2：显示“终止（Abort）”、“重试（Retry）”、“忽略（Ignore）”按钮；

3：显示“是（Yes）”、“否（No）”、“取消（Cancel）”按钮；

4：显示“是（Yes）”、“否（No）”按钮；

5：显示“重试（Retry）”、“取消（Cancel）”按钮。

第二组值（16，32，48，64）：

16：显示图标表示错误批评；

32：显示图标表示疑问；

48：显示图标表示警告；

64：显示图标表示信息资料。

第三组值（0，256，512，768）：

0：表示第一个按钮为缺省活动按钮；

256：表示第二个按钮为缺省活动按钮；

512：表示第三个按钮为缺省活动按钮；

768：表示第四个按钮为缺省活动按钮。

（注：每组最多只能取一个数值，相加产生类型值总和。）

（3）单击不同按钮后，MsgBox的返回值。

1：单击“确定（OK）”；

2：单击“取消（Cancel）”；

3：单击“终止（Abort）”；

4：单击“重试（Retry）”；

5：单击“忽略（Ignore）”；(https://www.chuimin.cn)

6：单击“是（Yes）”；

7：单击“否（No）”。

（4）标题字符串title。

title值决定消息对话框标题栏中显示的内容，可以直接输入，也可以是字符串表达式。缺省时，标题栏显示应用程序名。

2.输入对话框

VB自带InputBox函数，可弹出一对话框，用于在程序运行中，让用户输入一些文本信息。如图1.13所示即为InputBox对话框。

pagenumber_ebook=41,pagenumber_book=34

图1.13　InputBox对话框

InputBox函数语法结构为：

InputBox（<提示字符串>［，<标题字符串>］［，<文本框显示的缺省值>］［，x］［，y］）

功能：显示一个含＜提示字符串＞的对话框，让用户在文本框中输入文本信息，单击“确定”或按回车键，则返回文本框内容，单击“取消”则返回一个空串。

参数说明：

（1）提示字符串：

为一字符串或字符串变量、表达式。

（2）标题字符串：

决定对话框标题栏显示的内容，缺省时，标题栏显示应用程序名。

（3）文本框显示的缺省值：

决定了文本框初始显示并被选中的文本内容。作为无输入时的返回默认值。缺省时文本框为空。

（4）x：

对话框与屏幕左边缘的距离，缺省时对话框呈水平居中状态。

（5）y：

对话框上边与屏幕上边缘的距离，缺省时对话框显示在垂直下1/3的位置。

3.公共对话框

公共对话框不是VB标准控件，它属于VB专业版和企业版特有的ActiveX控件，位于文件：C：\Windows\system\Comdlg32.ocx中。引用公共对话框只需点击菜单“工程＼部件＼控件”进入图1.14所示窗口后，勾选“Microsoft Common Dialog Control 6.0”后，点击“确定”按钮即可。

pagenumber_ebook=42,pagenumber_book=35