[ابو روضة]

(15-04-20, 03:10 AM)ابراهيم ايبو كتب : السلام عليكم اخي ابو روضة
التسلسل هنا في هذه الاداة مثل التسلسل الابجدي اولا يسلسل الخانة الاولى من الشمال ثم الثانية ثم الثالثة
اخي ابو روضة اجعل الارقام بهذه الطريقة
003
005
012
055
023
123
009
202
045
076
لانها ليست ارقام بل نصوص

---

السلام عليكم اخي ابو روضة 
من اول كود مشي الحال
يقوم باضافة اصفار الى يسار الرقم حسب النواقص هنا اعتبرت 3 خانات
اليك الكود

كود :

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
       For i As Integer = 0 To ListBox1.Items.Count - 1
           If ListBox1.Items(i).ToString.Length = 1 Then
               ListBox1.Items(i) = "00" & ListBox1.Items(i).ToString
           ElseIf ListBox1.Items(i).ToString.Length = 2 Then
               ListBox1.Items(i) = "0" & ListBox1.Items(i).ToString
           End If
       Next
   End Sub

الله يكرمك أخى ابراهيم ويبارك بعمرك.