anooshiran
یک شنبه 01 دی 1387, 11:24 صبح
سلام دوستان عزيز
من از كد زير براي جداسازي عدد به سه رقم استفاده مي كنم و اين كد خيلي خوب جواب مي دهد ولي مشكل اينجاست كه اگر بخواهم مميز "." يا عدد منفي را بكار برم امكان پذير نيست .
آيا دوستان راه حلي براي آن دارند
Private Sub TextBox1_TextChanged _
(ByVal sender As System.Object, ByVal e As System.EventArgs) _
Handles TextBox1.TextChanged
TextBox1.Text = Format(Val(TextBox1.Text.Trim.Replace(",", "")), "#,0")
TextBox1.SelectionStart = TextBox1.TextLength
End Sub
با تشكر
من از كد زير براي جداسازي عدد به سه رقم استفاده مي كنم و اين كد خيلي خوب جواب مي دهد ولي مشكل اينجاست كه اگر بخواهم مميز "." يا عدد منفي را بكار برم امكان پذير نيست .
آيا دوستان راه حلي براي آن دارند
Private Sub TextBox1_TextChanged _
(ByVal sender As System.Object, ByVal e As System.EventArgs) _
Handles TextBox1.TextChanged
TextBox1.Text = Format(Val(TextBox1.Text.Trim.Replace(",", "")), "#,0")
TextBox1.SelectionStart = TextBox1.TextLength
End Sub
با تشكر