سلام.
امکانش هست که با استفاده از این روش، متن رو به صورت خودکار اسکرول کرد؟
من قبلا از این روش استفاده میکردم:
Dim rowheight As Int = su.MeasureMultilineTextHeight(lbl, lbl.Text)
Dim Obj1 As Reflector
Obj1.Target = lbl
Dim before As Int = Obj1.RunMethod("getLineHeight")
Obj1.Target = lbl
Obj1.RunMethod3("setLineSpacing", 0, "java.lang.float", 2, "java.lang.float")
Obj1.Target = lbl
Dim after As Int = Obj1.RunMethod("getLineHeight")
lbl.Height = ((after * rowheight)/before) + xx/20
sv_label.Panel.Height = lbl.Height + xx/20
به علاوه تایمر
Sub timer_scroll_Tick
Dim position As Int = (mp.Position/mp.Duration*1)*sv_label.Height - xx/4
If position < 0 Then
position = 0
End If
sv_label.ScrollPosition = position
End Sub
اما این دستورات روی این کتابخونه ظاهرا کاربردی ندارند.
ممنون میشم راهنماییم کنید.