[ahmedbezia]

(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

شكرا اخي وادا اردت ان يوكون الامر كا الاتي  ان يقوم البرنامج با اضافة الفاصلة بعد صفرين دون ان يضيف اصفار مثلا 20000 يقوم البرنامج با اضافة الفاصلة بعد اخر صفرين دون التغيير في العدد يصبح 200.00