(26-06-20, 08:07 PM)rochdi191 كتب : تفضل اخي
 Private Sub TextBox1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress
       If Not Double.TryParse((TextBox1.Text & e.KeyChar), Nothing) Then
           e.Handled = True
       End If
   End Subا

(26-06-20, 09:05 PM)ابراهيم ايبو كتب : السلام عليكم ورحمة الله وبركاته
اخي الكريم الكود تقريبا واحد ولكن حسب الحدث الذي ستستخدمه
1- بعد ضغط مفتاح انتر استخدم الحدث TextBox1_KeyDown

كود :

' هذا بعد ضغط مفتاح انتر
   Private Sub TextBox1_KeyDown(sender As Object, e As KeyEventArgs) Handles TextBox1.KeyDown
       If e.KeyCode = Keys.Enter Then
           e.Handled = False
           TextBox1.Text = FormatNumber(TextBox1.Text, 2)
       End If
   End Sub

2- بعد الخروج من مربع النص سواء بالماوس او بالتاب استخدم الحدث TextBox1_Validating

كود :

' هذا بعد الانتقال الى اي اداة اخرى اكان بالماوس ام بالتاب
   Private Sub TextBox1_Validating(sender As Object, e As System.ComponentModel.CancelEventArgs) Handles TextBox1.Validating
       TextBox1.Text = FormatNumber(CDbl(TextBox1.Text), 2)
   End Sub

(27-06-20, 12:55 PM)ابراهيم ايبو كتب : السلام عليكم اخي الكريم 
 اضافة الفاصلة كما تقول يتغير الرقم فبدل ان يكون عشرون الف يصبح 200 لان الارقام بعد  الفاصلة كلها لاتساوي 1
اما ان اردت اضافة اصفار فقط بدون وضع فواصل تسهيل قراءة نحول الرقم الى نوع بيانات يقبل الفاصلة

كود :

TextBox1.Text = (CDbl(TextBox1.Text)).ToString("0.00")