InputBox是Visual Basic和VBS中的一種函式,功能是彈出一個對話框,在其中顯示提示,等待用戶輸入文字並按下按鈕,然後返回用戶輸入的文字。
基本介紹
- 外文名:inputbox
- 釋義:Visual Basic和VBS中的函式
- 語法:(Prompt[, Title] 等)
- 參數:Prompt等
- 類別:函式
簡介,使用方法,語法,參數,說明,代碼示例,
簡介
InputBox是Visual Basic和VBS中的函式,功能是彈出一個對話框,在其中顯示提示,等待用戶輸入文字並按下按鈕,然後返回用戶輸入的文字。右圖就是InputBox函式的效果,其中展示了InputBox函式的三個重要參數Prompt、Title和Default的位置。該函式與MsgBox函式類似,區別就是InputBox函式用於簡單地接受用戶輸入的一些文本。
使用方法
語法
InputBox(Prompt,[Title],[Default],[XPos],[YPos],[Helpfile],[Context])
參數
部分 | 描述 |
---|---|
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
Private Sub Command1_Click()
Dim a As String, b As String
a = InputBox("輸入第一個數據:")
b = InputBox("輸入第二個數據:")
MsgBox a & b
End Sub