اسکرول ویو و لیبل

[amir00700 66]

من میخوام لیبل با متنی که دریافت میکنه مچ بشه و اسکرول بشه

چطور این کارو کنم؟

[sepehrb4a 21]

دوست من سعی کنید قبل از زدن تاپیک تو انجمن سرچ کنید

http://answercenter.ir/topic/5425-%D8%A7%D8%B3%DA%A9%D8%B1%D9%88%D9%84-%DA%A9%D8%B1%D8%AF%D9%86-%D9%85%D8%AA%D9%86-%D8%AF%D8%A7%D8%AE%D9%84-%D9%84%DB%8C%DB%8C%D9%84/

http://answercenter.ir/topic/4234-%D8%A7%D8%B3%DA%A9%D8%B1%D9%88%D9%84-%DA%A9%D8%B1%D8%AF%D9%86-%D9%85%D8%AA%D9%86-%D8%AF%D8%A7%D8%AE%D9%84-label/

[amir00700 66]

این ارور برای چیه؟

اینم کد هام

#Region  Activity Attributes 
	#FullScreen: False
	#IncludeTitle: false
#End Region

Sub Process_Globals


End Sub

Sub Globals

	Dim lbl1 As Label
	Private scrollview1 As ScrollView
	Dim ss As String
End Sub

Sub Activity_Create(FirstTime As Boolean)
	Activity.LoadLayout("domin")
	lbl1.Initialize("lbl1")
	If File.Exists(File.DirInternal,"amirdomin.txt") = False Then
		File.Copy(File.DirAssets,"amirdomin.txt",File.DirInternal,"amirdomin.txt")
	End If
	ss = File.ReadString(File.DirInternal,"amirdomin.txt")
	lbl1.Text = ss
	lbl1.Height = 10000dip


scrollview1.Panel.AddView(lbl1,0,0,scrollview1.Width,scrollview1.Height)
scrollview1.Panel.Height = 10000dip
End Sub

Sub Activity_Resume

End Sub

Sub Activity_Pause (UserClosed As Boolean)

End Sub

[alirezakazemizaroomi 437]

سلام

این کدارو اول وآخر کدهای مربوط به متنت بنویس:

Dim su As StringUtils

Dim h As Int=su.MeasureMultilineTextHeight(Label2,Label2.text)

Label2.Height=h

ScrollViewl.Panel.Height=h

Label2 همون لیبلی که متنهارو نمایش میده