InputBox 函式 (Visual Basic)

更新：2007 年 11 月

在對話方塊中顯示提示、等候使用者輸入文字或按一下按鈕，然後傳回包含文字方塊內容的字串。

Public Function InputBox( _
   ByVal Prompt As String, _
   Optional ByVal Title As String = "", _
   Optional ByVal DefaultResponse As String = "", _
   Optional ByVal Xpos As Integer = -1, _
   Optional ByVal YPos As Integer = -1 _
) As String

參數

• Prompt
  必要項。顯示為對話方塊中訊息的 String 運算式。視使用的字元寬度而定，Prompt 的最大長度大約是 1024 個字元。如果 Prompt 包含多行，則可在每一行之間使用歸位字元 (Carriage Return Character) (Chr(13))、換行字元 (Chr(10)) 或歸位字元/換行字元組合 (Chr(13) & Chr(10)) 來分隔行。

• Title
  選擇項。顯示在對話方塊標題列中的 String 運算式。如果省略 Title，則會將應用程式名稱放置在標題列中。

• DefaultResponse
  選擇項。在未提供其他輸入的情況下，在文字方塊中顯示為預設回應的 String 運算式。如果省略 DefaultResponse，則顯示的文字方塊是空的。

• XPos
  選擇項，數值運算式 (Numeric Expression)，指定從螢幕左邊緣到對話方塊左邊緣的距離 (以像素計)。如果省略 XPos 和 YPos，則會將對話方塊置於螢幕中央。

• YPos
  選擇項，數值運算式，指定從螢幕上緣到對話方塊上緣的距離 (以像素計)。如果省略 XPos 和 YPos，則會將對話方塊置於螢幕中央。

備註

如果使用者按一下 [取消]，則會傳回長度為零的字串。

若要指定第一個引數之外的引數，則必須在運算式中使用 InputBox 函式。如果省略任何位置引數，則必須保留對應的逗號分隔符號。

注意事項：
InputBox 函式在 SafeTopLevelWindows 層級需要 UIPermission，而這可能會在部分信任的情況下影響其執行。如需詳細資訊，請參閱要求使用權限和 UIPermission 類別。

範例

這個範例將說明使用 InputBox 函式來提示使用者輸入值的幾種方式。如果省略 x 和 y 位置，則會將對話方塊自動置於兩軸的中央。如果使用者按一下 [確定] 或按 ENTER 鍵，變數 MyValue 會包含使用者輸入的值。

Dim message, title, defaultValue As String
Dim myValue As Object
' Set prompt.
message = "Enter a value between 1 and 3"
' Set title.
title = "InputBox Demo"
defaultValue = "1"   ' Set default value.

' Display message, title, and default value.
myValue = InputBox(message, title, defaultValue)
' If user has clicked Cancel, set myValue to defaultValue
If myValue Is "" Then myValue = defaultValue

' Display dialog box at position 100, 100.
myValue = InputBox(message, title, defaultValue, 100, 100)
' If user has clicked Cancel, set myValue to defaultValue
If myValue Is "" Then myValue = defaultValue

需求

命名空間 (Namespace)︰Microsoft.VisualBasic

**模組︰**Interaction

組件：Visual Basic Runtime Library (在 Microsoft.VisualBasic.dll 中)

請參閱

參考

MsgBox 函式 (Visual Basic)

Chr、ChrW 函式