کد قراردادن عدد

[danshno1]

با سلام قطعه کد برنامه در محيط وي بي دات نت
(ميخواهم از همان تکس باکس استفاده نمايم واين تغييرات بوسليه کدي که وجود دارد انجام شود)
تکس باکسي که فقط عدد را بپذيرد و منفي را نيز قبول کند واگر کاربر عددي را وارد کرد اعداد را ويرگول گذاري شوند.(ويرگول بين اعداد بگذارد)
به اين صورت که مثلا: 72،356،000-

[maisam57]

Private Sub TextBox1_KeyPress(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress
If (Microsoft.VisualBasic.Asc(e.KeyChar) < 48) OrElse (Microsoft.VisualBasic.Asc(e.KeyChar) > 57) Then
e.Handled = True
End If
If (Microsoft.VisualBasic.Asc(e.KeyChar) = 8) Then
e.Handled = False
End If
End Sub

Private Sub TextBox1_Leave(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.Leave
Dim value As Double = TextBox1.Text
TextBox1.Text = value.ToString("#,#", CultureInfo.InvariantCulture)
End Sub

[danshno1]

با سلام ضمن تشکر از پاسخ شما.این قطعه کدی که شما گذاشتین فقط عدد دریافت میکند.من قطعه کدی لازم دارم که علاوه بر اینکه فقط عدد بگیرد ،منفی را نیز بگیرد وهنگام وارد کردن عدد مثلا برای ارقام وام باویرگول عدد را جدا نماید .