کمک | قراردادن اسکرول ویو برای این کد

[parsixa 35]

سلام خسته نباشید ..

 

 

میخواستم واسه این کد اسکرول ویو قرار بدم ، اون اسکرول ویویی که خودم نوشتم جوابگو نیس و کار نمیده ،

 

اگه ممکنه از اساتید اونایی که وارد هستن این کد رو براش اسکرول ویو قرار بدن و کد اصلاح شده رو توی همین تاپیک بزارن ،

 

بی نهایییت سپاس گزارم

 

 

اینم کد :

Sub Globals
	'These global variables will be redeclared each time the activity is created.
	'These variables can only be accessed from this module.
	Dim label1 As Label
	Dim imageview1 As ImageView
	Dim imgdb As Bitmap
	Dim ScrollView1 As ScrollView
End Sub

Sub Activity_Create(FirstTime As Boolean)
	'Do not forget to load the layout file created with the visual designer. For example:
Activity.LoadLayout("main")
	imageview1.Initialize("")
	label1.Initialize("")
	
Dim farakhani1 As Farakhani
farakhani1.FarakhaniMatn("db.db",Main.sql,Main.cur,"SELECT * FROM table WHERE id=",Main.livv,label1,"cnt")
farakhani1.FarakhaniImage("db.db",Main.sql,Main.cur,"SELECT * FROM table WHERE id=",Main.livv,"img",imgdb)
imageview1.Bitmap = imgdb
	ScrollView1.Panel.AddView(label1,2%x,18%y,96%x,98%y)
End Sub

[shahab.msb 326]

ScrollView1.Panel.height=label1.height

 

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