格式:InputBox(pronpt[,title][,default][,xpos,ypos]).其中的pronpt为窗口的提示词,title为输入窗口的标题,default为输入窗口的默认内容,xpos,ypos为窗口距离屏幕左边,上边的距离。
说明
如果同时提供了Helpfile与Context,用户可以按F1来查看与Context相应的帮助主题。某些主应用程序(支持使用Visual Basic for Applications的应用程序),例如Microsoft Excel,会在对话框中自动添加一个帮助按钮。如果用户单击确定或按下回车,则InputBox函数返回文本框中的内容。如果用户单击取消,则此函数返回一个长度为零的字符串("")。
在VB中,如果没有同时提供XPos和YPos,不会提示语法错误,但单独出现的XPos或YPos将被忽略,相当于省略了这两个参数。但在VBS中,单独出现的XPos或YPos会生效,但另一个没有确定的参数将使用默认值。
代码示例
‘程序的作用是用InputBox函数输入2个数据之后,把他们连接起来,用MsgBox函数显示。
Private Sub Command1_Click()
Dim a As String, b As String
a = InputBox("输入第一个数据:")
b = InputBox("输入第二个数据:")
MsgBox a & b
End Sub
时间: 2024-10-28 23:03:20