[elgokr]

اسف بسبب تغيبى الفترة الاخيرة لانشغالي

بخصوص كيفية جعلا لكود يبداء عند قيمة محددة

فقط عليك عمل التالى

كود :

       Dim aa As String = "abcdefghijklmnopqrstuvwxyz"
       ''---------- لاحظ السطر التالى --------------''
       Dim start As New Boolean
       start = False
       ''------------------------''
       For i As Integer = 0 To aa.Length - 1
           For ii As Integer = 0 To aa.Length - 1
               For iii As Integer = 0 To aa.Length - 1
                   ''---------- لاحظ السطر التالى --------------''
                   If (aa(i) + aa(ii) + aa(iii)).ToString = "aat" Then start = True
                   ''------------------------''
                   If start = True Then
                       ListBox1.Items.Add(aa(i) + aa(ii) + aa(iii))
                       If (aa(i) + aa(ii) + aa(iii)).ToString = "aaz" Then Exit Sub
                   End If
               Next
           Next
       Next

لاحظ الاسطر المشار اليها بـ 

كود :

'' -------------

فى الكود ستجد اننى قمت بعمل البدء من aat

وانهيت الكود عند aaz

تحياتى لك

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