PDA

View Full Version : جداکننده هزار در TextBox


en_saba
سه شنبه 06 دی 1384, 22:49 عصر
سلام به همه
اساتید محترم چطوری می شه در یک TextBox وقتی که یک عدد را وارد می کنیم بصورت اتوماتیک بصورت سه تا سه تا اعداد را جدا کنه مثلا ما عدد 10000000 را در TextBox وارد کنیم و عدد مقابل 10،000،000 با همان خاصیت عددی در TextBox نمایش داده بشه.
از تمام کسانی که در این زمینه منو راهنمایی کنن واقعا ممنونم
dr_farshadtal@yahoo.com
حامد مصافی
چهارشنبه 07 دی 1384, 00:02 صبح
Private Sub Text1_Change()
Dim n As Integer
n = Text1.SelStart
Text1 = Format(Text1, "###,###,###,###,###")
Text1.SelStart = n + 1
End Sub
en_saba
چهارشنبه 07 دی 1384, 23:39 عصر
استاد گرامی از شما واقعاً ممنونم کاملاً جواب داد امیدوارم جبران کنم
حامد مصافی
پنج شنبه 08 دی 1384, 01:13 صبح
خواهش می کنم دوست عزیز
en_saba
یک شنبه 11 دی 1384, 11:20 صبح
استاد گرامی مورد قبل مشکل را حل می کند ولی متأسفانه خاصیت عددی خود را از دست می دهد یعنی اگر عدد 123،456 را با عدد 1 جمع کنیم جواب 124 خواهد بود.
در صورت امکان در این مورد هم مرا راهنمایی نمایید و در ضمن همین کد در VB .NET چگونه خواهد بود.
حامد مصافی
دوشنبه 12 دی 1384, 00:28 صبح
a = 1 + val(replace(text1, ",")


البته راه حل بهتر اینه که یک User Control برای این کار طراحی کنی

برای تبدیل به دات نت هم از منوی Tools گزینه Upgrade VB6 Code رو انتخاب کنید
en_saba
دوشنبه 12 دی 1384, 14:06 عصر
استاد محترم از زحمات شما سپاسگذارم آزمایش کردم و کاملاً جواب داد. واقعاً متشکرم