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

名前

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

本文 通常はこれで大丈夫だと思います。(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) Or (Key(28) And 128) Or (Key(29) And 128) Or (Key(16) And 128) Or (Key(17) And 128) Or (Key(18) And 128) Or (Key(91) 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