دکمه های اسکرول ویو رو میخام بیارمشون دقیقا وسط اسکرول ویو اما نه از طریق دیزاینر تونستم و نه با کد نوشتن.
میخوام بدونم چکار بایستی انجام بدم. ممنون میشم راهنمایی کنید.
Sub Process_Globals
Dim tmr As Timer
Dim s As SQL
Dim fasl As String
End Sub
Sub Globals
Private ImageView1 As ImageView
Private ScrollView1 As ScrollView
Private EditText1 As EditText
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.Initialize("Timer",2200)
tmr.Enabled=True
Activity.AddMenuItem("نشان گذاری شده ها","neshan")
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
If cur.GetInt("neshan")=0 Then
Dim b As BitmapDrawable
b.Initialize(LoadBitmap(File.DirAssets,"icon2.png"))
btn.Background=b
Else
Dim b As BitmapDrawable
b.Initialize(LoadBitmap(File.DirAssets,"icon1.png"))
btn.Background=b
End If
ScrollView1.Panel.AddView(btn,0,h,56%x,30%y)
h=h+31%y
Next
ScrollView1.Panel.Height = (cur.RowCount * 39%Y)
End Sub
سوال
سیدمحمد 248
سلام دوستان. وقتتون بخیر
دکمه های اسکرول ویو رو میخام بیارمشون دقیقا وسط اسکرول ویو اما نه از طریق دیزاینر تونستم و نه با کد نوشتن.
میخوام بدونم چکار بایستی انجام بدم. ممنون میشم راهنمایی کنید.
Sub Process_Globals Dim tmr As Timer Dim s As SQL Dim fasl As String End Sub Sub Globals Private ImageView1 As ImageView Private ScrollView1 As ScrollView Private EditText1 As EditText 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.Initialize("Timer",2200) tmr.Enabled=True Activity.AddMenuItem("نشان گذاری شده ها","neshan") 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 If cur.GetInt("neshan")=0 Then Dim b As BitmapDrawable b.Initialize(LoadBitmap(File.DirAssets,"icon2.png")) btn.Background=b Else Dim b As BitmapDrawable b.Initialize(LoadBitmap(File.DirAssets,"icon1.png")) btn.Background=b End If ScrollView1.Panel.AddView(btn,0,h,56%x,30%y) h=h+31%y Next ScrollView1.Panel.Height = (cur.RowCount * 39%Y) End Subسورس:
لینک ارسال
به اشتراک گذاری در سایت های دیگر
15 پاسخ به این سوال تاکنون داده شده است
ارسال‌های توصیه شده
بایگانی شده
این موضوع بایگانی و قفل شده و دیگر امکان ارسال پاسخ نیست.