VisualBasic程序设计（第2版）第5章与用户对话.pdfVIP

第5章 与用户对话  5.1 输入对话框  5.2 消息对话框  5.3 通用对话框  5.4 自定义对话框  5.5 本章小结  5.6 上机实训 结束 5.1 输入对话框（1） 利用输入框函数InputBox通过输入对话框输入 数据，只需一行代码即可实现输入窗体的功能。 格式： InputBox （提示信息[，对话框标题][，默认 值][，X，Y]） 该函数的功能是产生一个对话框，作为输入数 据的界面，等待用户输入并返回所输入的内容。 函数中各参数的作用如下： 5.1 输入对话框（2） 提示信息 ：字符串表达式，在对话框内显示提示信 息，最大长度为1024个字符。如果包含多行，可以在各行 之间用回车符Chr(13)、换行符Chr(10)或回车换行符的组 合Chr(13) Chr(10)来分隔，对应的VB常数分别为 vbCr、vbLf和vbCrLf。 对话框标题：字符串表达式，显示在标题栏中作为对 话框的标题。若省略，则默认为当前工程的名称。 默认值：字符串表达式，显示在对话框的文本框中， 在没有其他输入时作为默认输入值使用。默认为空。 X、Y：均为数值表达式，分别指定对话框左边和上边 与屏幕左边和上边的距离，单位为缇（twip）。如果省 略，对话框在水平方向居中，垂直方向约为屏幕的上三分 之一处显示。X和Y应成对出现，否则无效。 5.1 输入对话框（3） 说明： （1）在对话框中，如果用户选择了【确定】按钮，则 InputBox函数返回文本框中所有内容；如果选择了【取 消】按钮，则函数返回零长度的字符串。 （2）除提示信息外，其他参数均为可选参数。如果指定 了后面的参数而省略前面的参数，则必须保留前面的逗 号。例如：strNo = InputBox(输入编号， ，001)。 （3）使用InputBox函数一次只能输入一个数据。如果要 输入多个数据，则必须多次使用该函数。 【例5.1】通过InputBox函数输入两个数字存入变量a、 b，然后将其互换。 在窗体上添加一个命令按钮，设Caption为“输入数字” 。 按钮单击事件代码如下： Private Sub Command1_Click() Dim a, b, t Cls a = Val(InputBox(请输入 a :, 输入数字)) b = Val(InputBox(请输入 b :, 输入数字)) Print 交换前 : a =; a; , b =; b t = a: a = b: b = t 交换 Print 交换后 : a =; a; , b =; b End Sub 运行结果如图5.1所示，左图为InputBox函数生成的对话框，右图为窗体 显示结果。 图5.1 InputBox函数示例 返回首页 5.2 消息对话框 5.2.1 MsgBox函数 5.2.2 MsgBox语句 返回首页 5.2.1 MsgBox函数 该函数能够在对话框中显示信息，等待用户选择按钮，并返 回一个整数指明用户单击了哪个按钮。语法格式如下： 变量 = MsgBox （提示信息[，按钮] [，对话框标题] 参数说明： 提示信息和对话框标题参数的作用与InputBox函数的对 应参数相同。 按钮参数为数值表达式，是可选项，用来控制在对话框内 显示的按钮种类和数量以及图标类型。该参数的值由四类数 值相加产生，这四类数值分别表示按钮的类型、显示图标的 种类、默认按钮的位置和消息框的强制返回特征，如表5.1 所示。 表5.1 “按钮”参数的设置值及意义 “按钮”参数由上面四类数值相加组成，其组成原则是：从