inputbox
Visual Basic和VBS中的函數
InputBox是Visual Basic和VBS中的一種函數,功能是彈出一個對話框,在其中顯示提示,等待用戶輸入文字並按下按鈕,然後返回用戶輸入的文字。
InputBox函數效果
InputBox(Prompt,[Title],[Default],[XPos],[YPos],[Helpfile],[Context])
InputBox函數參數 | |
---|---|
部分 | 描述 |
Prompt | 必需的。作為對話框消息出現的字元串表達式。Prompt的最大長度大約為1024個字元,由所用字元的寬度決定。如果Prompt的內容超過一行,則可以在每一行之間用回車符(Chr(13))、換行符(Chr(10))或是回車與換行符的組合(Chr(13) & Chr(10),即vbCrLf)將各行分隔開來。 |
Title | 可選的。顯示對話框標題欄中的字元串表達式。如果省略,則把應用程序名放入標題欄中。 |
Default | 可選的。顯示文本框中的字元串表達式,在用戶輸入前作為預設值。如果省略,則文本框為空。 |
XPos | 可選的。數值表達式, 與YPos一起出現,指定對話框的左邊與屏幕左邊的水平距離。如果省略,則對話框會在水平方向居中。 |
YPos | 可選的。數值表達式, 與XPos一起出現,指定對話框的頂端與屏幕頂端的距離。如果省略,則對話框被放置在屏幕垂直方向距底端大約三分之一的位置。 |
Helpfile | 可選的。字元串表達式,識別用來向對話框提供上下文相關幫助的幫助文件。如果提供了Helpfile,則也必須提供Context。 |
Context | 可選的。數值表達式,由幫助文件的作者指定給適當的幫助主題的幫助上下文編號。如果提供了Context,則也必須提供Helpfile。 |
如果同時提供了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