سه رقم سه رقم جدا کردن اعداد

[محسن بابائی]

سلام
یه برنامه می خوام که توی یه TextBox اعداد را که وارد می کنیم سه رقم سه رقم جدا کنه. مثل 356,485,12 .
ممنون

[powerboy2988]

این هم برنامش

[محسن بابائی]

این هم برنامش

آقا دستت درد نکنه. ولی خوب بود قبلش یه بار هم خودت اجراش می کردی تا ببینی چه دسته گلی به آب می ده.

[powerboy2988]

یه باگه کوچولو داره اگخ نمی تونی رفع کنی بگو درست کنم برات بخدا وقت ندارم

[hadi2345]

با سلام..




Text1.Text = Format(Text1.Text,"##,0")



موفق باشید ...

[محسن بابائی]

هادی جان سلام
این دستور را خودم هم بلد بودم. حالا می تونی یه کاریش بکنی که همون موقع که اعداد را وارد می کنیم جدا بکنه .

[hadi2345]

سلام جناب بابایی ،





Private Sub txtOilP_Change()
If txtOilP.Text <> "" Then
txtOilP.Text = Format(txtOilP.Text, "##,0")
txtOilP.SelStart = Len(txtOilP.Text)
End If
End Sub





موفق باشید ...