كيف اتعامل مع List

في المرفقات مثال يوضح التعامل مع List

أرجو أن يفيدك ، تحياتي

List1All.rar

شكرا لك اخي محمد

ولكني لم اعني هذا

انا استفدت من خاصية البحث

افادتني كثيرا

ولكن ما اعنيه هو زي هذا المثال

الان عندي العناصر الاتية في List :

1- محمد

2- احمد

3 محمود

ابغى اسوي command1 واخلي اول ما اضغطه بحددلي اول عنصر في القائمة وهو "محمد"

وابغى اسوي زر command2 واللي ال Caption حقه "التالي" لما اضغطه يروح يحدد العنصر التالي

وهو "أحمد"

هل اقدر اسوي الحركة هذي في القوائم List ؟؟؟؟؟

هذا هو استفساري

وشكرا جزيلا

يمكنك الاستفاده من خاصيه

list.listindex

نعم اخي يمكنك فعل ذلك

يجب أولاً تعبئة List1 بالأسماء

الكود التالي ضعه في General

dim x as integer

ويتم وضع الكود التالي في كوماند

on error goto 1
if list1.selected(x)= false then
list1.selcted(x) = true
exit sub
end if
x=x+1
list1.selcted(x)=true
exit sub
1:

ولو الصورة غير واضحه سوف ارفق مثال لذلك

تحياتي

Private Sub Form_Load()
List1.RightToLeft = True
List1.AddItem "محمد"
List1.AddItem "احمد"
List1.AddItem "محمود"

List1.ListIndex = 0
Command1.Caption = "Next >"
End Sub


Private Sub Command1_Click()
Static i
i = i + 1

If i < List1.ListCount Then
   List1.ListIndex = i
Else
   i = 0
   List1.ListIndex = 0
End If
End Sub

اخي طالع الموضوع التالي ربما يفيد :::

الرابط

واي استفسار ان شاء الله انا جاهز ;)

شكرا على جميع الردود

لقد افدتموني كثيرا

تحياتي