رفتن به مطلب

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


amir54

ارسال های توصیه شده

سلام من خیلی وقته دنبال این سورس بودم که هیچ جا آموزش درست حسابی نبود یا فاصله کم و زیاد میشد یا اصلا کار نمی کرد ولی تونستم بسازمش:gamer2: امیدوارم شما رو یکم به هدفتون نزدیک کرده باشم:malih: کتابخونه 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

 

لینک ارسال
به اشتراک گذاری در سایت های دیگر

بایگانی شده

این موضوع بایگانی و قفل شده و دیگر امکان ارسال پاسخ نیست.

  • کاربران آنلاین در این صفحه   0 کاربر

    • هیچ کاربر عضوی،در حال مشاهده این صفحه نیست.
×
×
  • اضافه کردن...