InputBox 函数和 MsgBox 函数

InputBox 函数

在一对话框来中显示提示，等待用户输入正文或按下按钮，并返回包含文本框内容的String 。

语法

InputBox(prompt[, title] [, default] [, xpos] [, ypos] [, helpfile, context])

InputBox 函数的语法具有以下几个命名参数：

部分	描述
Prompt	必需的。作为对话框消息出现的字符串表达式（即提示信息）。prompt 的最大长度大约是 1024 个字符，由所用字符的宽度决定。如果 prompt 包含多个行，则可在各行之间用回车符 (Chr(13))、换行符 (Chr(10)) 或回车换行符的组合 (Chr(13) & Chr(10)) 来分隔。
Title	可选的。显示对话框标题栏中的字符串表达式。如果省略 title，则把应用程序名放入标题栏中。
Default	可选的。显示文本框中的字符串表达式，在没有其它输入时作为缺省值。如果省略 default，则文本框为空。
Xpos	可选的。数值表达式，成对出现，指定对话框的左边与屏幕左边的水平距离。如果省略 xpos，则对话框会在水平方向居中。
Ypos	可选的。数值表达式，成对出现，指定对话框的上边与屏幕上边的距离。如果省略 ypos，则对话框被放置在屏幕垂直方向距下边大约三分之一的位置。
Helpfile	可选的。字符串表达式，识别帮助文件，用该文件为对话框提供上下文相关的帮助。如果已提供 helpfile，则也必须提供 context。
Context	可选的。数值表达式，由帮助文件的作者指定给某个帮助主题的帮助上下文编号。如果已提供 context，则也必须要提供 helpfile。

说明

如果同时提供了 helpfile 与 context，用户可以按 F1 来查看与 context 相应的帮助主题。某些主应用程序，例如，Microsoft Excel，会在对话框中自动添加一个 Help 按钮。如果用户单击 OK 或按下ENTER ，则 InputBox 函数返回文本框中的内容。如果用户单击 Cancel，则此函数返回一个长度为零的字符串 ("")。

注意 如果还要指定第一个命名参数以外的参数，则必须在表达式中使用 InputBox。如果要省略某些位置参数，则必须加入相应的逗号分界符。

InputBox 函数示例

本示例说明使用 InputBox 函数来显示用户输入数据的不同用法。如果省略 x 及 y 坐标值，则会自动将对话框放置在两个坐标的正中。如果用户单击“确定”按钮或按下“ENTER”按键，则变量 MyValue 保存用户输入的数据。如果用户单击“取消”按钮，则返回一零长度字符串。

  
    

   
      1
   
     
   
     Dim
   
      Message, Title, 
   
     Default
   
     , MyValue

   
      2
   
     Message 
   
     =
   
      
   
     "
   
     Enter a value between 1 and 3
   
     "
   
        
   
     '
   
      设置提示信息。
   
     

   
      3
   
     
   
     Title 
   
     =
   
      
   
     "
   
     InputBox Demo
   
     "
   
                          
   
     '
   
      设置标题。
   
     

   
      4
   
     
   
     Default
   
      
   
     =
   
      
   
     "
   
     10
   
     "
   
                                   
   
     '
   
      设置缺省值。
   
     

   
      5
   
     '
   
      显示信息、标题及缺省值。
   
     

   
      6
   
     
   
     MyValue 
   
     =
   
      
   
     InputBox
   
     (Message, Title, 
   
     Default
   
     )

   
      7
   
     

   
      8
   
     
   
     '
   
      使用帮助文件及上下文。“帮助”按钮便会自动出现。
   
     

   
      9
   
     
   
     MyValue 
   
     =
   
      
   
     InputBox
   
     (Message, Title, , , , 
   
     "
   
     DEMO.HLP
   
     "
   
     , 
   
     10
   
     )

   
     10
   
     

   
     11
   
     
   
     '
   
      在 100, 100 的位置显示对话框。
   
     

   
     12
   
     
   
     MyValue 
   
     =
   
      
   
     InputBox
   
     (Message, Title, 
   
     Default
   
     , 
   
     100
   
     , 
   
     100
   
     )