جدا کننده اعداد

[hesam_hma]

سلام دوستان
کسی تکست باکسی داره یا میدونه چطوری میشه یه تکست باکس داشت که اعداد رو با جدا کنند دریافت کنه یعنی ارقام را سه تا سه تا از هم جدا کنه
مثلا 1.232.234
از مسک تکس باکس استفاده کردم اما فرمتش ثابته مثلا 1.232.232__ یا 23_.___.___

[amirsajjadi]

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


TextBox1.Text = Format$(Val(TextBox1.Text), "#,#")

[Business Analyst]

dim a() as string
a=textbox1.text.split(",")

[hesam_hma]

با تشکر از دوستان ولی من می خوام در زمان ورود بصورت اتوماتیک اعداد رو از هم جدا کنه نه بعد از ورود
ضمنا کد زیر جواب نداد
Dim a() AsString
a = TextBox1.Text.Split(",")


با تشکر

[Dashti]

Private Sub tbPishpardakht1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tbPishpardakht1.TextChanged
If tbPishpardakht1.Text.Length > 0 Then
nfi.NumberDecimalDigits = 0
tbPishpardakht1.Text = Int64.Parse(tbPishpardakht1.Text, NumberStyles.AllowThousands).ToString("N", nfi)
tbPishpardakht1.Select(tbPishpardakht1.Text.Length , 0)
End If End Sub

[ir_programmer]

Private Sub tbPishpardakht1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tbPishpardakht1.TextChanged
If tbPishpardakht1.Text.Length > 0 Then
nfi.NumberDecimalDigits = 0
tbPishpardakht1.Text = Int64.Parse(tbPishpardakht1.Text, NumberStyles.AllowThousands).ToString("N", nfi)
tbPishpardakht1.Select(tbPishpardakht1.Text.Length , 0)
End If End Sub

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

[hesam_hma]

سلام
آقا از کد زیر خطا میگیره

nfi.NumberDecimalDigits = 0

[hesam_hma]

آقا ممنون پیداش کردم
اینم کد

PrivateSub TextBox2_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox2.TextChanged
Dim nfi As NumberFormatInfo = New CultureInfo("en-US", False).NumberFormat
If TextBox2.Text.Length > 0 Then
nfi.NumberDecimalDigits = 0
TextBox2.Text = Int64.Parse(TextBox2.Text, NumberStyles.AllowThousands).ToString("N", nfi)
TextBox2.Select(TextBox2.Text.Length, 0)
EndIf
EndSub