نیاز به Textbox با قابلیت فرمت بندی اعداد سه رقمی

سلام
نیاز به یک تکست باکس دارم که اعداد را فرمت بندی کنه و سه رقم سه رقم جدا کنه و همچنین اجازه وارد کردن اعشار را بده مثلا به شکل مقابل 252,230,222.332
تو سایت ها سرچ کد زیر میاد و دقیق هم کار میکنه ولی اجازه وارد کردن اعشار را نمیده
دقیقا مثل ماشین حساب ویندوز میخوام باشه عدد گرفتنش

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

Text6.SelStart = Len(Text6.Text)

Text6.SetFocus

خودم تابعی نوشتم که این کار را انجام بده ولی مشکل اینجاست که وقتی تو Private Sub Text6_Change() میذارمش تایپ نمیشه
لطفا کسی اگر میتونه کمک کنه/

علیک
اینو تست کن ببین درست میشه، ۳ تا گذاشتم

Format(Text6.Text, "###,###,000.0")



Format(Text6.Text, "###,###,000.000")



Format(Text6.Text, "###,###,###.000")

نقل قول:

---

نوشته شده توسط www.pc3enter.tk

علیک
اینو تست کن ببین درست میشه، ۳ تا گذاشتم

Format(Text6.Text, "###,###,000.0")



Format(Text6.Text, "###,###,000.000")



Format(Text6.Text, "###,###,###.000")

---

نه متاسفانه کار نمیکنه

سلام
از ComponentOne TDBNumber استفاده کن

Private Sub Text1_Change()





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

Text1.SelStart = Len(Text1.Text)

End Sub

نقل قول:

---

نوشته شده توسط vbhamed

سلام
از ComponentOne TDBNumber استفاده کن

---

خیلی ممنون از راهنماییتون
با استفاده از این کامپوننت به راحتی کار انجام شد

برای دوستانی که ممکنه این کامپوننت لازمشون بشه مجموعه کامپوننت های این شرکت را قرار دادم.
دانلود مجموعه کامپوننت های شرکت Commponent One

مجموعه کامل اکتیواکس های دیگه رو هم در تاپیک قسمت مربوطه گذاشتم

البته تا ورژن 2011 رو من دیدم ولی به نظرم 2009 مناسبه

نقل قول:

---

نوشته شده توسط vbhamed

البته تا ورژن 2011 رو من دیدم ولی به نظرم 2009 مناسبه

---

نسخه قابل استفاده اونو اگه دارید اینجا قرار بدین لطفا