05-04-20, 06:39 PM
05-04-20, 07:01 PM
dim i as integer
for i=0 to listbox1.items.count-1
msgbox(listbox1.items(i)
next
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:10 PM
(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
05-04-20, 07:20 PM
السلام عليكم اخي الكريم
لا يخطئ في هذا الكود اي مبرمج مبتدئ فما بالك بالاستاذ سعود؟
انت لم تذكر ما هو الخظأ .... اعتقد وسأكون منجما هذه المرة انك استخدمت الكود والليست بوكس فارغة فلم يحصل شيئ
!!!!!!!!!!!!؟؟؟؟؟؟!!!!!!!!!!!!
لا يخطئ في هذا الكود اي مبرمج مبتدئ فما بالك بالاستاذ سعود؟
انت لم تذكر ما هو الخظأ .... اعتقد وسأكون منجما هذه المرة انك استخدمت الكود والليست بوكس فارغة فلم يحصل شيئ
!!!!!!!!!!!!؟؟؟؟؟؟!!!!!!!!!!!!
05-04-20, 07:23 PM
كتبته على السريع ومع ذلك جربته ونجح
PHP كود :
Dim i As Integer
For i = 0 To ListBox1.Items.Count - 1
MsgBox(ListBox1.Items(i))
Next
05-04-20, 07:28 PM
(05-04-20, 07:20 PM)ابراهيم ايبو كتب : [ -> ]السلام عليكم اخي الكريم
لا يخطئ في هذا الكود اي مبرمج مبتدئ فما بالك بالاستاذ سعود؟
انت لم تذكر ما هو الخظأ .... اعتقد وسأكون منجما هذه المرة انك استخدمت الكود والليست بوكس فارغة فلم يحصل شيئ
!!!!!!!!!!!!؟؟؟؟؟؟!!!!!!!!!!!!
أخي الفاضل انا بصمم فورم في قيمة متغير وليست ثابتة فانا صممت txt & listbox & btn
فانا عايز اعمل لوب عشان اجيب اي حاجة ادخلها جوا listbox فهمتني ؟؟
05-04-20, 07:54 PM
السلام عليكم اخي الكريم
هذا هو سؤالك
لو سمحت عايز اعمل LOop على Items داخل ListBox
مالطريقة
هذا هو سؤالك
لو سمحت عايز اعمل LOop على Items داخل ListBox
مالطريقة
05-04-20, 08:23 PM
ضع مثالك وان شاء الله بنساعدك
05-04-20, 08:26 PM
(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
ما الخطأ هنا
05-04-20, 08:36 PM
جرب هيك
كود :
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