White Tiger

MaskEdBox コントロールのテキストを消去する方法

◆概要


このページは、Visual Basic 6.0でMaskEdBox コントロールのテキストを消去する方法について記載しています。


MaskEdBoxコントロールのテキストを消去するには、コントロールの マスク プロパティ に空の文字列を設定し、テキストプロパティに空の文字列を設定します。 そのあとに、マスクプロパティを設定し直します。

次の例は、市外局番がない電話番号用の###-####が設定されているMaskEdBox1の入力マスクプロパティを市外局番ありの電話番語用の入力マスク###-###-####を設定しています。

Private Sub Command1_Click()
    MaskEdBox1.Mask = ""
    MaskEdBox1.Text = ""
    MaskEdBox1.Mask = "###-###-####"
    MaskEdBox1.SetFocus
End Sub

Private Sub Form_Load()
    MaskEdBox1.Mask = "###-####"
End Sub

◆実行結果

◆MaskEdBoxが空白かどうかを調べる方法


テキストボックスが空白かどうかを調べるときは、

if textBox1="" Then

ですが、MaskEdBoxの場合は、MaskEditBoxにマスク文字が含まれているので、そのマスク文字を指定します。

    If MaskEdBox1.Text = "___-___-____" Then
        MsgBox "MaskEdBox1は空白です。"
    End If

Link