پیدا کردن لیست ایندگس یک ایتم در لیست باکس

[sinashahab]

سلام
می خواهم بدونم چگونه میشه listindex یک آیتم رو پیدا کرد ؟
یعنی
list1.additem "س"
list1.additem "ب"
list1.additem "ک"
حالا میخواهم بدونم listindex ب چند میشه ؟ (بشه سرچ کنه اگه بود listindex رو بده )
:تشویق::تشویق:

[hamed aj]

با سلام





For i = 0 To Form1.List1.ListCount
If (Form1.List1.List(i) = "ب") Then
MsgBox i
Exit For
End If
Next i



موفق باشید

[l3ai3ak]

این روش درسته ولی من روش جالبتر دارم سرعتش بسیار زیادتره و تعداد کمتری کد باید بنویسی


List1.Text = "ب"
MsgBox List1.ListIndex

[hamed aj]

این روش درسته ولی من روش جالبتر دارم سرعتش بسیار زیادتره و تعداد کمتری کد باید بنویسی


List1.Text = "ب"
MsgBox List1.ListIndex



1 - از دیدگاه مهندسی روش مناسبی نیست (عدم جامعیت)
2 - قابلیت جستجو در داده های تکراری را ندارد (مثلاً فرض کنید چند "ب" در لیست وجود دارد)
3 - کم بودن تعداد خطوط، ملاک برتری الگوریتم نیست