جدا کردن 3 رقم 3 رقم اعداد

[arsalansalar]

سلام.
می خواستم اگه دوستان لطف کنند کدی را بنویسند که هنگام تایپ عدد در یک تکست باکس 3 رقم 3 رقم اعداد را جدا کند.

[morteza_261]

سلام


Private Sub TxtGest1_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles TxtGest1.TextChanged
TxtGest1.Text = Format(Val(TxtGest1.Text.Trim.Replace(",", "")), "#,0")
TxtGest1.SelectionStart = TxtGest1.TextLength

End Sub

[elmira_63]

خوب به جای تکست باکس از کامپوننت moskedtextbox استفاده کنید که خودش این امکان روداشته باشه البته این ساده ترین راهش هست

[saman_itc]

moskedtextbox یه textbox سفارشی که خیلی امکانات داره.میتونی خودت هم کنترل بسازی

[اوبالیت به بو]

PrivateSub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim Number AsLong, strVar AsString, HelpVar1 AsInteger, Counter AsInteger
Number = Len(TextBox1.Text)
For Counter = Number To 1 Step -1
HelpVar1 = HelpVar1 + 1
strVar = strVar + Mid(TextBox1.Text, Counter, 1)
If HelpVar1 Mod 3 = 0 Then
strVar = strVar + ","
EndIf
Next Counter
If StrReverse(strVar) = ","Then
strVar = StrReverse(strVar)
EndIf
TextBox1.Text = StrReverse(strVar)
EndSub

يكم با تابع Right و Left تنظيمش كنيد بهتر مي شه.

[biotechsoft]

If Me.TextBox2.Text <> "" Then
TextBox2.Text = FormatNumber(TextBox2.Text, 0)
TextBox2.SelectionStart = TextBox2.TextLength
End If

از این کاربردی تر و ساده تر وجود نداره

[v30sharp]

دوستمون.
درست گفتند از maskedtextbox استفاده کن بهتره نیازی به کد نویسی نداره

[ameysams]

من خودم از این کد استفاده می کنم:
Private Sub txtkharid_Leave(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtkharid.Leave
If IsNumeric(txtkharid.Text) Then
txtkharid.Text = String.Format("{0:n0}", CLng(txtkharid.Text))
End If
End Sub

[s.k711]

سلام دوستان، محتويات اين textbox را چه جوري تو پايگاه داده ذخيره كنيم.