تنظیم فاصله بین خطوط و عرض لیبل

[amir54 138]

سلام من خیلی وقته دنبال این سورس بودم که هیچ جا آموزش درست حسابی نبود یا فاصله کم و زیاد میشد یا اصلا کار نمی کرد ولی تونستم بسازمش امیدوارم شما رو یکم به هدفتون نزدیک کرده باشم کتابخونه StringUtils فعال باشه

Sub Globals
	Private lbl1 As Label
End Sub

Sub Activity_Create(FirstTime As Boolean)
	Activity.LoadLayout("m")
	lbl1.Color = Colors.Red
	lbl1.Text = "a" & CRLF & "b"& CRLF & "c"& CRLF & "d"& CRLF & "f"& CRLF & "g"& CRLF & "End"
	change(lbl1,1.6)
End Sub

Sub change(leb As Label,Line As Float) As Double
	Private before,after,ht As Double
	Private Obj1 As Reflector
	Private strUtil As StringUtils
	
	ht = strUtil.MeasureMultilineTextHeight(leb , leb.text)
	Obj1.Target = leb
	
	before = Obj1.RunMethod("getLineHeight")
	DoEvents
	Obj1.RunMethod3("setLineSpacing", 0.10, "java.lang.float", Line, "java.lang.float")
	after = Obj1.RunMethod("getLineHeight")
	DoEvents
	ht = ((after * ht)/before)
	leb.Height = ht
	Return  ht
End Sub