انتخاب آیتم های Listbox به صورت رندوم

[loads]

سلام دوستان
من رو فرمم یه Listbox دارم که 120 تا آیتم داخلش هست و میخوام با فشار رو یه دکمه هر بار یکی از اونها به صورت رندم انتخاب بشه ولی تکراری نداشته باشه ! چه راهی پیشنهاد میکنید ؟

[xxxxx_xxxxx]

سلام،
برای رندوم بودن که خب معلومه از تابع Rnd استفاده می کنیم و خروجی تابع رو به عنوان ListIndex با شی List میدیم. و برای تکراری نبودن، هر بار که یکی از آیتم ها انتخاب شد، ListIndex اونو به داخل یک متغیر رشته ای اضافه می کنیم و دفعه بعد چک می کنیم که ListIndex آیتمی که انتخاب شده در اون متغیر رشته ای نباشه.

[BookWorm]

سلام دوست عزیز ، پاسخ کامل بود ولی نمیدونم جواب گرفتی یا نه ؟ با این حال


Private Sub Form_Load()
Randomize
End Sub
Private Sub Command1_Click()
List1.Selected(Rnd * List1.ListCount - 1) = True
End Sub