دادن داده به ComboBox

[SeyedMoosavi]

سلام دوستان
چه طور میشه به یک Combo Box داده بدیم طوری که خودش تست کنه اگر این داده رو قبلا وارد کردیم دیگه وارد نکنه یا به عبارتی تکراری نشه توش وارد کرد؟
با تشکر

[SeyedMoosavi]

کسی نیست کمک کنه؟

[xxxxx_xxxxx]

شما می تونید در یک حلقه for از 0 تا combo1.listcount-1 مقدار وارد شده (جدید) را با یکایک آیتم های کمبو مقایسه کنید و اگر حاصل برابر بود عمل additem انجام نشود. به این صورت



for i=0 to combo1.listcount-1
if combo1.list(i)<>x then
combo1.additem x
end if
next i


موفق باشید

[SeyedMoosavi]

میشه یه نمونه بزاری؟

[xxxxx_xxxxx]

من CN هستم اما...
مثلا می خواهیم با کلیک بر روی command1 عبارت text1 در combo1 وارد شود. ok؟



private sub command1_click()
if text1.text<>"" then
for i=0 to combo1.listcount-1
if text1.text<>combo1.list(i) then combo1.additem text1.text
next i
end if



احتمال داره خطای کوچیکی داشته باشه. آخه من الان CN هستم و VB ندارم که چک کنم.

[xxxxx_xxxxx]

یک end sub هم به آخرش اضافه کن

[SeyedMoosavi]

بازم کار نمی کنه
آخه خالی کمبو
for i=0 to combo1.listcount-1
یعنی 0 رو منهای 1 کنه؟
برای شروع باید چیکار کرد؟

[SeyedMoosavi]

حالا که تست کردم تکراری هم وارد میکنه

[فاطمه وطن دوست]

سلام :لبخندساده: