alawiala
شنبه 30 دی 1385, 08:11 صبح
Private Sub TextBox1_KeyUp(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles TextBox1.KeyUp
Try
Me.TextBox1.Text = Format(CLng(Me.TextBox1.Text), "###,###,###,###,###;;0")
Me.TextBox1.SelectionStart = Me.TextBox1.Text.Length
Catch
Exit Try
End Try
End Sub
Try
Me.TextBox1.Text = Format(CLng(Me.TextBox1.Text), "###,###,###,###,###;;0")
Me.TextBox1.SelectionStart = Me.TextBox1.Text.Length
Catch
Exit Try
End Try
End Sub