scrollveiw ایجاد کردم و نمایش هم داده میشه. اما ثابت هست و اسکرول نمیشه. یعنی صفحه بالا و پایین نمیره.
ممنون میشم مشکل رو بگین. اینم سورس:
Sub Process_Globals
.
Dim tmr As Timer
Dim s As SQL
End Sub
Sub Globals
'These global variables will be redeclared each time the activity is created.
'These variables can only be accessed from this module.
tmr.Initialize("Timer",2500)
Private ImageView1 As ImageView
Private 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("frm1")
tmr.Enabled=True
If File.Exists(File.DirInternal,"ketabdb.db")=False Then
File.Copy(File.DirAssets,"ketabdb.db",File.DirInternal,"ketabdb.db")
End If
If s.IsInitialized=False Then
s.Initialize(File.DirInternal,"ketabdb.db",False)
End If
Dim cur As Cursor
cur=s.ExecQuery("select * from tbl1")
Dim h As Int
h=2%y
For I=0 To cur.RowCount-1
cur.Position=I
Dim btn As Button
btn.Initialize("btn")
btn.Text=cur.GetString("onvan")
btn.Tag=I+1
Dim b As BitmapDrawable
b.Initialize(LoadBitmap(File.DirAssets,"icon2.png"))
btn.Background=b
ScrollView1.Panel.AddView(btn,0,h,65%x,25%y)
h=h+27%y
Next
End Sub
سوال
سیدمحمد 248
سلام دوستان.
scrollveiw ایجاد کردم و نمایش هم داده میشه. اما ثابت هست و اسکرول نمیشه. یعنی صفحه بالا و پایین نمیره.
ممنون میشم مشکل رو بگین. اینم سورس:
Sub Process_Globals . Dim tmr As Timer Dim s As SQL End Sub Sub Globals 'These global variables will be redeclared each time the activity is created. 'These variables can only be accessed from this module. tmr.Initialize("Timer",2500) Private ImageView1 As ImageView Private 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("frm1") tmr.Enabled=True If File.Exists(File.DirInternal,"ketabdb.db")=False Then File.Copy(File.DirAssets,"ketabdb.db",File.DirInternal,"ketabdb.db") End If If s.IsInitialized=False Then s.Initialize(File.DirInternal,"ketabdb.db",False) End If Dim cur As Cursor cur=s.ExecQuery("select * from tbl1") Dim h As Int h=2%y For I=0 To cur.RowCount-1 cur.Position=I Dim btn As Button btn.Initialize("btn") btn.Text=cur.GetString("onvan") btn.Tag=I+1 Dim b As BitmapDrawable b.Initialize(LoadBitmap(File.DirAssets,"icon2.png")) btn.Background=b ScrollView1.Panel.AddView(btn,0,h,65%x,25%y) h=h+27%y Next End Subلینک ارسال
به اشتراک گذاری در سایت های دیگر
8 پاسخ به این سوال تاکنون داده شده است
ارسال‌های توصیه شده
بایگانی شده
این موضوع بایگانی و قفل شده و دیگر امکان ارسال پاسخ نیست.