VBの上書きモードで全角文字を入力するには？ (ID:76303)

名前

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

本文 では次の様にしてみてはどうでしょうか。 宣言プロシージャで Private Declare Function GetKeyboardState Lib "user32" (pbKeyState As Byte) As Long を追加し、KeyDownイベントで Dim Start&, Elen& Dim Key(255) As Byte GetKeyboardState Key(0) If (Key(37) And 128) Or (Key(38) And 128) Or (Key(39) And 128) _ Or (Key(40) And 128) Then Exit Sub End If Start = Text1.SelStart Elen = Text1.SelLength Text1.Text = Left$(Text1.Text, Start) + Mid$(Text1.Text, Start + Elen + 1) Text1.SelStart = Start を追加してみてください。 もし他のキー入力を無効にしたいなら If文のところで ．．．Or (Key("無効にしたいキーコード") And 128) を追加していけばよいと思います。