格式: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