カテゴリー
SugiBlog Webエンジニアのためのお役立ちTips

InputBoxのキャンセル

この記事は最終更新日から1年以上経過しています。

VisualBasicでInputBoxを使う際、キャンセルされた時は長さ0の文字列を返しますが、何も入力せずOKを押した時も同様に長さ0の文字列が返ってきます。

キャンセルの判定をして、それに伴った処理をしたい場合に困ってしまいます。
そんな時には以下のようにするとキャンセルの判定ができます。

Dim ans As String       'InputBoxの戻り値
Dim boolFlag As Boolean '判定フラグ
boolFlag = False
Do Until boolFlag = True
    ans = InputBox("入力してください")
    If StrPtr(ans) = 0 Then Exit Sub 'キャンセル時に終了
    boolFlag = True
Loop
この記事がお役に立ちましたらシェアお願いします
2,597 views

コメントを残す

メールアドレスが公開されることはありません。 が付いている欄は必須項目です