این sub چیکار می کنه ؟

[marshal 71]

با عرض سلام و خسته نباشید خدمت دوستان عزیز

میشه دقیقا برام توضیح بدید که این 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

واقعا به کمکتون نیاز دارم...

[marshal 71]

با سلام... عکس های وسطی مشکل فونت رو نشون میده که تو پیامک آخر فونتم bold میشه... مشکل دیگم اینه که این مطالب رو تو دیتابیس قرار دادم. برای هر صفحه پنجاه مطلب. ولی وقتی برنامه رو تو گوشیم اجرا کردم با عکس اولی مواجه شدم(عکس سیاه رنگ با خطای متوقف شده است). اومدم تعداد مطالبم رو به سی عدد رسوندم که اونم به سختی اجرا میشه... عکس سمت چپی هم صفحه اول برناممه... به نظرتون بد نیست؟؟؟

لطفا کمکم کنید...

[marshal 71]

اینم از سورس این صفحه ... بی زحمت یه نگاهی بندازید....

#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 ScrollView1 As ScrollView
   Private Button1 As Button
   Private Label5 As Label

   Dim myfont As Typeface
   Dim text As String
   Dim ht As Float
   Dim StrUtil As StringUtils
   Dim PanelHeight As Int

   Private btcopy As Button
   Private btshare As Button

End Sub

Sub Activity_Create(FirstTime As Boolean)

   If File.Exists(File.DirInternal,"bank.db")=False Then
   File.copy(File.DirAssets,"bank.db",File.DirInternal,"bank.db")
   End If
   If SQL1.IsInitialized = False Then
   SQL1.Initialize(File.DirInternal,"bank.db",True)
   End If
cursur1 = SQL1.ExecQuery("SELECT g1 FROM banktb") 

   myfont = Typeface.LoadFromAssets("byekan.ttf")
   Activity.LoadLayout("sv")

   For i=0 To cursur1.RowCount-1
   cursur1.Position=i
   text= cursur1.GetString("g1") 
   ScrollView1.Panel.Color = Colors.Transparent

   Dim p1 As Panel
   p1.Initialize("")
   p1.LoadLayout("main")
   ScrollView1.Panel.AddView(p1,0,PanelHeight,100%x,100dip)

   btshare.Tag = i
   btcopy.Tag = i
   btnnumber.text = i + 1
   btnnumber.Typeface=Typeface.LoadFromAssets("dastnevis.ttf")
   btnnumber.TextColor=Colors.yellow
   btnnumber.Textsize=15

   ht=art(text,Label1,myfont,20)
   Label1.TextColor=Colors.white
   p1.Height=ht+70dip
   PanelHeight=PanelHeight+ht+70dip
   Next
   ScrollView1.Panel.Height=PanelHeight
   Label5.text="رشحات الانس"
   Label5.Typeface=Typeface.LoadFromAssets("dastnevis.ttf")
   Label1.TextSize=25
End Sub

Sub Activity_Resume

End Sub

Sub Activity_Pause (UserClosed As Boolean)


End Sub

Sub Button1_Click
   StartActivity(Main)
   Activity.Finish
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 btshare_click

Dim cursor3 As Cursor
   cursor3 = SQL1.ExecQuery("SELECT g2 FROM banktb")
   Dim btn2 As Button
   btn2=Sender
   cursor3.Position =btn2.Tag
   Dim matnsms As Label
   matnsms.Initialize("")
   matnsms.text=cursor3.GetString("g2")
   cursor3.Close
   Dim share As Intent
   share.Initialize(share.ACTION_SEND,"")
   share.SetType("text/plain")
   share.PutExtra("android.intent.extra.TEXT", matnsms.text)
   share.WrapAsIntentChooser("متن خود را به اشتراک بگذارید....")
   StartActivity(share)

End Sub

Sub btcopy_click

   Dim something As BClipboard
   Dim cursor2 As Cursor
   cursor2 = SQL1.ExecQuery("SELECT g2 FROM banktb")

   Dim btn2 As Button
   btn2=Sender

   cursor2.Position =btn2.Tag
   something.clrText 
   something.settext(cursor2.GetString("g2"))
   ToastMessageShow("متن در کلیپ بورد کپی شد",False)
   cursor2.Close

End Sub

[marshal 71]

کسی نیست جواب مارو بده ؟؟؟ لطفا کمکم کنید... واقعا به کمکتون نیاز دارم...

[ali2 115]

تنظیم اندازه و فونت نوشته

همچنین تنظیم فاصله بین خطوط

شناور کردن لیبل:یعنی لیبل به اندازه طول متن تغییر میکنه

[marshal 71]

یعنی واقعا اینجا کسی نیست جواب بده؟

[top206 34]

جواب علی اقا درسته دیگه !

برای تنظیم متن به کار میره

[marshal 71]

ممنون بابت راهنماییتون... خب حالا چرا متن آخر من فونتش بولد میشه؟؟؟ ایراد از این sub هستش؟؟؟

[حسن قاسمی نیا 547]

sub برای تنظیم متن هست ؟ تگ شروع و پایان برنامه اند روید هست دیگه این sub را همه جا داریم . نمونه :

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 webview1 As WebView

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("web")
   webview1.loadurl("http://")

End Sub

Sub Activity_Resume

End Sub

Sub Activity_Pause (UserClosed As Boolean)

End Sub

[marshal 71]

ممنون بابت راهنمایی... ولی منظورم برنامه sub هستش؟؟؟

[mahfelsoft 130]

برنامه ی sub ?

یعنی چی ؟ منظورتون مشخص نیست .

ببینید دوست عزیز . این سابی که اول گذاشتید همونجوری که دوستمون علی گفتن برای تنظیمات فاصله بین خطوط و اندازه اسکرول و لییبل و این چیزاست . کلا واسه متون توی برنامه است .

و برای استفاده اش کتابخونه reflection باید فعال باشه .

خوب شما دقیقا سوالت چیه ؟

کلا یک sub مثل یه پاراگرافه که متنش از اول خط شروع میشه و تا یه جایی تموم میشه و بعد شخص پاراگراف بعدی رو شروع میکنه .

مثلا ما توی یه ساب رویداد کلیک باتون میزاریم . توی یه ساب متغیرهامون رو تعریف میکنیم و خیلی کارهای دیگه ...

حالا اگر سوال خاصی دارید بفرمایدد

[marshal 71]

دوستان من انقدرها هم بی سواد نیستما... مشکل برنامم اینه که چرا متن آخر من فونتش بولد میشه؟؟؟ ایراد از این بخشی هستش که اینجا گذاشتم ؟؟؟

[mahfelsoft 130]

متن آخرت یعنی کجا ؟ میتونی سورستو بزاری ببینیم ؟

[sganji 678]

نه دوست عزیز

توی این ساب تنظیم فونت نیستش...تو از یه فونت بولد استفاده کردی...