[ahmedbezia]

السلام عليكم
كود بسيط
كيف اجع من التاكست بوكس تعرض ارقام با فواصل 
اصفار مثلا 200000تصبح 2000.00
اي عملة

[ahmedbezia]

ان انتضر المساعدة

[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

[ahmedbezia]

(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ا

اخي لا ينجح

---

كيف اجع من التاكست بوكس تعرض ارقام با فواصل

[alshandodi]

Textbox1. Text=formatnumber(Textbox1. Text, 3)

[ابراهيم ايبو]

السلام عليكم ورحمة الله وبركاته
اخي الكريم الكود تقريبا واحد ولكن حسب الحدث الذي ستستخدمه
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

[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

[ابراهيم ايبو]

السلام عليكم اخي الكريم 
 اضافة الفاصلة كما تقول يتغير الرقم فبدل ان يكون عشرون الف يصبح 200 لان الارقام بعد  الفاصلة كلها لاتساوي 1
اما ان اردت اضافة اصفار فقط بدون وضع فواصل تسهيل قراءة نحول الرقم الى نوع بيانات يقبل الفاصلة

كود :

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

[ahmedbezia]

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

كود :

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

اخي الكريم اريد من التاكست يوكس ان تقوم با اضافة الفاصلة يعد اخر رقمين دون ان تغير في قيمة العدد مثلا هنا التاكس تقوم با اضافة الصفرين بعد الفاصلة وانا لا اريد هدا اريد ان اكتب العدد ليبقي كما هوة مع اضافة الفاصلة بعد اخر رقمين

[ابراهيم ايبو]

من ناحية المنطق الرياضي لايمكن