| 投稿日 | ： 2006/12/15(Fri) 16:39 |
| 投稿者 | ： たろ |
| Ｅメール | ： |
| ＵＲＬ | ： |
| タイトル | ： Re^2: Changeイベントでテキストボックスを変換 |
> こんにちは。
>
> > Private Sub Text1_Change()
> Text1.Text = StrConv(Text1, vbProperCase)
> > End Sub
>
> では 駄目？
これでは、PE さんが言ったように、Text1_Changeイベント内でText1を更新しているから、結果下と同じでは？
> 「TOKYO」と入力したら「Tokyo」と変換
> したいのですが、どうしても、「Oykto」となってしまいます。
「LostFocus」「Validate」だったらＯＫですよね＾＾
もしくは、
Private Sub Text1_Change()
Me.Text1 = StrConv(Me.Text1, vbProperCase)
Me.Text1.SelStart = Len(Me.Text1)
End Sub