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

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (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=26574)

مساعدة جزاكم الله كل خير - fouadhdfouad - 21-09-18

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

كيف يتم تحويل رقم من هده الطريقة

123456789

الى هده الطريقة

01 02 03 04 05 06 07 08 09 00

جزاكم الله كل خير

RE: مساعدة جزاكم الله كل خير - حريف برمجة - 21-09-18

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

لنفرض الرقم (123456789) موجود في تكست بوكس اسمه TextBox1

وتريد النتيجة تظهر في تكست بوكس اسمه Textbox2

الكود يكون كالتالي :


كود :
Dim textout As String = "00"

        For i = 1 To TextBox1.TextLength
            textout = textout + " " + "0" + TextBox1.Text.Substring(TextBox1.TextLength - i, 1)
        Next

        TextBox2.Text = textout


RE: مساعدة جزاكم الله كل خير - fouadhdfouad - 21-09-18

كلمة شكر لاتكفي في حقك
جزاك ربي كل خير