ارجو من الاخوة الكرام كود لتنسيق الارقام انا استعمل هذا الكود لكنه يجب اسناد القيمة الجديدة 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
لم أفهم جيدا لماذا لا تضعها مباشرة هكذا
كود :
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
(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
استخدم هذه الطريقة
كود :
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), "#,##")
اعتقد سهوا استبدل الــ ، بــ .
السلام عليكم اخي الكريم
تفضل هذا الكود لتنسيق الرقم
من 100000000 الى 100,000,000
كود :
MsgBox(String.Format("{0:0,0}", Val(TextBox1.Text)))
(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))
اخي العزيز بعد تجربة هذا الكود ظهر عند خطا وهو عندما تكون القيمة صفر يحولها الى لا شيئ
هذا طبيعي يا أخ .. لأن الدالة التي تقوم بعمل الفواصل بين الارقام هي متخصصة بالقيم ومن المعلوم انه لا يوجد شيء قيمته 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, "^,", "")
قد تكون هناك طرق اخرى ولكن هذا الذي طرأ علي الآن