سلام دوستان....من یه مشکلی داشتم خواهشا اگه میشه حلش کنید...ببینید من یه سورسی دانلود کردم و مطالب خودمو توش قرار دادمو کلی ویرایشش کردم....
الان من یه مشکل دارم با یه سوال:
مشکل:
من برنامرو تقریبا تکمیلش کردم فقط 1 مشکلی دارم ببینید این کد 1 اکتیویتی منه:
#Region Activity Attributes
#FullScreen: True
#IncludeTitle: False
#End Region
Sub Process_Globals
Dim azaz As PhoneIntents
End Sub
Sub Globals
Dim panelheight As Int
Dim text As String
Dim strUtil As StringUtils
Dim ht As Float
Dim mfont As Typeface
Private ScrollView1 As ScrollView
Dim ImageView1 As ImageView
Private Button1 As Button
End Sub
Sub Activity_Create(FirstTime As Boolean)
Activity.LoadLayout("s2")
text= File.ReadString(File.DirAssets,"txt1.txt")
mfont=Typeface.LoadFromAssets("byekan.ttf")
scroll
End Sub
Sub scroll
ScrollView1.Initialize(500dip)
Activity.AddView(ScrollView1, 0, 17%y, 100%x, 70%y)
panelheight=0
Dim lbltest As Label
lbltest.Initialize("lbltest")
ScrollView1.Panel.AddView(lbltest,2dip, panelheight, 100%x-5dip, 50dip)
lbltest.TextSize=18
lbltest.TextColor=Colors.White
ht= art (text,lbltest,mfont,20)
panelheight=panelheight+ht+25dip
panelheight=panelheight+80dip
ScrollView1.Panel.Height=panelheight
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")
Obj1.Target = leb
Obj1.RunMethod3("setLineSpacing", .10, "java.lang.float", 1.5, "java.lang.float")
Obj1.Target = leb
after = Obj1.RunMethod("getLineHeight")
ht = ((after * ht)/before)
leb.Height = ht
Return ht
End Sub
Sub Activity_Resume
End Sub
Sub Activity_Pause (UserClosed As Boolean)
End Sub
Sub Button1_Click
StartActivity(azaz.OpenBrowser("http://s6.picofile.com/file/8205786400/God_of_Gem.apk.html"))
End Sub
اما وقتی این برنامرو با b4a bridge روی تبلتم تست میکنم وقتی وارد این اکتیویتی میشم یه چیز سفید میاد روی صفحه! تقریبا وسط صفحه رو هم میپوشونه...بعدش من مجبورم یه بار back بزنم تا درست بشه...چطور باید اینو از بین ببرمش؟!
.
حالا سوالمم اینه که به نظرتون یه همچین برنامه ای رو که دوتا اکتیویتی مثل اینی که کدشو دادم و منابع و تماس با ما و splash و دکمه طراحی شده و والپیپر داره بازار قبولش میکنه؟
نکته : دوستان اگه کسی screenshot از تبلت خواست هم میتونم بهش بدم
سوال
BaSiC-CoDeR 0
سلام دوستان....من یه مشکلی داشتم خواهشا اگه میشه حلش کنید...ببینید من یه سورسی دانلود کردم و مطالب خودمو توش قرار دادمو کلی ویرایشش کردم....
الان من یه مشکل دارم با یه سوال:
مشکل:
من برنامرو تقریبا تکمیلش کردم فقط 1 مشکلی دارم ببینید این کد 1 اکتیویتی منه:
#Region Activity Attributes #FullScreen: True #IncludeTitle: False #End Region Sub Process_Globals Dim azaz As PhoneIntents End Sub Sub Globals Dim panelheight As Int Dim text As String Dim strUtil As StringUtils Dim ht As Float Dim mfont As Typeface Private ScrollView1 As ScrollView Dim ImageView1 As ImageView Private Button1 As Button End Sub Sub Activity_Create(FirstTime As Boolean) Activity.LoadLayout("s2") text= File.ReadString(File.DirAssets,"txt1.txt") mfont=Typeface.LoadFromAssets("byekan.ttf") scroll End Sub Sub scroll ScrollView1.Initialize(500dip) Activity.AddView(ScrollView1, 0, 17%y, 100%x, 70%y) panelheight=0 Dim lbltest As Label lbltest.Initialize("lbltest") ScrollView1.Panel.AddView(lbltest,2dip, panelheight, 100%x-5dip, 50dip) lbltest.TextSize=18 lbltest.TextColor=Colors.White ht= art (text,lbltest,mfont,20) panelheight=panelheight+ht+25dip panelheight=panelheight+80dip ScrollView1.Panel.Height=panelheight 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") Obj1.Target = leb Obj1.RunMethod3("setLineSpacing", .10, "java.lang.float", 1.5, "java.lang.float") Obj1.Target = leb after = Obj1.RunMethod("getLineHeight") ht = ((after * ht)/before) leb.Height = ht Return ht End Sub Sub Activity_Resume End Sub Sub Activity_Pause (UserClosed As Boolean) End Sub Sub Button1_Click StartActivity(azaz.OpenBrowser("http://s6.picofile.com/file/8205786400/God_of_Gem.apk.html")) End Subاما وقتی این برنامرو با b4a bridge روی تبلتم تست میکنم وقتی وارد این اکتیویتی میشم یه چیز سفید میاد روی صفحه! تقریبا وسط صفحه رو هم میپوشونه...بعدش من مجبورم یه بار back بزنم تا درست بشه...چطور باید اینو از بین ببرمش؟!
.
حالا سوالمم اینه که به نظرتون یه همچین برنامه ای رو که دوتا اکتیویتی مثل اینی که کدشو دادم و منابع و تماس با ما و splash و دکمه طراحی شده و والپیپر داره بازار قبولش میکنه؟
نکته : دوستان اگه کسی screenshot از تبلت خواست هم میتونم بهش بدم
ممنون میشم سریعا پاسخ بدید!
با تشکر
لینک ارسال
به اشتراک گذاری در سایت های دیگر
27 پاسخ به این سوال تاکنون داده شده است
ارسال‌های توصیه شده
بایگانی شده
این موضوع بایگانی و قفل شده و دیگر امکان ارسال پاسخ نیست.