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

[parselearn]

با سلام
دوستان من در حال ساخت برنامه ای هستم (VB6)
که اطلاعات در یک جعبه متن وارد میشه و با زدن کلید اضافه
متن جعبه متن به جعبه لیست یا (List Box) اضافه میشه
می خواستم در صورت یکسان بودن اطلاعات جعبه متن با اطلاعات جعبه لیست به لیست اضافه نشود
دوستان کدی برای این عمل دارند؟

[bobrus]

نیاز به کد ندارد زیاد سخت نیست
باید متن textbox رو با تمام آیتمهای ListBox مقایسه کنی و اگه نبود اضافه کنی در غیر انیصورت پیغام تکراری بودن رو صادر کنه
یعنی یه حلقه for next یا while wend می خواد تعداد آیتمهاتم که اینجوری پیدا میشه List1.ListCount

[مبین رنجبر]

bobrus جان اگر تعداد اطلاعاتمون 100000 تا بود چی ؟ باید منتظر بمونیم تا حلقه یکی یکی چک کنه ؟ این راه درستش نیست ... من اینجا یه سورس واستون گذاشتم واسه جستجوی سریع در ListBox بدون حلقه

[bobrus]

bobrus جان اگر تعداد اطلاعاتمون 100000 تا بود چی ؟ باید منتظر بمونیم تا حلقه یکی یکی چک کنه ؟ این راه درستش نیست ...
هیچ کس نمیاد اینهمه رکورد رو توی یه listbox قرار بده و اگر هم زمانی یه همچین اتفاقی بیوفته بدون که توی طراحی برنامش اشتباه کرده درضمن توی لیست باکس به اندازه ای میتوان رکورد وارد کرد که حداکثر حجمش از 255کیلو بایت بیشتر نشه
listbox برای انتخاب چند گزینه نهایتاً تا 100 نوع می باشد ( تعریف یوزر فرندلی بودن) چون از این ابزار برای مفهوم کردن برنامه و آسانی انتخاب برای کاربر استفاده می شود و در صورت بیشتر بودن از دسته بندی کردن استفاده می شود