اسکرول

[fileman 328]

سلام

می خوام یه سوال بپرسم فقط نگین تکراریه! چون من آموزش های سایت رو خوندم و انجام هم دادم ولی جواب نگرفتم*naa*

چجوری میشه متن یک لیبل رو اسکرول کرد؟*asabani*

متن لیبل آنقدر زیاده که توی یک صفحه جا نمیشه و باید اسکرول بشه تا بقیه متن دیده بشه!

دوستان لطفا تمامی کد های مربوطه رو بگین*give_rose*

اگر هم زحمتی نیست یه سورسی قرار بدین*give_heart*

بسیار متشکرم

[مجید آرتا 5,875]

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

توی انجمن جستجو کنید موضوع زیاده در موردش

[fileman 328]

کسی نمیخواد به من کمک کنه؟

[ghost 70]

سلام

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

و یک لایوت جدید بسازید که توش اسکرول هست

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

حالا تو صفحه ی B4A مورد نظر لایوتی رو که حاوی اسکرول هست رو اکتیویتی کنید

Activity.loadlayout("scroll")

بعد این کد رو پایینش بنویسید

ScrollView1.Panel.LoadLayout("label")

این کد هم برای نوع قرار گیری لیبل در اسکرول هست

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

scroll لایوتی هست که اسکرول توشه

label هم لایوتیه که لیبل حاوی متن توشه

مشکل حل نشد بگید

[fileman 328]

ممنون .ولی درست نشد!

[mohammad-alone 564]

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

سرچ کن منم کارم گیر بود تو همین سایت حل شد

شک نکن بهترین مکان همینجاست

موفق تر باشید

[mahfelsoft 130]

ببینید دوست عزیز شما وقتی که لی اوتی رو که لیبل توشه رو داخل اسکرول ویو لود میکنی ( طبق کدی که آقای qhost ) نوشتن بعدش باید با کدی ارتفاع متن رو با اسکرول ویو هماهنگ کنی که اسکرول ویو تا جایی که متن هست ادامه پیدا کنه . برا این کار توی این پست کامل توضیح داده شده . یه نگاهی بندازید

http://answercenter.ir/thread1376.html

اگر مشکلتون حل شند بعدا بگین دوباره .

[محمد امین مهمان]

سلام

دوستان

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

اول که خطا میده(تصویر شماره ۱)

بعد هم متن را نصفش نشون داده نمیشه؟؟؟؟(تصویر ۲)

اونو کدهای هست که داشتم(تصویر ۳)

فراموش هم نکنید من تازه کارم

بدادم برسید

[mostafa.kasiri 115]

با سلام

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

 

Sub Globals
Private lbl As Label
Private Scroll As ScrollView
Dim StrUtil As StringUtils
End Sub
Sub Activity_Create(FirstTime As Boolean)
Activity.LoadLayout("L6")                                            لایوت اسکرول
Scroll.Panel.LoadLayout("L11")                                لایوت لیبل
Scroll.Height = 43%y - Scroll.Top
Scroll.top = 25%y
SetText
lbl.TextColor =Colors.Black
lbl.Text=File.ReadString(File.DirAssets,"2.txt")
lbl.Gravity = Gravity.right
lbl.TextSize = 15 
End Sub
Sub SetText
Dim ht As Float
lbl.Text =  File.GetText(File.DirAssets,"2.txt")
lbl.Gravity = Gravity.right
ht=StrUtil.MeasureMultilineTextHeight(lbl, lbl.Text)
Scroll.Panel.Height = ht
lbl.Height = ht
Scroll.ScrollPosition = 0
DoEvents 
End Sub

[محمد امین مهمان]

کسی نیست کمک کنه؟؟؟