رفتن به مطلب
  • 0

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


amir00700

سوال

3 پاسخ به این سوال تاکنون داده شده است

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

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

Ashampoo_Snap_2015_09_30_21h11m25s_001_.

اینم کد هام

#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


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

سلام


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



Dim su As StringUtils
Dim h As Int=su.MeasureMultilineTextHeight(Label2,Label2.text)
Label2.Height=h
ScrollViewl.Panel.Height=h

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

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

بایگانی شده

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

مهمان
این موضوع برای عدم ارسال قفل گردیده است.
  • کاربران آنلاین در این صفحه   0 کاربر

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