投稿日 | : 2004/03/05(Fri) 12:19 |
投稿者 | : nanashi |
Eメール | : |
URL | : |
タイトル | : Re: strConvについて |
Textが変わるときにSelStartがリセットされてるからですね。
↓こんな感じでいかがでしょう?
Private Sub Text1_Change()
Dim lPos As Long
Static bNowConv As Boolean
If bNowConv Then Exit Sub
bNowConv = True
With Text1
lPos = .SelStart
.Text = StrConv(.Text, vbNarrow)
.SelStart = lPos
End With
bNowConv = False
End Sub