جدا کردن اعداد به صورت 3 رقم 3 رقم

[mohaghegh]

با سلام
در windows application با .net چه طوری می شه textbox ی داشت که در آن وقتی عدد وارد می کنیم به صورت سه رقم سه رقم از سمت راست جدا کنه مثلا عدد 12548 را به صورت 12.548 نشان دهد .
با MaskedTextBox نمی خوام انکار و کنم چون اولا باید حداکثر طولش مشخص باشه بعدشم از سمت چپ این کارو می کنه

[sasanhe]

تویه vb6 اینجوری میتونی format(1113234567890,"##,0") ولی تویه .net نمیدونم
شاید بشه
موفق باشید

[mohaghegh]

من این کار رو انجام دادم
درست کار می کنه ولی یه مشکلی هست مثلا عدد 123456 را به صورت 561و234 می نویسه
کدی که من نوشتم اینه
TextBox3.Text = Format(Int(TextBox3.Text), "##,0")

[__siavash__]

به این تاپیک هم یه سری بزن
https://barnamenevis.org/showth...AF%D8%A7%D8%AF

[vahidm]

می تونی از این تابع استفاده کنی
(###,###,###)$format

[__siavash__]

من این کار رو انجام دادم
درست کار می کنه ولی یه مشکلی هست مثلا عدد 123456 را به صورت 561و234 می نویسه
کدی که من نوشتم اینه
TextBox3.Text = Format(Int(TextBox3.Text), "##,0")

باید کرسر رو بذاری سمت راست!

 

Private Sub Text1_Change()

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

Text1.SelStart = Len(Text1.Text)

End Sub

[مبین رنجبر]

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

توجه : این برنامه بعضی از اعداد رو بعد از جدا کردن به صورت برعکس بشون می ده که با ساتفاده از تابع StrReverse قابل رفعه ( هر چند خودمم تو این برنامه ازش استفاده کردم )

[mohaghegh]

با تشکر از همگی دوستان

با استفاده از این کد
Private Sub Text1_Change()
Text1.Text = Format(Text1.Text, "##,###")
Text1.SelStart = Len(Text1.Text)
End Sub
مرسی اقا سیاوش

[mohaghegh]

کد دقیقش و گذاشتم برای اونایی که مشکل منو داشتند توی .net

Private Sub deposit_TextChanged()

deposit.Text = Format(Int(deposit.Text), "##,0")
deposit.SelectionStart = Len(deposit.Text)


End Try

End Sub

[alibahardoost]

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

توجه : این برنامه بعضی از اعداد رو بعد از جدا کردن به صورت برعکس بشون می ده که با ساتفاده از تابع StrReverse قابل رفعه ( هر چند خودمم تو این برنامه ازش استفاده کردم )

در آخر این دستور اضافه شود.
If Val(St) > 6 Then
Text1.Text = St
Else
Text1.Text = StrReverse(St)
End If