[سؤال] تنسيق الخلايا بالليست فيو ؟

[سؤال] تنسيق الخلايا بالليست فيو ؟ - نسخة قابلة للطباعة

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

تنسيق الخلايا بالليست فيو ؟ - kafi2030 - 06-10-13

بسم الله الرحمن الرحيم
السلام عليكم

كيف لي ان اقوم بتنسيق الخلايا التي تحمل ارقام، ودلك حتى يسهل قراءة تلك الارقام
اي
3500
تكون 3،500

وهكدا

والف شكر

RE: تنسيق الخلايا بالليست فيو ؟ - sooriaty03 - 07-10-13

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

تفضل أخي الكريم هذه طريقة لعمل ذلك

كود :

For Each LVI As ListViewItem In ListView1.Items

       LVI.SubItems.Item(1).Text = FormatNumber(LVI.SubItems.Item(1).Text)

       LVI.SubItems.Item(2).Text = FormatNumber(LVI.SubItems.Item(2).Text)

       LVI.SubItems.Item(3).Text = FormatNumber(LVI.SubItems.Item(3).Text)

Next

بالتوفيق

RE: تنسيق الخلايا بالليست فيو ؟ - kafi2030 - 07-10-13

الف شكر
اخي Sooriaty
على اجابتك

تم تجربة الكود، وعمل بنجاح
ولكن

هل بالامكان تعديل الكود السابق بحيث يكون تنسيق الرقم على النحو التالي
5،600

وليس على النحو
5،600.00

اي يدون الفواصل العشرية

والف شكر

RE: تنسيق الخلايا بالليست فيو ؟ - kslawy - 07-10-13

يمكنك إزالة الأصفار بإضافة صفر في نهاية دالة الفورمات :

كود :

For Each LVI As ListViewItem In ListView1.Items

            LVI.SubItems.Item(1).Text = FormatNumber(LVI.SubItems.Item(1).Text, 0)

            LVI.SubItems.Item(2).Text = FormatNumber(LVI.SubItems.Item(2).Text, 0)

            LVI.SubItems.Item(3).Text = FormatNumber(LVI.SubItems.Item(3).Text, 0)

        Next

RE: تنسيق الخلايا بالليست فيو ؟ - kafi2030 - 07-10-13

الف شكر
اخي
Kslawy

بارك الله فيك وبأمثالك