منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

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

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

123456789

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

01 02 03 04 05 06 07 08 09 00

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

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

لنفرض الرقم (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

كلمة شكر لاتكفي في حقك

جزاك ربي كل خير

منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

fouadhdfouad

حريف برمجة

fouadhdfouad