جدا کردن اعداد به صورت 3 رقم 3 رقم [بایگانی]

mohaghegh

یک شنبه 15 مهر 1386, 10:52 صبح

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

sasanhe

یک شنبه 15 مهر 1386, 13:59 عصر

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

mohaghegh

یک شنبه 15 مهر 1386, 14:22 عصر

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

__siavash__

یک شنبه 15 مهر 1386, 15:03 عصر

به این تاپیک هم یه سری بزن
http://barnamenevis.org/forum/showthread.php?t=66233&highlight=%D8%A7%D8%B9%D8%AF%D8%A7%D8%AF

vahidm

یک شنبه 15 مهر 1386, 15:57 عصر

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

__siavash__

یک شنبه 15 مهر 1386, 16:28 عصر

من این کار رو انجام دادم
درست کار می کنه ولی یه مشکلی هست مثلا عدد 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

مبین رنجبر

یک شنبه 15 مهر 1386, 17:24 عصر

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

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

mohaghegh

دوشنبه 16 مهر 1386, 11:00 صبح

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

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

mohaghegh

دوشنبه 16 مهر 1386, 14:29 عصر

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

Private Sub deposit_TextChanged()

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

End Try

End Sub

alibahardoost

دوشنبه 09 اسفند 1395, 16:31 عصر

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

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

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