🚀 go-pugleaf

「Thu, 29 Jan 1998 18:19:10 +0900」頃
「<6aphci$o53$1@ptop03.ptop.ad.jp>」の記事
「[Q]テキストコントロールでの上書  きモードの方法」で
「"Koji Kubo" <koji@micras.ne.jp>」氏 wrote：

>　ＶＢ４で、テキストコントロールにカーソルが移ったときに
>カーソルを（一文字ずつの）上書きモードにするにはどうした
>らよいのでしょうか？もし、ＡＰＩコールなら、申し訳ありま
　↓

>Private Sub Text1_KeyPress(KeyAscii As Integer)
>   Text1.SelLength = 1
>End Sub

===================================================
Sirai@mcn.ne.jp
Datula → http://www.vector.co.jp/authors/VA012699/
===================================================

Sirai Kazuki さん、レスありがとうございます。

>
>>Private Sub Text1_KeyPress(KeyAscii As Integer)
>>   Text1.SelLength = 1
>>End Sub

　教えていただいた方法で、やってみたのですが、何故か１文
字反転状態にならなくて（上書きはできましたが）、また、
[Delete]キーなどで、間違えて削除した場合など、一時的に挿
入もしたいので、できれば、キーボードの[Insert]キーで上書
き／挿入モードが切り替えられて、その初期状態として、上書
きモードにできる方法はないでしょうか？
　わがままなお願いですがよろしくお願いします。

こんにちは　よろずや kin-chan　です

Koji Kubo <koji@micras.ne.jp> wrote in article
<6arl36$q56$1@ptop03.ptop.ad.jp>...
> Sirai Kazuki さん、レスありがとうございます。
> 
> >
> >>Private Sub Text1_KeyPress(KeyAscii As Integer)
> >>   Text1.SelLength = 1
> >>End Sub
> 

Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)
   Select Case KeyCode
      Case vbKeyBack, vbKeyDelete
         MyLength = 0
      Case vbKeyInsert
         MyLength = 1 - MyLength
   End Select
End Sub

Private Sub Text1_KeyUp(KeyCode As Integer, Shift As Integer)
   Text1.SelLength = MyLength
End Sub

こんな感じかな？　試してないけど

よろずや kin-chan　さん、レスありがとうございます。

>Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)
>   Select Case KeyCode
>      Case vbKeyBack, vbKeyDelete
>         MyLength = 0
>      Case vbKeyInsert
>         MyLength = 1 - MyLength
>   End Select
>End Sub
>
>Private Sub Text1_KeyUp(KeyCode As Integer, Shift As Integer)
>   Text1.SelLength = MyLength
>End Sub
>
>こんな感じかな？　試してないけど


参考になりました。あと、矢印キーや、MultiLineでの、行末制
御など、細かいところはいくつかあるのですが、色々やってみ
ます。ありがとうございました。