ورود

View Full Version : سوال در مورد لیست باکس



Snoopboy
دوشنبه 17 خرداد 1389, 22:46 عصر
با سلام و خسته نباشید . من یه سوال در مورد لیست باکس و جداسازی ایتم های اون دارم .
مثلا من یک لیست Load کردم توی لیست باکس یک . حالا می خوام هر ایتمی که نقطه داره و توش نقطه هست بفرسته به لیست دو و از لیست یک حذف کنه . اگه ممکنه راهنماییم کنید :قلب:

Snoopboy
دوشنبه 17 خرداد 1389, 23:18 عصر
»منون مشکل اول رو حل کردم . یعنی اسامی که نقطه دار هست رو به لیست دو فرستادم حالا می خوام ایتم های که در لیست دو هست از لیست یک حذف بشه

saber187518
سه شنبه 18 خرداد 1389, 01:11 صبح
با سلام
دوست عزیز شما میتونید در حین انتقال حذف رو انجام بدید ، یعنی همئن لحظه که انتفال رو انجام دادی حذف رو هم از لیست اول انجام بدی.
یا اینکه بعد از اتمام تمامی انتقال ها یکی یکی از آیتم های لیست دوم رو توی لیست اول جستجو کنی و از اونجا حذفش کنی.
اگه کد خواستی بگو...
موفق باشی

Snoopboy
سه شنبه 18 خرداد 1389, 01:13 صبح
اگه ممکنه کد رو بزار صابر جان

saber187518
سه شنبه 18 خرداد 1389, 01:30 صبح
با سلام


Private Sub Command1_Click()
List2.AddItem (List1.List(1))
List1.RemoveItem (1)
End Sub

Private Sub Form_Load()
List1.AddItem ("saber")
List1.AddItem ("boroujerd")
List1.AddItem ("test")
End Sub

امیدوارم کارت راه بیفته.
موفق باشی

ali_habibi1384
سه شنبه 18 خرداد 1389, 14:19 عصر
الآن این کدی که نوشتی چیکار داره میکنه؟! فکر میکردم لااقل یک for به اندازه تعداد آیتمهای List1 نیاز داشته باشی؟؟؟

saber187518
سه شنبه 18 خرداد 1389, 15:26 عصر
با سلام
دوست عزیز این قطعه کدی که من گذاشتم برای حذف یک عنصر مشخص به کار رفته.
حالا کسی که برنامه نویسی یه ذره هم بلد باشه خوب میتونه که به جای اون عدد یک شمارنده متغیر بذاره که اتفاقا این متغیر شمارنده یک حلقه هست که هر کاری که میخواد رو میتونه انجام بده.:تشویق:

Snoopboy
سه شنبه 18 خرداد 1389, 19:52 عصر
بله . منم این کد رو با کمی تغییر گذاشتم تو حلقه و خوب کار کرد.