前のトピック: ClearScreen または ClrScr - 画面のクリア次のトピック: MessageBox または MsgBox - メッセージ ボックス ウィンドウの表示


InputBox - メッセージ ボックス ウィンドウの作成、表示、および操作

Windows および Windows CE で有効です。

InputBox 関数はメッセージ ボックスを作成、表示、および操作します。 メッセージ ボックスにはアプリケーションで定義されたプロンプト、タイトル、およびアプリケーションで定義されたデフォルト値が入ったテキスト ボックス、さらに[OK]ボタンや[キャンセル]ボタンが含まれます。

このその他の関数の形式は、以下のとおりです。

InputBox(
	prompt as String,
	title as String,
	default as String) as Boolean
prompt

表示するプロンプトを示します。

タイトル

メッセージ ボックスのタイトルを指定します。

default

デフォルト プロンプト入力を指定します。 デフォルトが変数でない場合は、構文エラーが表示されます。

注: 入力ボックスが前面に配置されていません。

[OK]ボタンを選択した場合は、True が返され、テキスト ボックスの内容がデフォルト変数にコピーされます。 [キャンセル]ボタンを選択した場合は、False が返され、デフォルト変数は変更されません。

例: InputBox 関数

以下に、InputBox の使用例を示します。

Dim TargetPath, Question as string

TargetPath=WindowsDir

Question="Please specify the directory to use for installation"
if InputBox(Question,"Install",TargetPath) then

	 ' Place code for actual installation here...

	 MessageBox("Installation completed")
else
	 MessageBox("Installation aborted")
End if

End: