چطور بین اهر سه عدد یه (،) بزاریم ؟؟؟؟

[mohsen gh]

سلام دوستان من یه تکس باکس تو برنامم دارم که مبلغ رو میگیره میخوام بین هر سه عدد یه ، بزارم

مثلا اگه 1000 رو وارد کردیم بصورت خودکار اینطور بشه 1،000

1،000،000،000
؟؟؟؟؟:افسرده:

[mohamad68]

تو TextChanged کد زیر:

TextBox1.Text = FormatNumber(TextBox1.Text, 0)
TextBox1.SelectionStart = TextBox1.TextLength

[mohsen gh]

تو TextChanged کد زیر:

TextBox1.Text = FormatNumber(TextBox1.Text, 0)
TextBox1.SelectionStart = TextBox1.TextLength
سلام دوست عزیز کدی که نوشتی کار میکنه ولی error میده ؟؟؟؟؟اگه میتونی تستش کن
ممنون

[mohamad68]

سلام دوست عزیز کدی که نوشتی کار میکنه ولی error میده ؟؟؟؟؟اگه میتونی تستش کن
ممنون

سلام
چه error میده؟؟؟؟
اگه مشکل اینه که textbox خالی میشه error می گیره براش یه شرط بذار که textlenght>0 بود کد رو اجرا کنه

[mohsen gh]

سلام
چه error میده؟؟؟؟
اگه مشکل اینه که textbox خالی میشه error می گیره براش یه شرط بذار که textlenght>0 بود کد رو اجرا کنه
دوست عزیز شرط که میزارم دیگه اون کارو نمیکنه و بازم error میگیره:ناراحت:

[mohamad68]

دوست عزیز شرط که میزارم دیگه اون کارو نمیکنه و بازم error میگیره:ناراحت:


Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
If TextBox1.TextLength > 0 Then
TextBox1.Text = FormatNumber(TextBox1.Text, 0)
TextBox1.SelectionStart = TextBox1.TextLength
End Ifچه error دارین؟

[ali_najari]

دوست عزیز توی وبلاگ من یه کامپونت هست برای ان کار که میتونید استفاده کنید:

http://Visualbasic-net.blogsky.com

یا

http://barnamenevis.org/forum/showpost.php?p=1129058&postcount=147

البته منتظر ورژن جدید باشد چون تا چند وقت دیگه آماده میکنم ولی فعلا این کارتون رو راه میندازه

[salehbagheri]

دوستان چرخاندن لقمه دور سر خوب نیست.

زمانی که مایکروسافت عزیز، این امکان رو فراهم کرده چرا ...

به این صورت بنویسید:

Dim Number As Integer = 1234
Dim Output As String = Number.ToString.Format("{0:0,0}")
'Output = 1,234


اگر خواستید با موارد بیشتری آشنا بشید به این لینک (http://knol.google.com/k/tiago-d-herbe/string-formatting-in-c/14iq9hvyot8wi/3#) نظر کنید.

[Ghaisard]

سلام

من تو پست زير يه نمونه گذاشته بودم كه همين كارو انجام ميده:

http://barnamenevis.org/forum/showthread.php?t=253715

[ali_najari]

دوستان چرخاندن لقمه دور سر خوب نیست.

زمانی که مایکروسافت عزیز، این امکان رو فراهم کرده چرا ...

به این صورت بنویسید:

Dim Number As Integer = 1234
Dim Output As String = Number.ToString.Format("{0:0,0}")
'Output = 1,234


اگر خواستید با موارد بیشتری آشنا بشید به این لینک (http://knol.google.com/k/tiago-d-herbe/string-formatting-in-c/14iq9hvyot8wi/3#) نظر کنید.

دوست عزيز netFramwWork اين امكان رو داره و غير قابل انكار هست ولي مشكل اينجاست كه تنها 15 عدد رو ميتونه Mask كنه ولي كامپونتي كه براتون گزاشتم ميتونه تا n عدد رو Mask كنه