کنترل خاصیت پیکچرباکس با مقادیر لیست باکس

[samiasoft]

سلام

فرض کنیم در یک لیست باکس 10 تا مقدار yes و no نوشته شده باشه مثلا 5 تاش yes و 5 تای دیگری no.

من در فرمم هم 10 تا پیکچرباکس دارم میخواستم که اگر در سطر اول لیست باکس نوشته شده باشه yes پیکچرباکس 1 نشون داده بشه

و همینطور اگر سطر سوم نوشته شده باشه no پیکچرباکس3 مخفی بشه و....

ممنون میشوم راهنمایی کنین

[_mojitaba_]

اگه پیکچر باکساتون آرایه ای تعریف شده باشن میتونین با اندیس آیتم های لیست باک کنترلشون کنید

کدش یه همچین چیزی میشه


For i = 0 To ubound(list1)
If List1.List(i) = "yes" Then Pic1(i).Visible = True Else Pic1(i).Visible = False
Next