تعریف متغییر به وسیله حلقه

[terzdax]

سلام
من چنین کدی دارم



For index = 1 To 10
Dim a1 As New Bitmap(WindowsApplication1.My.Resources.Resources. _01)

Next


و به این صورت صحیح هستش ولی من میخوام در هربار اجرای حلقه به نام متغییر یعنی a1 یک واحد اضافه شود مثلا بشه a2 و همچنین اخر خط کد که نوشته 01 و اسم فایل عکس داخل ریسورس هستش نیز یک واحد اضافه شود مثلا 02
از هر روشی رفتم نشد لطفا دوستان کمک رسانی کنن:لبخند:
با تشکر

[ilia.rezaee]

با عرض سلام
بفرمایید این جا به شما پاسخ داده شده است:
http://mtpars.ir/showthread.php?3522-%D8%AA%D8%B9%D8%B1%DB%8C%D9%81-%D9%85%D8%AA%D8%BA%DB%8C%DB%8C%D8%B1-%D8%A8%D9%87-%D9%88%D8%B3%DB%8C%D9%84%D9%87-%D8%AD%D9%84%D9%82%D9%87&p=10546&viewfull=1#post10546

[terzdax]

همچنان منتظر جواب کامل دوستان هستیم :لبخندساده:

[mc_laren]

برای انجام اینکار باید از آرایه استفاده کنی.
در این مثال اسم فایل ها رو image گذاشتم

Dim a(10) As Bitmap
For index = 1 To 10
a(index - 1) = (CType(My.Resources.ResourceManager.GetObject("Image" + index.ToString), Bitmap))
Next
Me.PictureBox1.Image = a(0)

[tstsst]

اگه تعداد نا مشخصی می خوای ذخیره کنی بهتره اینطوری بنویسی

Dim a As New List(Of Bitmap)
For index = 1 To n
a.Add((CType(My.Resources.ResourceManager.GetObjec t("Ima ge" + index.ToString), Bitmap)))
Next
Me.PictureBox1.Image = a(0)

[terzdax]

تشکر فراوان دارم از تمام دوستان
کدهای دو پست اخر رو چک کردم کامل هستن