عدم تکرار در Listbox

[Aidamoghadam]

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

*اون عدد چون یه چیز ثابت نیست نمی تونم مقایسه رو با یه رشته ثابت مقایسه کنم...

ممنون از همه

[Hashemvp]

سلام دوست عزیز....برای قسمت اول سوالت فکر میکنم توی کتابه برنامه نویسی 1 فنی حرفه ای بود ی همچنین چیزی.!!!!!!!!!!!!

بطور مثال و نمونه شرحش میدم کد نویسیش با خودت.

دو تا لیست باکس میذاری
لیست باکس اول داده های پیش فرضت هستند

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

منتها نکته اش همینجاس

ی شرط و حلقه میذاری


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

خوب اینجا مینویسی اگر این رشته با اون مساوی بود که جلوش عدد مثلا 2 رواضافه کنه بعد که اضافه کرد از حلقه خارج بشه

حالا شرط دوم باید اینطوری باشه بعد از اینکه عدد 2 رو به رشته ات وارد کرد
رشته جدید رو با رکورد های قبلی لیست باکس دوم چک کنه اگر این هم بود عدد رو یکی اضافه کنه
و این حرکت اینقدر تکرار میشه تا عددی ک تکرار نشده رو جلوی اون رشته بذاره
برای مقدار عددی که میخوای جلوی رشته اضافه بشه هم بهتره ی متغیر تعریف کنی که دیگه حجم کد نویسیت بالا نره و فرمولی باشه

موفق باشی

[Aidamoghadam]

ممنونم از وقتی که گذاشتید...اما سوال من در مورد نحوه برنامه نویسیش نیست. يه مقدار بد توضيح دادم..من تابعی رو می خام که بتونم یه رشته رو توی یه رشته دیگه مقایسه کنم...مثلا رشته علی رو در رشته علیرضا مقایسه کنم..

ممنونم از لطفتون...

[isaac23]

سلام دوست عزیز برای مقایسه رشته ها از دستور StrComp استفاده کن مشابه کد زیر اگه جواب 0 بود یعنی با هم برابرند و اگه 1- بود یعنی برابر نیستند و فرق دارند.



MsgBox StrComp("123ab", "123ab", vbTextCompare)