🚀 go-pugleaf

RetroBBS NetNews Server

Inspired by RockSolid Light RIP Retro Guy

🏠 Home 📰 News 🗂️ Usenet Search 🔑 Login 📝 Register
Article View: fj.lang.visualbasic
Article #870
Back to fj.lang.visualbasic Previous Next

Re: [Q]テキストコントロールでの上書 きモードの方法

#870
From: 長久保
Date: Fri, 30 Jan 1998 00:00
27 lines
1366 bytes 
こんにちは　よろずや 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

こんな感じかな？　試してないけど
Technical Details
Message-ID: <6aslqt$g6t$1@horse.fsinet.or.jp>
Path: arc1-ca.pugleaf.net!unknown!not-for-mail
References: <6aphci$o53$1@ptop03.ptop.ad.jp> <6ar4lc$sa6$1@cad10.bpr.oki.co.jp> <6arl36$q56$1@ptop03.ptop.ad.jp>

Show Full Headers
Complete Article Headers 
X-Google-Language: Japanese,JIS
X-Google-Thread: 105c2e,56898ba6684a3fb9
X-Google-Attributes: gid105c2e,public
From: "長久保" <kin-chan@fsinet.or.jp>
Subject: Re: [Q]テキストコントロールでの上書  きモードの方法
Date: 1998/01/30
Message-ID: <6aslqt$g6t$1@horse.fsinet.or.jp>
X-Deja-AN: 320562133
Content-Transfer-Encoding: 8bit
References: <6aphci$o53$1@ptop03.ptop.ad.jp> <6ar4lc$sa6$1@cad10.bpr.oki.co.jp> <6arl36$q56$1@ptop03.ptop.ad.jp>
Mime-Version: 1.0
Content-Type: text/plain; charset=ISO-2022-JP
Organization: The FSI Network
Newsgroups: fj.lang.visualbasic
Reply to Parent Message