کلیک آرایه

[mamad20 18]

با سلام . 4 تا عکس بصورت آرایه تعریف شده که میخوام عکس چهارم به صورت کلیک عمل کنه که بتونم ساب کلیلک براش تعریف کنم که یه منو از سمت راست باز بشه . ولی نمیدونم چطوری تعریف کنم 

	For i=1 To 4
		up.Initialize(LoadBitmap(File.DirAssets,i&".png"))	'این عکس دکمه در حالت عادی و غیر فشرده شدن است
		b(i).Initialize("b")
		b(i).Background=up
		hs.Panel.AddView(b(i),offx,offy,12%x,12%x)
		offx=offx+24%x
		b(i).Tag=i
		cunt = i		
	Next

[محمدرضا شاهپیری 5,579]

دوست عزیز آرایه رو از صفر شروع کن نه 1 اینجوری که ارور sizeindex میده

شما نیازی نیست آرایه تعریف کنید وقتی از مولتی پنل استفاده میکنید

به صورت زیر اول حلقه رو بنویسید

For i=0 To 3
		up.Initialize(LoadBitmap(File.DirAssets,(i+1)&".png"))	'این عکس دکمه در حالت عادی و غیر فشرده شدن است
		b.Initialize("b")
		b.Background=up
		hs.Panel.AddView(b,offx,offy,12%x,12%x)
		offx=offx+24%x
		b.Tag=i
		cunt = i		
	Next

حالا تو sub زیر که مال کلیک هست چک میکنیم اگه تگش 3 (یعنی باتن چهار) بود اون کاری که میخوای انجام بشه

sub b_Click
dim b as Button
b=sender
if b.tag=3 then
اینجا کاری که میخوای انجام بده
end if
End sub