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

اسکرول کردن متن لیبل


mohsen.gh

سوال

سلام

ببخشید من از اموزش های سایت استفاده کردم و با کتابخانهtextsetting میخام متن لیبل رو اسکرول کنم اما وقتی برنامه رو run می کنم ارور میده و میگه تو این لاین متوقف شده

  ScrollView1.Panel.AddView(Label1,0,0,80%x,40%y)

 

اینم تنظیمات مربوط به مکان اسکرول ویو و لیبل

 

Label1.SetLeftAndRight(10%x,90%x)
Label1.SetTopAndBottom(50%y,90%y)

ScrollView1.SetLeftAndRight(10%x,90%x)
ScrollView1.SetTopAndBottom(50%y,90%y)

 

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

ممنون میشم راهنمایی کنید :) :)

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

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

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

سلام

این ها کد های یکی از پروژه های منه که درست کار میکنه! کد اضافی داره اما فکر کنم سر در بیارید :

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

Sub Process_Globals
	
End Sub

Sub Globals
	Private Panel1 As Panel
	Private Label1 As Label
	Private ScrollView1 As ScrollView
	Private Button1 As Button
	Private Button2 As Button
	Private LabelT As Label
	Dim shre As AriaLib
	Dim TextSetting1 As TextSetting
	Dim fara As Farakhani
End Sub

Sub Activity_Create(FirstTime As Boolean)
	Activity.LoadLayout("sv1")

	LabelT.Initialize("")
	TextSetting1.Initialize

	fara.FarakhaniMatn("mivehha.db",ListMat.sql1,ListMat.cur1,"SELECT * FROM tbl WHERE id=",ListMat.ListViewValue,LabelT,"TEXT")
	fara.FarakhaniMatn("mivehha.db",ListMat.sql1,ListMat.cur1,"SELECT * FROM tbl WHERE id=",ListMat.ListViewValue,Label1,"NAME")
	
	ScrollView1.Panel.AddView(LabelT,8,10,86%x,99%y)
	
	ScrollView1.Panel.Color = Colors.Transparent
	ScrollView1.Color = Colors.Transparent
	LabelT.Color = Colors.Transparent

	TextSetting1.LabelDesign(LabelT,22,"Black","BYekan")
   	
   	TextSetting1.LongText(LabelT,LabelT.Text,22,ScrollView1,2.5)
	
	LabelT.Gravity = Gravity.CENTER
	LabelT.TextColor = Colors.Black

	Label1.TextSize = 20
	Label1.Typeface= Typeface.LoadFromAssets("BYekan.ttf")
	Label1.Gravity = Gravity.CENTER
	Label1.TextColor = Colors.Black
End Sub

Sub Activity_Resume

End Sub

Sub Activity_Pause (UserClosed As Boolean)

End Sub

Sub Button1_Click
	StartActivity(shre.ShareText(LabelT.Text,"اشتراک گذاری :"))
End Sub
لینک ارسال
به اشتراک گذاری در سایت های دیگر

بایگانی شده

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

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

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