| 投稿日 | ： 2006/12/19(Tue) 16:25 |
| 投稿者 | ： たろ |
| Ｅメール | ： |
| ＵＲＬ | ： |
| タイトル | ： Re^8: Changeイベントでテキストボックスを変換 |
> 複数文字を入れようとすると、先頭の１文字のみがポインタ
> のある位置に入り残りすべてが、最後に入ってしまいます。
>
> どう対処すればいいですか。
るしぇ さん、ＹＫさん、琴さんのレスを統合するともっと簡単になるかも。
Private m_SyorityuFlag As Boolean '処理中フラグ
Private m_SelStart As Long 'SelStart退避
-------------------------------------------------
Private Sub Text1_Change()
If m_SyorityuFlag Then Exit Sub
m_SelStart = Text1.SelStart
m_SyorityuFlag = True
Text1.Text = StrConv(Text1, vbProperCase)
m_SyorityuFlag = False
Text1.SelStart = m_SelStart
End Sub