سلام من وقتی میخام اجرا بزنم این ارور رو میده اینم کد
Private Panel1 As Panel
Private Label1 As Label
Private ScrollView1 As ScrollView
Dim sql1 As SQL
Dim cur1 As Cursor
Dim stop As Int = 3%y
Activity.LoadLayout("scroll")
If File.Exists(File.DirAssets,"mydb.db") = False Then
File.Copy(File.DirAssets,"mydb.db",File.DirInternal,"mydb.db")
End If
sql1.Initialize(File.DirInternal,"mydb.db",False)
cur1 = sql1.ExecQuery("select * from tbl_list")
For i = 0 To cur1.RowCount-1
Dim p As Panel
p.Initialize("p")
ScrollView1.Panel.AddView(p,0,stop,100%x,100%y)
stop = stop + 15%y
p.LoadLayout("main")
Label1.Text = cur1.GetString("title")
ScrollView1.Panel.Height = stop
Next
سوال
hosseinji 17
سلام من وقتی میخام اجرا بزنم این ارور رو میده
اینم کد
لینک ارسال
به اشتراک گذاری در سایت های دیگر
8 پاسخ به این سوال تاکنون داده شده است
ارسالهای توصیه شده
بایگانی شده
این موضوع بایگانی و قفل شده و دیگر امکان ارسال پاسخ نیست.