منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
formatage لرقم وفق شرط معين - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : formatage لرقم وفق شرط معين (/showthread.php?tid=29319)



formatage لرقم وفق شرط معين - ahmedfa71 - 10-04-19

السلام عليكم ورحمة الله وبركاته 
أريد تغيير القيمة الرقمية التالية لهذا المبلغ  مثلا 244562,00
لتصبح على هذا الشكل من 13 رقما 
0000024456200
وبارك الله فيكم


RE: formatage لرقم وفق شرط معين - elgokr - 10-04-19

وعليكم السلام ورحمة الله وبركاته

استخدم الكود 
كود :
       Dim num As Integer = "244562.00".Replace(".", Nothing)
       MsgBox(num.ToString("0000000000000"))

تحياتى لك
وتمنياتى لك التوفيق



RE: formatage لرقم وفق شرط معين - ahmedfa71 - 10-04-19

بارك الله فيك أخي على الرد لكن عند تطبيقها على تكست بوكس بقيمة 
66125,83 يعطيني القيمة  0000000066126

كود :
Dim num As Integer = (textBoxAvg.Text).Replace(".", Nothing)
       MsgBox(num.ToString("0000000000000"))



RE: formatage لرقم وفق شرط معين - elgokr - 10-04-19

حول علامة . الى ,
ليصبح الكود
كود :
      Dim num As Integer = textBoxAvg.Text.Replace(",", Nothing)
      MsgBox(num.ToString("0000000000000"))

او يفضل ان يكون بهذا الشكل
كود :
      Dim num As String = textBoxAvg.Text.Replace(",", Nothing)
      MsgBox(Val(num).ToString("0000000000000"))

تحياتى لك
وتمنياتى لك التوفيق



RE: formatage لرقم وفق شرط معين - بدري - 10-04-19

راجع المشاركه

http://vb4arb.com/vb/showthread.php?tid=29049&pid=139296#pid139296


RE: formatage لرقم وفق شرط معين - ahmedfa71 - 10-04-19

السلام عليكم وبركاته وشكرا لكم على الرد الكود شغال على التكست بوكس
لدي سؤال أخر 

كيف يمكنني توظيف هذه العملية على خلية cell معينة من الداتاقريد فيو  مثلا الخلية 4
وبارك الله فيكم


RE: formatage لرقم وفق شرط معين - elgokr - 11-04-19

وعليكم السلام ورحمة الله وبركاته

الشكر لله والحمد لله
والحمد لله على كل حال

بخصوص خلية الداتا جريد
فقط سيكون على هذا النحو
كود :
     Dim num As String = DataGridView1.Rows(0).Cell(4).Value().Replace(",", Nothing)
     MsgBox(Val(num).ToString("0000000000000"))

ما تغيير رقم 0 الى رقم السطر المطلوب جلب منه بيانات الخلية

تحياتى لك
وتمنياتى لك التوفيق



RE: formatage لرقم وفق شرط معين - ahmedfa71 - 11-04-19

شكرا لك أخي على الرد عند تجربة الكود يظهر رسالة الخطأ
cell is not member of system.windows.forms.datagridviewrow


RE: formatage لرقم وفق شرط معين - elgokr - 11-04-19

الشكر لله والحمد لله
والحمد لله على كل حال

عفواً اخى الحبيب بسبب سهواً
تم نسيان وضع حرف S بكلمة Cell بالكود
لتصبح الكلمة Cells ولهذا يظهر معك الخطاء

والسهو فى الكتابة وانا اكتب الكود لك هنا

الكود
كود :
    Dim num As String = DataGridView1.Rows(0).Cells(4).Value().Replace(",", Nothing)
    MsgBox(Val(num).ToString("0000000000000"))

تحياتى لك
وتمنياتى لك التوفيق