مهدی ایزدی 9,203 ارسال شده در 11 فروردین، ۱۳۹۵ اشتراک گذاری ارسال شده در 11 فروردین، ۱۳۹۵ دو تا لایه و یک اکتیویتی داریم اسم یکی از لایه ها که فقط اسکرول ویو داره : 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 نمایش داده میشه لینک ارسال به اشتراک گذاری در سایت های دیگر تنظیمات بیشتر اشتراک گذاری ...
ارسالهای توصیه شده
بایگانی شده
این موضوع بایگانی و قفل شده و دیگر امکان ارسال پاسخ نیست.