تقييم الموضوع :
  • 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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  تعبئة الداتا جريد فيو عن طريق اللست بوكس او التشك بوكس ismaeel 3 150 16-10-21, 05:42 PM
آخر رد: ismaeel
  سوال عن اضافه كمبو بوكس الى الداتا جريد فيو alazhry 2 177 09-10-21, 06:45 PM
آخر رد: ahmed4
  كود منع ادخال ارقام او حروف داخل التيكست بوكس ابو نور الهدى 2 236 05-10-21, 11:14 AM
آخر رد: ابو نور الهدى
  تعبئة داتا كرد فيو من الكمبو بوكس نيمو 2 195 03-10-21, 10:10 PM
آخر رد: نيمو
  كود انتقال الماوس تلقائيا من التيكست بوكس ابو نور الهدى 6 350 16-09-21, 12:00 AM
آخر رد: ابو نور الهدى
  معادلة عد كلمة معينة داخل اكثر من تكست بوكس ابو العلاء 10 520 13-09-21, 12:45 AM
آخر رد: ابراهيم ايبو
  منع المستخدم من ادخال ارقام فى مربع النص في فيجوال بيسك دوت نت ابو نور الهدى 2 281 09-09-21, 06:17 PM
آخر رد: ابو نور الهدى
Exclamation [سؤال] احتاج مساعدة في حفظ ليست بوكس الى تكست malek369 0 253 24-08-21, 09:12 AM
آخر رد: malek369
  الجمع بنفس التاكست عدة مرات العيدروس 2 268 20-07-21, 02:50 AM
آخر رد: العيدروس
  [كود] جعل التاكست بوكس يكتب في سطر واحد zazasami 3 437 30-06-21, 09:31 AM
آخر رد: ابو انس

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


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