第5章对话框和菜单要点.ppt

应用举例 [例5-5] 设计一个菜单，使它能画出一些几何图形，并能改变图形的颜色，字体的尺寸，并具有清除功能。 本章小结 程序主要功能就是处理信息，需要输入数据、输出信息，对话框为程序和用户的交互提供了有效的途径：用户可以自己定义对话框；可利用系统提供的CommonDialog控件进行操作；VB还提供了消息框和输入对话框。 在Windows环境中，几乎所有的应用软件都提供菜单，并通过菜单来实现各种操作。VB中，在“菜单编辑器”中能够非常方便、高效、直观地建立菜单。 * 在对话框中显示消息，等待用户单击按钮，并返回一个 Integer 告诉用户单击哪一个按钮。 语法 MsgBox(prompt[, buttons] [, title] [, helpfile, context]) MsgBox 函数的语法具有以下几个命名参数： 部分 描述 prompt 必要。字符串表达式，作为显示在对话框中的消息。prompt 的最大长度大约为 1024 个字符，由所用字符的宽度决定。如果 prompt 的内容超过一行，则可以在每一行之间用回车符 (Chr(13))、换行符 (Chr(10)) 或是回车与换行符的组合 (Chr(13) Chr(10)) 将各行分隔开来。 buttons 可选。数值表达式是值的总和，指定显示按钮的数目及形式，使用的图标样式，缺省按钮是什么以及消息框的强制回应等。如果省略，则 buttons 的缺省值为 0。 title 可选。在对话框标题栏中显示的字符串表达式。如果省略 title，则将应用程序名放在标题栏中。 helpfile 可选。字符串表达式，识别用来向对话框提供上下文相关帮助的帮助文件。如果提供了 helpfile，则也必须提供 context。 context 可选。数值表达式，由帮助文件的作者指定给适当的帮助主题的帮助上下文编号。如果提供了 context，则也必须提供 helpfile。 * 设置值 buttons 参数有下列设置值： 常数 值 描述 vbOKOnly 0 只显示 OK 按钮。 VbOKCancel 1 显示 OK 及 Cancel 按钮。 VbAbortRetryIgnore 2 显示 Abort、Retry 及 Ignore 按钮。 VbYesNoCancel 3 显示 Yes、No 及 Cancel 按钮。 VbYesNo 4 显示 Yes 及 No 按钮。 VbRetryCancel 5 显示 Retry 及 Cancel 按钮。 VbCritical 16 显示 Critical Message 图标。 VbQuestion 32 显示 Warning Query 图标。 VbExclamation 48 显示 Warning Message 图标。 VbInformation 64 显示 Information Message 图标。 VbDefaultButton1 0 第一个按钮是缺省值。 VbDefaultButton2 256 第二个按钮 是缺省值。 VbDefaultButton3 512 第三个按钮是缺省值。 VbDefaultButton4 768 第四个按钮是缺省值。 * 返回值 常数 值 描述 vbOK 1 OK vbCancel 2 Cancel vbAbort 3 Abort vbRetry 4 Retry vbIgnore 5 Ignore vbYes 6 Yes vbNo 7 No * Private Sub cmdload_Click() pw$ = myprogram Title$ = 密码校对框 info1$ = 你输入的密码不正确 b$ = LCase(Trim$(Text1.Text)) If b$ = pw$ Then frmnext.Show Else answer = MsgBox(info1$, 5 + 16 + 256, Title$) If answer = 2 Then’ 表示单击取消按钮 End End If If answer = 4 Then’表示单击确定按钮 Text1.Text = Text1.SetFocus Exit Sub End If End If End Sub * InputBox 函数的语法具有以下几个命名参数： 部分 描述 prompt 必要。作为对话框消息出现的字符串表达式。prompt 的最大长度大约是 1024 个字符，由所用字符的宽度决定。如果 prompt 包含多个行，则可在各行之间用回车符 (Chr(13)