آرایه ای از اشیاء

[Morteza561]

[حل شده] آرایه ای از اشیاء

سلام

من میخوام یه خصوصیتی رو برای 10 تا از عکس هام به صورت یکجا تغییر بدم.
تو برنامه نویسی vb من عکس ها رو به صورت آرایه در می آوردم و تو حلقه کارم رو انجام میدادم اما اینجا نمیدونم باید چی کنم؟

یه جا تو Help برنامه دیدم نوشته باید از $ استفاده کنم. اسم فایل هام رو به صورت [Bitmap$[1 درآوردم و از این کد استفاده کردم. ولی جواب نمیده:

For i = 1 To 10
ImageOpacity("Bitmap$[i]","10")
Next

کسی میدونه باید چیکار کنم؟

 

[nevercom]

اسم آبجگت ها رو تو یه آرایه بریزید، بعد از همون کد بالا استفاده کنید

Bitmap$[1] = 'Bitmap'
Bitmap$[2] = 'Bitmap1'
Bitmap$[3] = 'Bitmap2'

 

[Morteza561]

دست شما درد نکنه. کاملا درست جواب داد

حالا یه سوال دیگه برام پیش اومده. من میخوام هر وقت کاربر موسش رو برد روی یکی از 10 تا عکسی که روی صفحه گذاشتم، اون عکس پررنگ تر شه و بقیه کمرنگ شند.
اول برنامه Opacity همشون رو گذاشتم روی 50. حالا میخوام با اومدن موس کاربر روی عکس Opacity اون عکس بشه 100. اما این کار رو من فقط موقع کلیک کردن کاربر میتونم انجام بدم. یعنی میام یه اسکریپت به این شکل می نویسم:

ImageOpacity("Bitmap$[m]","100")

بعد میام روی اسکریپت عکس مورد نظر و اینو توش مینویسم:

m=1
RunScript("Script1")

اما این کد فقط به درد کلیک کردن میخوره و برای حرکت موس روی شیء نمیتونم به متغیر مقدار بدم و فقط اسکریپت رو میشه فراخوانی کرد!

پیشنهادتون چیه؟

ممنون از این که زحمت جواب دادن رو میکشید ...