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

با سلام
لطفا راهنمائی کنید که چطور می توانم در لیست باکس جستجو کنم
می خوام در تکست باکس متن مورد نظر را بنویسم و در لیست باکس نشان دهد
با تشکر

ليست باكس VB6 متدي براي جستجو ندارد
و بايد دستوري براي اين كار نوشت

براي تعداد آيتمهاي كم استفاده از حلقه ساده ترين راه حل هست

Private Sub Command1_Click()

For i = 0 To List1.ListCount

    If (InStr(1, List1.List(i), Text1.Text)) Then

        List1.ListIndex = i

        Exit For

    End If

Next i

End Sub



Private Sub Form_Load()

    List1.AddItem "ans"

    List1.AddItem "hg"

    List1.AddItem "rqp"

End Sub

سوال شما رو من 4 سال پيش در همين انجمن سوال كردم. و دوستان دو نوع كد گذاشتند كه فكر كنم يكي با API بود براي داده هاي زياد
متاسفانه پيداش نكردم

سلام
نمونه زیر برای لیست باکسهای حجیم مناسب میباشد (با استفاده از APIی SendMessage)

موفق باشید

سلام

من هم یک سوال داشتم

اگر به فرض 25 تا کلمه وارد کرده باشیم
(به این شکل)

علی
رضا
اکبر
محمد
میلاد
و
.......

چطوری می توانم وقتی که روی هر کدام از انها کلیک کردم بنویسد کاراکتر چندم

مثلا اگر روی محمد کلیک کردم نشان کاراکتر 4

سلام علیکم
برای دانستن index آیتم انتخاب شده از خصیصه ListIndex مربوط به List استفاده میکنیم، بدین صورت:
List1.ListIndex

البته اینگونه که بنده از سوالتون برداشت کردم جواب دادم، اگه منطورتون گونه دیگری است بفرمائید در خدمتیم

موفق باشید

ممنون درست بود

حالا اگر بخواهم ما بین لیست باکس مثلا


علی
رضا
اکبر
محمد
میلاد
و
.......

بین اکبر و محمد گزینه اضافه کنم چه کار باید بکنم

تابع AddItem خود شامل دو پارامتر است، اولی عنوان ایتم و دومی شاخص مکانی آیتم را مشخص میکند که بصورت پیش فرض در صورت عدم تنظیم آن، آیتم به ابتدای لیست افزوده میشود شما میتوانید شماره شاخص مورد نظر که در واقع شماره مکان آیتم است را در این قسمت جایگزین کنید، برای نمونه برای افزودن آیتمی مابین دو آیتم "علی" و "محمد" باید شاخص 3 را برای آیتم جدید در نظر بگیرید، به تصویر زیر توجه کنید

موفق باشید