03 VB基础(续).ppt

1、InputBox函数,InputBox函数提供一个简单的对话框供用户输入信息。它的完整语法是： x = InputBox (prompt, title, default, xpos, ypos, helpfile, context) 其中，prompt是提示的字符串，这个参数是必须的。title是对话框的标题，是可选的。default是正文框里的缺省值，也是可选的。xpos，ypos决定输入框的位置。helpfile，context用于显示与该框相关的帮助屏幕。返回值 x 将是用户在正文框里输入的数据，x是一个字符串类型的值。如果用户按了Cancel钮，则 x 将为空字符串。,Dim Mess

2、age, Title, Default, MyValue Message = Enter a value between 1 and 3“ 设置提示信息。 Title = “InputBox Demo” 设置标题。 Default = “1” 设置缺省值。 显示信息、标题及缺省值。 MyValue = InputBox(Message, Title, Default) 使用帮助文件及上下文。“帮助”按钮便会自动出现。 MyValue = InputBox(Message, Title, , , , DEMO.HLP, 10) 在 100, 100 的位置显示对话框。 MyValue = Inp

3、utBox(Message, Title, Default, 100, 100),MsgBox 函数,在对话框中显示消息，等待用户单击按钮，并返回一个 Integer 告诉用户单击哪一个按钮。 语法 MsgBox(prompt, buttons , title , helpfile, context) Prompt必需的。作为显示在对话框中的消息。 Buttons可选的。指定显示按钮的数目及形式，使用的图标样式 Title可选的。在对话框标题栏中显示的字符串表达式。,vbOKOnly 0只显示 OK 按钮。 VbOKCancel 1 显示 OK 及 Cancel 按钮。 VbAbortRetr

4、yIgnore2显示 Abort、Retry 及 Ignore 按钮。 VbYesNoCancel3显示 Yes、No 及 Cancel 按钮。 VbYesNo4显示 Yes 及 No 按钮。 VbRetryCancel5显示 Retry 及 Cancel 按钮。 VbCritical16显示 Critical Message 图标。 VbQuestion32显示 Warning Query 图标。 VbExclamation48显示 Warning Message 图标。 VbInformation64显示 Information Message 图标。,实例,Dim Msg, Style,

5、 Title, Help, Ctxt, Response, MyString Msg = “Do you want to continue ?” 定义信息。 Style = vbYesNo + vbCritical + vbDefaultButton2 定义按钮。 Title = “MsgBox Demonstration” 定义标题。 Help = “DEMO.HLP” 定义帮助文件。 Ctxt = 1000 定义标题 上下文。 显示信息。 Response = MsgBox(Msg, Style, Title, Help, Ctxt) If Response = vbYes Then 用户按下“是”。 MyString = “Yes” 完成某操作。 Else 用户按下“否”。 MyString = “No” 完成某操作。 End