タイトル : Re^3: テキストボックスの3桁毎のカンマ表示 投稿日 : 2008/07/02(Wed) 15:56 投稿者 : るしぇ
> 確かにリアルタイムでやる必要は無いかも・・・。 無理にリアルタイムでやってみたw あまり検証してないので時間のある方は改善案よろm(__)m [VB6.0(SP5)] Private myChangeFlag As Boolean Private Sub Text1_Change() Dim intSelStart As Integer Dim intBeforeLen As Integer Dim intAfterLen As Integer If myChangeFlag = False Then myChangeFlag = True intSelStart = Me.Text1.SelStart intBeforeLen = Len(Me.Text1.Text) Me.Text1.Text = Format(Me.Text1.Text, "#,##0") intAfterLen = Len(Me.Text1.Text) Me.Text1.SelStart = intSelStart + (intAfterLen - intBeforeLen) myChangeFlag = False End If End Sub |