بالا و پایین امدن متن

[mostafa.kasiri 115]

با سلام 

اق من یک متن دارم بیشتر صفحه گوشی میشه می خوام بیاد پایین و بالا میشه بگید باید از چه ویویی استفاده  و طرز لستفاده ازش چه طوریه؟؟؟؟؟؟؟؟؟؟/

 

((((در لیبل))))))))))))

[Negan 1,300]

 

اقا محمد بازم نشد مشکل کجاست؟(متن رو از تو ادیت تگست می گیرم)

اینم کدهام

Sub Globals
Private label1 As Label
Private ScrollView1 As ScrollView
Dim a As StringUtils
End Sub

Sub Activity_Create(FirstTime As Boolean)
Activity.LoadLayout("L6")
label1.Text=File.ReadString(File.DirAssets,"2.txt")
label1.Gravity = Gravity.right
label1.TextSize = 15 
ScrollView1.Panel.addview(label1,0,0,100%x,100%y)




label1.Height = a.MeasureMultilineTextHeight(label1 , label1.Text)


ScrollView1.Panel.Height = label1.Height
End Sub

 

این تاپیک رو ببین عزیز جان امیدوارم مشکلت حل بشه 

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

[Negan 1,300]

لیبل رو به اسکرول ویو اضافه کنید

به این صورت

dim sv as scrollview

dim label1 as label



sv.panel.addview(label1,0,0,100%x,100%y)

[mostafa.kasiri 115]

با سلام

اقا من از کد استفاده کردم ولی وقتی وارد صفحه میشم پیغام میده 

و وقتی می خوام بیام پایین نمی یاد میاد ولی متنش ثابته

چی کار کنم؟

[Negan 1,300]

با سلام

اقا من از کد استفاده کردم ولی وقتی وارد صفحه میشم پیغام میده 

و وقتی می خوام بیام پایین نمی یاد میاد ولی متنش ثابته

چی کار کنم؟

خب از کتابخونه استرینگ یولیت استفاده کن

ارتفاع لیبل رو بگیر

و برابر ارتفاع پنل اسکرول ویو قرار بده مثه شکل زیر 

Dim strut as stringulits

Label1.Height = strut.MeasureMultilineTextHeight(Label1 , Label1.Text)

sv.Panel.Height = Label1.Height

[mostafa.kasiri 115]

اقا محمد بازم نشد مشکل کجاست؟(متن رو از تو ادیت تگست می گیرم)

اینم کدهام

Sub Globals
Private label1 As Label
Private ScrollView1 As ScrollView
Dim a As StringUtils
End Sub

Sub Activity_Create(FirstTime As Boolean)
Activity.LoadLayout("L6")
label1.Text=File.ReadString(File.DirAssets,"2.txt")
label1.Gravity = Gravity.right
label1.TextSize = 15 
ScrollView1.Panel.addview(label1,0,0,100%x,100%y)




label1.Height = a.MeasureMultilineTextHeight(label1 , label1.Text)


ScrollView1.Panel.Height = label1.Height
End Sub

[mostafa.kasiri 115]

با سلام

اقا مشکلم حل شد اما یک مشکل دیکه حتما باید زد رو باتن که متن بیاد

من می خوام باتن نباشه و از اول متن کامل باشه؟؟؟؟؟؟؟؟؟؟؟؟؟

و یک سوال دیگه میشه بگید چه طوری سایز ها شو تغییر بدم؟؟؟؟؟

اگه سورس بزارید       ممنون میشم

[Negan 1,300]

نه عزیز :|

کد داخل دکمه رو به صورت جدا به عنوان کد اصلی استفاده کن و توی اکتیویتی کریت بریز