آموزش فرخوانی و متن در مالتی پنل

[omid-j 28]

 

بسم الله الرحمن الرحیم

با سلام و عرض ادب احترام

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

سورس سالم و کاملا تست شده که البته توسط خودم نوشته شده و تست کردم

در قسمت sub globals  اگر دوستان دقت کنند باید در دیزاین خود موارد یاد شده را طراحی کنند  و بعد طبق دستورات وارد کنند

 

Sub Process_Globals
	Dim sql1 As SQL
End Sub

Sub Globals
	Dim cur As Cursor
	Dim stop As Int =2%y
	Private ScrollView1 As ScrollView
	Private lbl As Label
	Private img As ImageView
	Private Panel1 As Panel
	Private WebView1 As WebView
End Sub

Sub Activity_Create(FirstTime As Boolean)
	
	Activity.LoadLayout("scroll")
	
	
	If File.Exists(File.DirInternal,"test1.db") = False Then
		File.Copy(File.DirAssets,"test1.db",File.DirInternal,"test1.db")
	End If
	
	 sql1.Initialize(File.DirInternal,"test1.db",False)
	 cur = sql1.ExecQuery("select * from tbltest")
	 
	 For i=0 To cur.RowCount -1
	 	cur.Position =i
	
	Dim p As Panel
	p.Initialize("p")
	
	p.LoadLayout("multi")
	ScrollView1.Panel.AddView(p,0,stop,100%x,100%y)
	stop = stop + 40%y
	
	img.Bitmap=LoadBitmap(File.DirAssets,cur.GetString("ax")& ".png")
	lbl.Text = cur.GetString("txt")
	
	Next
	ScrollView1.Panel.Height= stop+2%y
	cur.Close
End Sub