مشکل در حلقه ی for

[mohsenaa 32]

من یک حلقه درست کردم و می خواهم  هر بار یک ایمیج ویو درست شود و هر کدام یک عکس را لود کنند اما موقع اجرا حلقه این خطا را میدهد .

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

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

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

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

 

این واسه مولتی پنل

For i= 0 To 8
	Dim image As ImageView
	image.Initialize("image")
	image.Top=2dip
	image.Tag=i
	image.Height=HorizontalScrollView1.Height-2dip
	image.SetBackgroundImage(LoadBitmap(File.DirAssets,i&".jpg")
	HorizontalScrollView1.Panel.AddView(image,left,0,image.Width,image.Height)
	left=left+image.Width+10dip
Next

حالا واسه رویداد کلیک هم که دیگه این میشه

Sub image_Click
	Dim img As ImageView
	img=Sender
	Select img.Tag
		Case 0
		'هر کاری که میخوای بعد از کلیک روی ایمیج ویوی اول اتفاق بیفته اینجا مینویسی
		Case 1
				.
				.
				.
		Case 8
	End Select
End Sub

[razavioo 310]

Sub Globals

Dim ImageViews As List

End Sub

Sub Activity_Create(FirstTime As Boolean)

ImageViews.Initialize

For i = 0 To 99

Dim iv As ImageView

iv.Initialize("iv")

ImageViews.Add(iv)

Next

'Later to retrieve imageview #57

Dim iv As ImageView

iv = ImageViews.Get(57)

End Sub

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

[mohsenaa 32]

برای تغییرات بر روی image view باید چی کا کرد

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

برای تغییرات بر روی image view باید چی کا کرد

واسه تعریف آرایه از نوع imageview بهتره اینجوری عمل کنید چون کنترل کردن اونا راحت تره

Dim image(8) As ImageView
	For i=0 To 8
		image(i).Initialize("image"&i)
		image(i).SetBackgroundImage(LoadBitmap(File.DirAssets,"i.jpj"))
	Next

واسه کنترل و تغییرات روی اونا هم که دیگه راحته مثلا بخوای پنجمیشو غیر فعال کنی

image(4).Enabled=False

[razavioo 310]

 

واسه تعریف آرایه از نوع imageview بهتره اینجوری عمل کنید چون کنترل کردن اونا راحت تره

Dim image(8) As ImageView
	For i=0 To 8
		image(i).Initialize("image"&i)
		image(i).SetBackgroundImage(LoadBitmap(File.DirAssets,"i.jpj"))
	Next

واسه کنترل و تغییرات روی اونا هم که دیگه راحته مثلا بخوای پنجمیشو غیر فعال کنی

image(4).Enabled=False

سوالی که پیش میاد اینه که شما Event های مربوط به این ImageView رو چطوری انجام می دید چون شما دارید به هر ImageView یک EventName متفاوت اختصاص میدید اینو پرسیدم