ارور indexOutof

[msajad 501]

سلام این ارور از چیه

 

اینم ساب اسکرول

Sub scroll
scvMain.Initialize(500)
Activity.AddView(scvMain, 0, 10%y, 100%x, 90%y)
PanelHeight=10%y
Dim Imag(q) As ImageView
			Imag(q).Initialize("Imag")  
			For i=1 To q                     
		scvMain.Panel.AddView(Imag(i),10%x,PanelHeight,80%x,35%y)
		PanelHeight=PanelHeight+(35%y)+35dip
				
Next
scvMain.Panel.Height=PanelHeight

End Sub

[مهدی ایزدی 9,203]

درود

بدون تردید خطا مربوط به For i=1 To q هست.

یک سوال: یک q چیه دقیقا ؟ 

[msajad 501]

q یک متغیر گلوبال هست که عددش متغیره (بر اساس داده ورودی) عوض میشه چک کردم q مشکلی نداره

[مهدی ایزدی 9,203]

q یک متغیر گلوبال هست که عددش متغیره (بر اساس داده ورودی) عوض میشه چک کردم q مشکلی نداره

 

توی حلقه 1 رو به 0 و q رو به q-1 تغییر بدید و برنامه رو از طریق debug(legecy) اجرا کنید

ببینید دقیقا کدوم خط رو قرمز میکنه ؟

[msajad 501]

به

Imag(q).Initialize("Imag") 

ایراد میگیره داخل حلقه هم گذاشتم که تک تک Initialize کنه بازم به همین ارور میده

[مهدی ایزدی 9,203]

بنده تست کردم اصلا نمیشه multiImage رو ساخت و Initialize کرد انگار

Image رو توی یک Panel قرار بدید و Parent رو اگه خواستید 0 کنید !

[مهمان]

scvMain.Panel.AddView(Imag(i-1),10%x,PanelHeight,80%x,35%y)