#Region Activity Attributes
#FullScreen: true
#IncludeTitle: false
#End Region
Sub Process_Globals
'These global variables will be declared once when the application starts.
'These variables can be accessed from all modules.
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.
Dim PH As Phone
Private ScrollView1 As ScrollView
Dim SQL As SQL
Dim tartib As String
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("l5")
PH.SetScreenOrientation(0)
If File.Exists(File.DirInternal,"ahadis3.db") = False Then
File.Copy(File.DirAssets,"ahadis3.db",File.DirInternal,"ahadis3.db")
End If
If SQL.IsInitialized = False Then
SQL.Initialize(File.DirInternal,"ahadis3.db",True)
End If
Dim cur As Cursor
cur=SQL.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("emam")
btn.Tag=i+1
btn.TextColor = Colors.Black
Dim b As BitmapDrawable
b.Initialize(LoadBitmap(File.DirAssets,"hashie.jpg"))
btn.Background=b
ScrollView1.Panel.AddView(btn,0,h,25%x,20%y)
h=h+22%y
Next
Dim f As Button
f = Sender
f.Initialize("f")
tartib=f.Tag
Dim cur As Cursor
cur=SQL.ExecQuery("SELCT * FROM tbl1 WHERE tartib="&tartib)
cur.Position=0
Dim label1 As Label
label1.Initialize("Label1")
label1.Text = cur.GetString("mtn")
ScrollView1.Panel.AddView(label1,0,0,ScrollView1.Width,ScrollView1.Height)
Dim su As StringUtils
label1.Height=su.MeasureMultilineTextHeight(label1,label1.text)
ScrollView1.Panel.Height=su.MeasureMultilineTextHeight(label1,label1.text)+10%y
End Sub
Sub Activity_Resume
End Sub
Sub Activity_Pause (UserClosed As Boolean)
End Sub
سوال
dr.mohammad 68
سلام من چهارده باتن از دیتا بیس گرفتم و میخواستم بازدن روی هرکدامشون متن در همان صفحه نمایش داده شود مانند تصویر http://s6.picofile.com/file/8226277750/Screenshot_%DB%B2%DB%B0%DB%B1%DB%B5_%DB%B1%DB%B2_%DB%B0%DB%B4_%DB%B1%DB%B3_%DB%B2%DB%B0_%DB%B0%DB%B3.png
که در اکتویتیم از کد زیر استفاده می کنم
#Region Activity Attributes #FullScreen: true #IncludeTitle: false #End Region Sub Process_Globals 'These global variables will be declared once when the application starts. 'These variables can be accessed from all modules. 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. Dim PH As Phone Private ScrollView1 As ScrollView Dim SQL As SQL Dim tartib As String 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("l5") PH.SetScreenOrientation(0) If File.Exists(File.DirInternal,"ahadis3.db") = False Then File.Copy(File.DirAssets,"ahadis3.db",File.DirInternal,"ahadis3.db") End If If SQL.IsInitialized = False Then SQL.Initialize(File.DirInternal,"ahadis3.db",True) End If Dim cur As Cursor cur=SQL.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("emam") btn.Tag=i+1 btn.TextColor = Colors.Black Dim b As BitmapDrawable b.Initialize(LoadBitmap(File.DirAssets,"hashie.jpg")) btn.Background=b ScrollView1.Panel.AddView(btn,0,h,25%x,20%y) h=h+22%y Next Dim f As Button f = Sender f.Initialize("f") tartib=f.Tag Dim cur As Cursor cur=SQL.ExecQuery("SELCT * FROM tbl1 WHERE tartib="&tartib) cur.Position=0 Dim label1 As Label label1.Initialize("Label1") label1.Text = cur.GetString("mtn") ScrollView1.Panel.AddView(label1,0,0,ScrollView1.Width,ScrollView1.Height) Dim su As StringUtils label1.Height=su.MeasureMultilineTextHeight(label1,label1.text) ScrollView1.Panel.Height=su.MeasureMultilineTextHeight(label1,label1.text)+10%y End Sub Sub Activity_Resume End Sub Sub Activity_Pause (UserClosed As Boolean) End Subاما وارد برنامه میشم ارور زیر را دریافت می کنم
http://s6.picofile.com/file/8226277800/Screenshot_%DB%B2%DB%B0%DB%B1%DB%B5_%DB%B1%DB%B2_%DB%B0%DB%B4_%DB%B1%DB%B2_%DB%B4%DB%B2_%DB%B2%DB%B7.png
ممنون میشم راهنمایی کنید
لینک ارسال
به اشتراک گذاری در سایت های دیگر
17 پاسخ به این سوال تاکنون داده شده است
ارسال‌های توصیه شده
بایگانی شده
این موضوع بایگانی و قفل شده و دیگر امکان ارسال پاسخ نیست.