با عرض سلام منکتابخونه ای درست کردم با مولتیپنل اما اطلاعات دریافتی رو کامل روی صفحه سفید شکل زیر نمیاره میخواتم بدونم کدی که در زیرگذاشتم مشکل داره یا اسکرول ویو البته من تازه بامولتی کار میکنم
همون طور که تو شکل مشخصه ادامه داره متن اما روی صفحه سفید نمیادش
#Region Activity Attributes
#FullScreen: True
#IncludeTitle: False
#End Region
Sub Process_Globals
Dim SQL1 As SQL
Dim cursur1 As Cursor
End Sub
Sub Globals
Private Panel1 As Panel
Private Label1 As Label
Private btnnumber As Button
Private btnshare As Button
Private btncopy As Button
Private ScrollView1 As ScrollView
Private Label4 As Label
Dim myfont As Typeface
Dim text As String
Dim ht As Float
Dim StrUtil As StringUtils
Dim PanelHeight As Int
End Sub
Sub Activity_Create(FirstTime As Boolean)
If File.Exists(File.DirInternal,"sms1.db")=False Then
File.copy(File.DirAssets,"sms1.db",File.DirInternal,"sms1.db")
End If
If SQL1.IsInitialized = False Then
SQL1.Initialize(File.DirInternal,"sms1.db",True)
End If
cursur1 = SQL1.ExecQuery("SELECT txt FROM tbl")
myfont = Typeface.LoadFromAssets("byekan.ttf")
Activity.LoadLayout("sv")
For i=0 To cursur1.RowCount-1
cursur1.Position=i
text= cursur1.GetString("txt")
ScrollView1.Panel.Color = Colors.Transparent
Dim p1 As Panel
p1.Initialize("")
p1.LoadLayout("NOIS")
ScrollView1.Panel.AddView(p1,0,PanelHeight,1000%x,1000dip)
Label4.text="بینی گوشتی"
Label4.Typeface=Typeface.LoadFromAssets("byekan.ttf")
btnshare.Tag = i
btncopy.Tag = i
btnnumber.text = i + 1
btnnumber.Typeface=Typeface.LoadFromAssets("byekan.ttf")
ht=art(text,Label1,myfont,20)
Label1.TextColor=Colors.Black
p1.Height=ht+70dip
PanelHeight=PanelHeight+ht+70dip
Next
ScrollView1.Panel.Height=PanelHeight
End Sub
Sub Activity_Resume
End Sub
Sub Activity_Pause (UserClosed As Boolean)
End Sub
Sub art(txt As String,leb As Label,font As Typeface,size As Int) As Float
Dim before,after As Float
Dim Obj1 As Reflector
leb.text=txt
leb.TextSize=size
leb.Gravity=Gravity.CENTER
leb.Left=leb.Left
leb.Typeface=font
ht = StrUtil.MeasureMultilineTextHeight(leb , txt)
Obj1.Target = leb
before = Obj1.RunMethod("getLineHeight") 'Get the height of line BEFORE you change it
Obj1.Target = leb
Obj1.RunMethod3("setLineSpacing", .10, "java.lang.float", 1.5, "java.lang.float") 'Change the space between lines
Obj1.Target = leb
after = Obj1.RunMethod("getLineHeight") 'Get the height of line AFTER you change it
ht = ((after * ht)/before)
leb.Height = ht
Return ht
End Sub
Sub btnshare_Click
Dim cursor3 As Cursor
cursor3 = SQL1.ExecQuery("SELECT txt FROM tbl")
Dim btn2 As Button
btn2=Sender
cursor3.Position =btn2.Tag
Dim matnsms As Label
matnsms.Initialize("")
matnsms.text=cursor3.GetString("txt")
cursor3.Close
Dim share As Intent
share.Initialize(share.ACTION_SEND,"txt")
share.SetType("text/plain")
share.PutExtra("android.intent.extra.TEXT", matnsms.text)
share.WrapAsIntentChooser("متن خود را به اشتراک بگذارید....")
StartActivity(share)
End Sub
Sub btncopy_Click
Dim something As BClipboard
Dim cursor2 As Cursor
cursor2 = SQL1.ExecQuery("SELECT txt FROM tbl")
Dim btn2 As Button
btn2=Sender
cursor2.Position =btn2.Tag
something.clrText
something.settext(cursor2.GetString("txt"))
ToastMessageShow("متن در کلیپ بورد کپی شد",False)
cursor2.Close
End Sub
سوال
rezamoaser 53
با عرض سلام منکتابخونه ای درست کردم با مولتیپنل اما اطلاعات دریافتی رو کامل روی صفحه سفید شکل زیر نمیاره میخواتم بدونم کدی که در زیرگذاشتم مشکل داره یا اسکرول ویو البته من تازه بامولتی کار میکنم
#Region Activity Attributes #FullScreen: True #IncludeTitle: False #End Region Sub Process_Globals Dim SQL1 As SQL Dim cursur1 As Cursor End Sub Sub Globals Private Panel1 As Panel Private Label1 As Label Private btnnumber As Button Private btnshare As Button Private btncopy As Button Private ScrollView1 As ScrollView Private Label4 As Label Dim myfont As Typeface Dim text As String Dim ht As Float Dim StrUtil As StringUtils Dim PanelHeight As Int End Sub Sub Activity_Create(FirstTime As Boolean) If File.Exists(File.DirInternal,"sms1.db")=False Then File.copy(File.DirAssets,"sms1.db",File.DirInternal,"sms1.db") End If If SQL1.IsInitialized = False Then SQL1.Initialize(File.DirInternal,"sms1.db",True) End If cursur1 = SQL1.ExecQuery("SELECT txt FROM tbl") myfont = Typeface.LoadFromAssets("byekan.ttf") Activity.LoadLayout("sv") For i=0 To cursur1.RowCount-1 cursur1.Position=i text= cursur1.GetString("txt") ScrollView1.Panel.Color = Colors.Transparent Dim p1 As Panel p1.Initialize("") p1.LoadLayout("NOIS") ScrollView1.Panel.AddView(p1,0,PanelHeight,1000%x,1000dip) Label4.text="بینی گوشتی" Label4.Typeface=Typeface.LoadFromAssets("byekan.ttf") btnshare.Tag = i btncopy.Tag = i btnnumber.text = i + 1 btnnumber.Typeface=Typeface.LoadFromAssets("byekan.ttf") ht=art(text,Label1,myfont,20) Label1.TextColor=Colors.Black p1.Height=ht+70dip PanelHeight=PanelHeight+ht+70dip Next ScrollView1.Panel.Height=PanelHeight End Sub Sub Activity_Resume End Sub Sub Activity_Pause (UserClosed As Boolean) End Sub Sub art(txt As String,leb As Label,font As Typeface,size As Int) As Float Dim before,after As Float Dim Obj1 As Reflector leb.text=txt leb.TextSize=size leb.Gravity=Gravity.CENTER leb.Left=leb.Left leb.Typeface=font ht = StrUtil.MeasureMultilineTextHeight(leb , txt) Obj1.Target = leb before = Obj1.RunMethod("getLineHeight") 'Get the height of line BEFORE you change it Obj1.Target = leb Obj1.RunMethod3("setLineSpacing", .10, "java.lang.float", 1.5, "java.lang.float") 'Change the space between lines Obj1.Target = leb after = Obj1.RunMethod("getLineHeight") 'Get the height of line AFTER you change it ht = ((after * ht)/before) leb.Height = ht Return ht End Sub Sub btnshare_Click Dim cursor3 As Cursor cursor3 = SQL1.ExecQuery("SELECT txt FROM tbl") Dim btn2 As Button btn2=Sender cursor3.Position =btn2.Tag Dim matnsms As Label matnsms.Initialize("") matnsms.text=cursor3.GetString("txt") cursor3.Close Dim share As Intent share.Initialize(share.ACTION_SEND,"txt") share.SetType("text/plain") share.PutExtra("android.intent.extra.TEXT", matnsms.text) share.WrapAsIntentChooser("متن خود را به اشتراک بگذارید....") StartActivity(share) End Sub Sub btncopy_Click Dim something As BClipboard Dim cursor2 As Cursor cursor2 = SQL1.ExecQuery("SELECT txt FROM tbl") Dim btn2 As Button btn2=Sender cursor2.Position =btn2.Tag something.clrText something.settext(cursor2.GetString("txt")) ToastMessageShow("متن در کلیپ بورد کپی شد",False) cursor2.Close End Subلینک ارسال
به اشتراک گذاری در سایت های دیگر
7 پاسخ به این سوال تاکنون داده شده است
ارسال‌های توصیه شده
بایگانی شده
این موضوع بایگانی و قفل شده و دیگر امکان ارسال پاسخ نیست.