مشکل با جدا کردن عدد درtextbox

[ehsanes]

سلام

من از این کد برای جدا کردن عدد در textbox استفاده می کنم


Private Sub TextBox7_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox7.TextChanged
Me.TextBox7.Text = FormatNumber(Me.TextBox7.Text, 0)
Me.TextBox7.SelectionStart = Me.TextBox7.TextLength
End Sub


واز این کد برای کم کردن مقدار درون دو textbox استفاده می کنم



TextBox3.Text = Val(TextBox15.Text) - Val(TextBox5.Text)


حالا مشکل اینجاست که وقتی جواب در textbox سوم نمایش میده سه رقم سه رقم جدا نمیکنه
از این خط error میگیره


Me.TextBox15.Text = FormatNumber(Me.TextBox15.Text, 0)


یعنی همزمان جواب و جدا کردن ارقام نشون نمیده

[DoDoklak]

از این کد تو رویداد TextChanged استفاده کن



Dim str As String
If TextBox15.Text.Length > 3 Then
SendKeys.Send("{end}")
str = Format$(TextBox15.Text.Replace(",", ""))
TextBox15.Text = Format$(Val(str), "###,###,###")
Else
TextBox15.Text = CDbl(TextBox15.Text)
End If