| 投稿日 | ： 2006/12/15(Fri) 15:23 |
| 投稿者 | ： たろ |
| Ｅメール | ： |
| ＵＲＬ | ： |
| タイトル | ： Re: Changeイベントでテキストボックスを変換 |
汎用性はないと思いますが、「KeyPress」時でもできます。
Private Sub Text1_KeyPress(KeyAscii As Integer)
If Len(Me.Text1) = 0 Then
KeyAscii = Asc(UCase(Chr(KeyAscii)))
Else
KeyAscii = Asc(LCase(Chr(KeyAscii)))
End If
End Sub
でも、質問はChangeイベントで・・・って書かれていたから、るしぇさんが言われたようにSelStart プロパティで設定するしかないですかね・・・
答えになってなくてすみません。