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 に指定できる最大文字数は、1 バイト文字で約 1,024 文字です。ただし、使用する文字の文字幅に依存します。Prompt が複数の行から成る場合、復帰文字 (Chr(13))、ライン フィード文字 (Chr(10))、復帰/ライン フィードの組み合わせ (Chr(13) & Chr(10)) を行の間に使用して、行を分割できます。

  • Title
    省略できます。ダイアログ ボックスのタイトル バーに表示する文字列 (String) 式を指定します。Title を省略すると、タイトル バーにはアプリケーション名が表示されます。

  • DefaultResponse
    省略できます。ユーザーが何も入力しない場合に、テキスト ボックスに既定値として表示する文字列 (String) 式を指定します。DefaultResponse を省略すると、テキスト ボックスには何も表示されません。

  • XPos
    省略可能です。画面の左端からダイアログ ボックスの左端までの距離をピクセル単位で示す数式を指定します。XPos と YPos を省略すると、ダイアログ ボックスは画面の中央に配置されます。

  • YPos
    省略可能です。画面の上端からダイアログ ボックスの上端までの距離をピクセル単位で示す数式を指定します。XPos と YPos を省略すると、ダイアログ ボックスは画面の中央に配置されます。

解説

[キャンセル] がクリックされると、長さ 0 の文字列が返されます。

Prompt 以外の引数も指定する場合は、式の中で InputBox 関数を使用する必要があります。引数を省略する場合も、それに対応する位置にコンマ区切り記号は残します。

6z0ak68w.alert_note(ja-jp,VS.90).gifメモ :

InputBox 関数には SafeTopLevelWindows レベルの UIPermission が必要です。ただし、部分的に信頼されている状況でこの許可を使用すると、プログラムの実行に影響を及ぼす場合があります。詳細については、「アクセス許可の要求」と「UIPermission クラス」を参照してください。

使用例

次の例は、InputBox 関数を使って、ユーザーに値を入力させます。位置 x と y の指定を省略すると、ダイアログ ボックスは、水平軸および垂直軸に対して中央に自動的に配置されます。[OK] がクリックされるか、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

必要条件

名前空間 : Microsoft.VisualBasic

モジュール : Interaction

**アセンブリ :**Visual Basic ランタイム ライブラリ (Microsoft.VisualBasic.dll)

参照

参照

MsgBox 関数 (Visual Basic)

Chr 関数、ChrW 関数