رفتن به مطلب

مولتی پنل ساده (Multi Panel ساده) به همراه تگ و سندر


مهدی ایزدی

ارسال های توصیه شده

دو تا لایه و یک اکتیویتی داریم

اسم یکی از لایه ها که فقط اسکرول ویو داره : Scroll

اسم لایه اصلی هم: Layout1

Sub Globals
	Private Label1 As Label
	Private Panel1 As Panel
	Private ScrollView1 As ScrollView
	Dim sql1 As SQL
	Dim cur1 As Cursor
	Dim stop As Int = 3%y
	Private Button1 As Button
End Sub

Sub Activity_Create(FirstTime As Boolean)
	Activity.LoadLayout("Scroll")
	If File.Exists(File.DirInternal,"panelx.db") = False Then
	File.Copy(File.DirAssets,"panelx.db",File.DirInternal,"panelx.db")
	End If
	sql1.Initialize(File.DirInternal,"panelx.db",False)
	cur1 = sql1.ExecQuery("SELECT * FROM tbl")
	
	For i = 0 To cur1.RowCount-1   
	cur1.Position=i
	Dim p As Panel
	p.Initialize("p")
	ScrollView1.Panel.AddView(p,0,stop,100%x,100%y)
	p.LoadLayout("Layout1")
	Label1.Text = cur1.GetString("txt")
	stop = stop + 35%y
	Button1.Tag = cur1.GetString("ez")
	ScrollView1.Panel.Height = stop
	Next
End Sub

Sub Button1_Click
	Dim iz As Button
	iz = Sender
	Dim webview1 As WebView
	webview1.Initialize("webview1")
	webview1.LoadUrl(iz.Tag)
	Activity.AddView(webview1,0,0,100%x,100%y)
End Sub

اطلاعات رو از دیتابیس آفلاین میخونیم.

از تگ و سندر هم استفاده کردیم.

توی دیتابیس ما در فیلد ez اومدیم لینک یک سری سایت هارو وارد کردیم که ez رو به صورت tag قرار دادیم برای Button.

وقتی که روی Button کلیک بشه اون لینک مورد نظر در یک WebView نمایش داده میشه

لینک ارسال
به اشتراک گذاری در سایت های دیگر

بایگانی شده

این موضوع بایگانی و قفل شده و دیگر امکان ارسال پاسخ نیست.

  • کاربران آنلاین در این صفحه   0 کاربر

    • هیچ کاربر عضوی،در حال مشاهده این صفحه نیست.
×
×
  • اضافه کردن...