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

[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 - کم بودن تعداد خطوط، ملاک برتری الگوریتم نیست