المشاركات : 86
المواضيع 40
الإنتساب : Oct 2015
السمعة :
1
الشكر: 10
تم شكره 56 مرات في 37 مشاركات
23-06-19, 10:33 PM
(آخر تعديل لهذه المشاركة : 24-06-19, 03:53 PM {2} بواسطة khairallah.)
ارجو من الاخوة الكرام كود لتنسيق الارقام انا استعمل هذا الكود لكنه يجب اسناد القيمة الجديدة n1 هل هناك طريقة اسهل
PHP كود :
DIM n1 as new textbox Private Sub kima_idkhal_TextChanged(sender As Object, e As EventArgs) Handles kima_idkhal.TextChanged n1.Text = Format(Val(kima_idkhal.Text), "#,##0") End Sub
PHP كود :
Private Sub kima_idkhal_LostFocus(sender As Object, e As EventArgs) Handles kima_idkhal.LostFocus kima_idkhal.Text = n1.Text End Sub
المشاركات : 401
المواضيع 109
الإنتساب : Jul 2013
السمعة :
10
الشكر: 973
تم شكره 473 مرات في 181 مشاركات
لم أفهم جيدا لماذا لا تضعها مباشرة هكذا
كود :
Private Sub kima_idkhal_LostFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles kima_idkhal.LostFocus
kima_idkhal.Text = Format(Val(kima_idkhal.Text), "#.##0")
End Sub
المشاركات : 86
المواضيع 40
الإنتساب : Oct 2015
السمعة :
1
الشكر: 10
تم شكره 56 مرات في 37 مشاركات
(24-06-19, 05:15 PM)sniperjawadino كتب : لم أفهم جيدا لماذا لا تضعها مباشرة هكذا
كود :
Private Sub kima_idkhal_LostFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles kima_idkhal.LostFocus
kima_idkhal.Text = Format(Val(kima_idkhal.Text), "#.##0")
End Sub
شكرا على ردك اخي الكريم لكن انا وضعت الكود كما تفضلت فكانت النتيجة خاطئة 100000000.000
المشاركات : 137
المواضيع 2
الإنتساب : Dec 2017
السمعة :
40
الشكر: 45
تم شكره 384 مرات في 134 مشاركات
25-06-19, 02:29 PM
(آخر تعديل لهذه المشاركة : 25-06-19, 02:35 PM {2} بواسطة سامي محمد.)
استخدم هذه الطريقة
كود :
Private Sub kima_idkhal_LostFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles kima_idkhal.LostFocus
kima_idkhal.Text = String.Format("{0:#,##}", CInt(kima_idkhal.Text))
End Sub
وهي مشبة للطريقة السابقة ولكن بتحويل النص الموجود في التكست الى رقم
أو بكود الأخ : sniperjawadino
كود :
kima_idkhal.Text = Format(Val(kima_idkhal.Text), "#,##")
اعتقد سهوا استبدل الــ ، بــ .
المشاركات : 2,061
المواضيع 49
الإنتساب : Oct 2017
السمعة :
538
الشكر: 10647
تم شكره 5323 مرات في 2095 مشاركات
السلام عليكم اخي الكريم
تفضل هذا الكود لتنسيق الرقم
من 100000000 الى 100,000,000
كود :
MsgBox(String.Format("{0:0,0}", Val(TextBox1.Text)))
اعمل الخير وأجرك لا تنتظره فالله خير من إليك يرده
البرمجة ليست مجرد كود بل هي منهج تفكير منطقي لحل المشكلات
المشاركات : 86
المواضيع 40
الإنتساب : Oct 2015
السمعة :
1
الشكر: 10
تم شكره 56 مرات في 37 مشاركات
(25-06-19, 02:29 PM)سامي محمد كتب : استخدم هذه الطريقة
كود :
Private Sub kima_idkhal_LostFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles kima_idkhal.LostFocus
kima_idkhal.Text = String.Format("{0:#,##}", CInt(kima_idkhal.Text))
End Sub
وهي مشبة للطريقة السابقة ولكن بتحويل النص الموجود في التكست الى رقم
أو بكود الأخ : sniperjawadino
كود :
kima_idkhal.Text = Format(Val(kima_idkhal.Text), "#,##")
اعتقد سهوا استبدل الــ ، بــ .
الف شكر الكود المطلوب هو
PHP كود :
kima_idkhal.Text = String.Format("{0:#,##}", CInt(kima_idkhal.Text))
المشاركات : 86
المواضيع 40
الإنتساب : Oct 2015
السمعة :
1
الشكر: 10
تم شكره 56 مرات في 37 مشاركات
27-06-19, 10:08 PM
(آخر تعديل لهذه المشاركة : 27-06-19, 10:15 PM {2} بواسطة khairallah.)
(25-06-19, 03:17 PM)khairallah كتب : (25-06-19, 02:29 PM)سامي محمد كتب : استخدم هذه الطريقة
كود :
Private Sub kima_idkhal_LostFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles kima_idkhal.LostFocus
kima_idkhal.Text = String.Format("{0:#,##}", CInt(kima_idkhal.Text))
End Sub
وهي مشبة للطريقة السابقة ولكن بتحويل النص الموجود في التكست الى رقم
أو بكود الأخ : sniperjawadino
كود :
kima_idkhal.Text = Format(Val(kima_idkhal.Text), "#,##")
اعتقد سهوا استبدل الــ ، بــ .
الف شكر الكود المطلوب هو
PHP كود :
kima_idkhal.Text = String.Format("{0:#,##}", CInt(kima_idkhal.Text))
اخي العزيز بعد تجربة هذا الكود ظهر عند خطا وهو عندما تكون القيمة صفر يحولها الى لا شيئ
المشاركات : 137
المواضيع 2
الإنتساب : Dec 2017
السمعة :
40
الشكر: 45
تم شكره 384 مرات في 134 مشاركات
هذا طبيعي يا أخ .. لأن الدالة التي تقوم بعمل الفواصل بين الارقام هي متخصصة بالقيم ومن المعلوم انه لا يوجد شيء قيمته 000000 وحتى ان الدالة لا تعمل اذا كان النص الممرر إليه من نوع String وتلاحظ في الكود قمنا تحويل النص من String إلى Integer عن طريق الدالة Cint أو Val
----
ولكن ان كنت تريد تجزئة اي نص مدخل في التكست بكس سوء كان ارقام او اصفار او حروف فستخدم هذه الطريقة
قم بستدعاء مجال الاسماء هذا
كود :
Imports System.Text.RegularExpressions
وضع هذا الكود بدلا من السابق
كود :
kima_idkhal.Text = Regex.Replace(kima_idkhal.Text, ",", "")
kima_idkhal.Text = StrReverse(kima_idkhal.Text)
kima_idkhal.Text = Regex.Replace(kima_idkhal.Text, "(.{3})", "$1,")
kima_idkhal.Text = StrReverse(kima_idkhal.Text)
kima_idkhal.Text = Regex.Replace(kima_idkhal.Text, "^,", "")
قد تكون هناك طرق اخرى ولكن هذا الذي طرأ علي الآن
|