تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
كيف اجع من التاكست بوكس تعرض ارقام با فواصل
#1
السلام عليكم
كود بسيط
كيف اجع من التاكست بوكس تعرض ارقام با فواصل 
اصفار مثلا 200000تصبح 2000.00
اي عملة
الرد }}}
تم الشكر بواسطة:
#2
ان انتضر المساعدة
الرد }}}
تم الشكر بواسطة:
#3
تفضل اخي
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
الرد }}}
تم الشكر بواسطة:
#4
(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ا
اخي لا ينجح

كيف اجع من التاكست بوكس تعرض ارقام با فواصل
الرد }}}
تم الشكر بواسطة:
#5
Textbox1. Text=formatnumber(Textbox1. Text, 3)
الرد }}}
تم الشكر بواسطة: ابراهيم ايبو
#6
السلام عليكم ورحمة الله وبركاته
اخي الكريم الكود تقريبا واحد ولكن حسب الحدث الذي ستستخدمه
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
اعمل الخير وأجرك لا تنتظره فالله خير من إليك يرده
البرمجة ليست مجرد كود بل هي منهج تفكير منطقي لحل المشكلات







الرد }}}
تم الشكر بواسطة: alshandodi , ahmedbezia
#7
(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
الرد }}}
تم الشكر بواسطة:
#8
السلام عليكم اخي الكريم 
 اضافة الفاصلة كما تقول يتغير الرقم فبدل ان يكون عشرون الف يصبح 200 لان الارقام بعد  الفاصلة كلها لاتساوي 1
اما ان اردت اضافة اصفار فقط بدون وضع فواصل تسهيل قراءة نحول الرقم الى نوع بيانات يقبل الفاصلة
كود :
TextBox1.Text = (CDbl(TextBox1.Text)).ToString("0.00")
اعمل الخير وأجرك لا تنتظره فالله خير من إليك يرده
البرمجة ليست مجرد كود بل هي منهج تفكير منطقي لحل المشكلات







الرد }}}
تم الشكر بواسطة:
#9
(27-06-20, 12:55 PM)ابراهيم ايبو كتب : السلام عليكم اخي الكريم 
 اضافة الفاصلة كما تقول يتغير الرقم فبدل ان يكون عشرون الف يصبح 200 لان الارقام بعد  الفاصلة كلها لاتساوي 1
اما ان اردت اضافة اصفار فقط بدون وضع فواصل تسهيل قراءة نحول الرقم الى نوع بيانات يقبل الفاصلة
كود :
TextBox1.Text = (CDbl(TextBox1.Text)).ToString("0.00")

اخي الكريم اريد من التاكست يوكس ان تقوم با اضافة الفاصلة يعد اخر رقمين دون ان تغير في قيمة العدد مثلا هنا التاكس تقوم با اضافة الصفرين بعد الفاصلة وانا لا اريد هدا اريد ان اكتب العدد ليبقي كما هوة مع اضافة الفاصلة بعد اخر رقمين
الرد }}}
تم الشكر بواسطة:
#10
من ناحية المنطق الرياضي لايمكن
اعمل الخير وأجرك لا تنتظره فالله خير من إليك يرده
البرمجة ليست مجرد كود بل هي منهج تفكير منطقي لحل المشكلات







الرد }}}
تم الشكر بواسطة: ahmedbezia , ahmedbezia


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  تظليل التكست بوكس عند وضع المؤشر مصمم هاوي 2 142 02-03-24, 08:48 AM
آخر رد: مصمم هاوي
  بحث بالكومبو بوكس لا ى جزء من النص Lathe1 3 440 28-02-24, 02:59 AM
آخر رد: معاند الحظ
  ارقام فوق السطر وتحته Abo Louay 2 191 27-01-24, 11:06 PM
آخر رد: Abo Louay
  كيف ارسل مجموع 3 تكست بوكس إلى واحد بالترتيب ؟ أبووسم 3 330 18-12-23, 05:17 PM
آخر رد: أبووسم
  [سؤال] توزيع الارقام على أكثر من تكست بوكس أبووسم 11 692 17-11-23, 12:04 AM
آخر رد: أبووسم
  كود تغيير قيمة تكست بوكس فى تاريخ معين Ahmed.vb 2 906 11-10-23, 10:35 PM
آخر رد: aljzazy
  دالة ادخال ارقام فقط في مربع النص atefkhalf2004 7 808 20-08-23, 09:04 AM
آخر رد: atefkhalf2004
  [VB.NET] اريد كود البحث او الفلترة عن طريق تيكست بوكس و عرض النتيجة في داتا جريد فيو الحسين احمد 6 10,620 10-06-23, 01:01 PM
آخر رد: mahmoud mostafa 2023
  [VB.NET] إرسال البيانات من التكست بوكس إلى الداتا قريد أبووسم 5 720 28-04-23, 04:15 PM
آخر رد: أبووسم
  [VB.NET] محتاج كود اضهار مسج بوكس كل يوم سبت او احد mac9 8 842 27-03-23, 10:44 PM
آخر رد: sanyor77

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم