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

[Beyondsoft]

سلام
می خواهم اعداد را در textbox و lable سه رقم سه رقم جدا کنم چه کار کنم؟

البته با کد نویسی در keyup و FocusLost و ... نوشتم. کار هم می کند اما می خواهم ببینم اتومات دارد یا نه؟

در انتهای اعداد نیز می خواهم ریال اضافه شود. البته باز هم این کار را کرده ام اما اتومات می خوام.


مرسی
بای

[علیرضا مداح]

سلام دوست عزیز
راه اول)استفاده از تابع Format میباشد :

TextBox1.Text = Format(CInt(TextBox1.Text), "ریال ##,0")

راه دوم)

Dim n As Globalization.NumberFormatInfo = New Globalization.CultureInfo("en-US", True).NumberFormat

TextBox1.Text = CInt(TextBox1.Text).ToString("N", n)

[Boo Ali]

با سلام

شما فرمت در TextBox را فرمودید ولی برای داده های موجود در DataGrid چه باید کرد ، مخصوصاً

وفتی در داده ها عدد 0 باشد؟

[mehrzad007]

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

[mostafa_leman]

توی گزینه فرمت مقدار ##,### رو وارد کنید . در ضمن قبل از اینکه یک تاپیک جدید بسازید لطفا سرچ کنید . این موضوع قبلا مطرح شده بود

[محمدشیرزادی]

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

PublicFunction Num(ByVal S AsString, ByVal N AsInteger, ByVal C AsString) AsString

S = Replace(S, C, "")
S = StrReverse(S)
Dim B AsInteger

Num = Nothing

For i AsInteger = 1 To S.Length
Num &= Left(S, 1)
S = Mid(S, 2, S.Length)
If i = N + B Then

B = i
Num &= C
EndIf

Next

Num = StrReverse(Num)
If Left(Num, 1) = C Then Num = Mid(Num, 2, Num.Length)
EndFunction