テキストボックス入力時のビープ音を消すには？ (ID:75303)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 ちくちくやれば音のなくすこともできますよ。 Private Sub Text1_KeyPress(KeyAscii As Integer) Dim MaxLen As Long MaxLen = 10 If Len(Text1.Text) = MaxLen And KeyAscii <> 8 Then KeyAscii = 0 End Sub Sayさんのコードと一緒にして下さい。 ここではデリートとバックスペースの機能が保持されます。 上書きには対応していないのでご注意下さい。