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

[hamidreza777]

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



Text6.Text = Format(Text6.Text, "##,0")
Text6.SelStart = Len(Text6.Text)
Text6.SetFocus


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

[www.pc3enter.tk]

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

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

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

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

[hamidreza777]

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

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

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

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

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

[vbhamed]

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

[isaac23]

Private Sub Text1_Change()


Text1.Text = Format(Text1.Text, "##,0")
Text1.SelStart = Len(Text1.Text)
End Sub

[hamidreza777]

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

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

برای دوستانی که ممکنه این کامپوننت لازمشون بشه مجموعه کامپوننت های این شرکت را قرار دادم.
دانلود مجموعه کامپوننت های شرکت Commponent One (http://s8.picofile.com/file/8352246276/ComponentOne_studioforActiveX_2007v1_5Keygen.zip.h tml)

مجموعه کامل اکتیواکس های دیگه رو هم در تاپیک قسمت مربوطه گذاشتم (http://barnamenevis.org/showthread.php?554018-%D9%85%D8%AC%D9%85%D9%88%D8%B9%D9%87-%D8%A7%DA%A9%D8%AA%DB%8C%D9%88%D8%A7%DA%A9%D8%B3-%D9%87%D8%A7%DB%8C-%DA%A9%D8%A7%D8%B1%D8%A8%D8%B1%D8%AF%DB%8C&p=2410593#post2410593)

[vbhamed]

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

[hamidreza777]

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

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