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

名前

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

本文 全角にしたでけでも消えてしまうので、KeyDownのところを 次のようにしてみて下さい。 Dim Start&, Elen&, I As Integer, FG As Byte Dim Key(255) As Byte FG = 0 GetKeyboardState Key(0) For I = 48 To 56 If Key(I) And 128 Then FG = FG Or 128 Next For I = 65 To 90 If Key(I) And 128 Then FG = FG Or 128 Next For I = 186 To 192 If Key(I) And 128 Then FG = FG Or 128 Next For I = 219 To 222 If Key(I) And 128 Then FG = FG Or 128 Next If Key(226) And 128 Then FG = FG Or 128 If (Key(16) And 128) And FG Then GoTo Jump If ((Key(242) And 128) And FG) - 128 Then Exit Sub Jump: Start = Text1.SelStart Elen = Text1.SelLength Text1.Text = Left$(Text1.Text, Start) + Mid$(Text1.Text, Start + Elen + 1) Text1.SelStart = Start