VBレスキュー(花ちゃん)の Visual Basic 6.0用掲示板

タイトル： Re^3: テキストボックスの3桁毎のカンマ表示

投稿日： 2008/07/02(Wed) 15:56

投稿者： るしぇ

> 確かにリアルタイムでやる必要は無いかも・・・。
無理にリアルタイムでやってみたｗ
あまり検証してないので時間のある方は改善案よろｍ(＿＿)ｍ
[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

- 関連一覧ツリー （

をクリックするとツリー全体を一括表示します）

テキストボックスの3桁毎のカンマ表示

ゆき

No.12666

Re: テキストボックスの3桁毎のカンマ表示 - いな 08/07/02-15:09 No.12668
- Re^2: テキストボックスの3桁毎のカンマ表示 - るしぇ 08/07/02-15:32 No.12670
Re: テキストボックスの3桁毎のカンマ表示 - 琴 08/07/02-15:26 No.12669
- Re^2: テキストボックスの3桁毎のカンマ表示 - いな 08/07/02-15:36 No.12671
  - Re^3: テキストボックスの3桁毎のカンマ表示 - るしぇ 08/07/02-15:56 No.12673
Re: テキストボックスの3桁毎のカンマ表示 - Do_Shirouto 08/07/02-16:18 No.12674
Re: テキストボックスの3桁毎のカンマ表示 - ゆき 08/07/02-20:30 No.12676

タイトル	： Re^3: テキストボックスの3桁毎のカンマ表示
投稿日	： 2008/07/02(Wed) 15:56
投稿者	：るしぇ

古いスレッドにレスはつけられません。