سوال در مورد لیست باکس فوری!!

[iranian-pc]

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

میخوام به هر کدوم از ایتم های لست باکس یه اطلاعتی بدم که وقتی روی چک لیست باکس کلیک کردم و تیک دار شد اطلاعات مربوط به همون ایتم لیست باکس رو در یه تکست باکس نشون بده خیلی عجله دارم شرمنده لطفا سریع کمکم کنید :عصبانی++::متفکر: یه پروژه برای فهمیدن سوالم گذاشتم!!!!!!

[parselearn]

Private Sub List_Sefaresh_Click()
If List_Sefaresh.Selected(List_Sefaresh.ListIndex) = True Then
Text1.Text = List_Sefaresh.List(List_Sefaresh.ListIndex)
End If
End Sub

[iranian-pc]

چطوری به هرکدوم از آیتم ها یه اطلاعات ی بدم مثلا قیمت یا ...

[parselearn]

هر كدوم از آيتمها يك Index دارند
List_Sefaresh.ListIndex
كه شما با توجه به اين يا تكست آيتم ميتوانيد اطلاعات ديگري را نسبت دهيد

[iranian-pc]

Private Sub List_Sefaresh_Click()
If List_Sefaresh.Selected(List_Sefaresh.ListIndex) = True Then
Text1.Text = List_Sefaresh.List(List_Sefaresh.ListIndex)
End If
End Sub


این کد را امتحان کردم و لی نمیشه چند تا رو انتخاب کرد فقط یکی

[iranian-pc]

هر كدوم از آيتمها يك Index دارند
List_Sefaresh.ListIndex
كه شما با توجه به اين يا تكست آيتم ميتوانيد اطلاعات ديگري را نسبت دهيد
میشه یه پروژه برای مثال بزارید ممنون

[parselearn]

این کد را امتحان کردم و لی نمیشه چند تا رو انتخاب کرد فقط یکی
دوست عزيز شما بايد يك حلقه For داشته باشيد و با توجه به index در صورتي كه انتخاب شده بود عمل خود را انجام دهيد

[fazelm]

به نظر من این کار رو بکن که تو سورس زیر گذاشتم
اکثر برنامه ها هم از جمله حسابداری هلو هم همین کار رو میکنن ::