[عاصم النجار]

لو سمحت عايز اعمل LOop على Items داخل ListBox 

مالطريقة

[سعود]

dim i as integer
for i=0 to listbox1.items.count-1

msgbox(listbox1.items(i)

next

PHP كود :

dim i as integer
for i=0 to listbox1.items.count-1

msgbox(listbox1.items(i))

next 


[عاصم النجار]

(05-04-20, 07:01 PM)سعود كتب : dim i as integer
for i=0 to listbox1.items.count-1

msgbox(listbox1.items(i)

next

ظاهر لي خطا بالكود

PHP كود :

dim i as integer
for i=0 to listbox1.items.count-1

msgbox(listbox1.items(i))

next 


[ابراهيم ايبو]

السلام عليكم اخي الكريم
لا يخطئ في هذا الكود اي مبرمج مبتدئ فما بالك بالاستاذ سعود؟
انت لم تذكر ما هو الخظأ .... اعتقد وسأكون منجما هذه المرة انك استخدمت الكود والليست بوكس فارغة فلم يحصل شيئ
!!!!!!!!!!!!؟؟؟؟؟؟!!!!!!!!!!!!

[سعود]

كتبته على السريع ومع ذلك جربته ونجح

PHP كود :

  Dim i As Integer
        For i = 0 To ListBox1.Items.Count - 1

            MsgBox(ListBox1.Items(i))

        Next 


[عاصم النجار]

(05-04-20, 07:20 PM)ابراهيم ايبو كتب : السلام عليكم اخي الكريم
لا يخطئ في هذا الكود اي مبرمج مبتدئ فما بالك بالاستاذ سعود؟
انت لم تذكر ما هو الخظأ .... اعتقد وسأكون منجما هذه المرة انك استخدمت الكود والليست بوكس فارغة فلم يحصل شيئ
!!!!!!!!!!!!؟؟؟؟؟؟!!!!!!!!!!!!

أخي الفاضل انا بصمم فورم في قيمة متغير وليست ثابتة فانا صممت txt & listbox & btn 
فانا عايز اعمل لوب عشان اجيب اي حاجة ادخلها جوا listbox فهمتني ؟؟

[ابراهيم ايبو]

السلام عليكم اخي الكريم 
هذا هو سؤالك 
لو سمحت عايز اعمل LOop على Items داخل ListBox 

مالطريقة

[aljzazy]

ضع مثالك وان شاء الله بنساعدك

[عاصم النجار]

(05-04-20, 08:23 PM)aljzazy كتب : ضع مثالك وان شاء الله بنساعدك

PHP كود :

 Dim k As Integer = -1
        For i As Integer = 0 To MainPage.ListBox1.Items.Count - 1
            k = k + 1
            txt += MainPage.ListBox1.Items(i)
            If k < MainPage.ListBox1.Items.Count - 1 Then
                txt += " , "
            ElseIf k = MainPage.ListBox1.Items.Count - 1 Then
                txt += " , " + (i + 1).ToString() + ", " + (i + 2).ToString() + "})" + Environment.NewLine
            End If
        Next 


ما الخطأ هنا

[aljzazy]

جرب هيك

كود :

Dim k As Integer
       For i As Integer = 0 To MainPage.ListBox1.Items.Count - 1
           k +=   1
           txt += MainPage.ListBox1.Items(i)
           If k < MainPage.ListBox1.Items.Count - 1 Then
               txt += " , "
           ElseIf k = MainPage.ListBox1.Items.Count - 1 Then
               txt += " , " + (i + 1).ToString() + ", " + (i + 2).ToString() + "})" + Environment.NewLine
           End If
       Next