テキストボックスで３文字ごとに「＠」を表示させるには？

質問

VisualBasicで作成したテキストボックスに文字が入力される時に、３文字入力される度に、「＠」を表示させる方法を教えてください。

例）ＡＢＣ＠ＤＥＦ＠１２３＠

のような感じです。

回答No.1

maruru01 · ベストアンサー

こんにちは。maruru01です。

Text1のChangeイベントに、

Private Sub Text1_Change()

　　With Text1
　　　　If Len(.Text) Mod 4 = 3 Then
　　　　　　.Text = .Text & "@"
　　　　　　.SelStart = Len(.Text)
　　　　End If
　　End With

End Sub

という感じです。
ただし、"@"をBSで消せないとかいろいろあるので、適当に修正して下さい。

お礼

ご回答ありがとうございます。
＠が消せないので、少し苦労しましたが、何とか
クリアしました。
ありがとうございました。

回答No.2

todo36

Masked EditまたはInputManを使うとか

お礼

Masked Edit、InputManを使うとできるのでしょうか？勉強してみたいと思います。
ありがとうございました。