مشکل در اسکرول کردن متن و عکس

[e251 12]

سلام دوستان

 

من یه متن یا چند تا عکس رو به روش زیر اسکرول میکنم ولی توی هر گوشی یه جور میاد ینی توی گوشی های صفحه بزرگ پایین اسکرول خالی میشه...

 

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

Sub Globals


	Private ScrollView1 As ScrollView
	Private Label1 As Label
End Sub

Sub Activity_Create(FirstTime As Boolean)

	Activity.LoadLayout("WelchScroll")
	ScrollView1.Panel.LoadLayout("Welch")
Label1.Text = File.ReadString(File.DirAssets,"Welch.txt")
Label1.TextSize = 14
Label1.Gravity = Gravity.TOP
Label1.Gravity = Gravity.RIGHT
End Sub

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

 

نصف متن میره پایین و اسکرول نمیاد پایین...

 

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

 

برای چند تا عکس چیکار کنم؟؟؟؟یا متن؟؟؟؟

[امین شاهدی 5,773]

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

 

اول از تب Files توی b4a فایل رو به برنامه اضافه کنید ( یا محلی که پروژه رو سیو کردین فایل متنی رو توی پوشه ی Files بریزین و بعد از طریق این کد اون رو نمایش بدین : 

به جای ESM.txt اسم فایل متنی رو بنویسین : 

Dim asl As AriaScrollingLabel
asl.Initialize(Null,Null,Activity,0,0,100%x,100%y)
asl.Text = File.GetText( File.DirAssets , "ESM.txt" ) 

[siroos12 14]

کتابخانه AutoSizeScroll اقا پژمان رو دانلود کنید

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

Sub Activity_Create(FirstTime As Boolean)
	Activity.LoadLayout("main")
label1.Initialize("label1")

label1.Text=File.ReadString(File.DirAssets,"matn.txt")
label1.TextColor=Colors.Black
label1.TextSize=16
label1.Gravity=Gravity.CENTER

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

Dim s As AutoSizeScroll
s.set(label1,ScrollView1)
End Sub

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

دوست عزیز دو خط پایین کد auto sizescrollاصلا جزء نوع نیست!

[Elyas Erfani 3,582]

دوست عزیز دو خط پایین کد auto sizescrollاصلا جزء نوع نیست!

اصلا کتابخانه AutoSizeScroll رو دانلود نکردید و به پروژه اضافه‌ نکردید

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

[siroos12 14]

دوست من من چطوری فاصله بین خط ها رو تنظیم کنم در کد بالایی؟

[siroos12 14]

منم همین مشکلو دارم،وقتی که با you waveتموم متن ام اسکرول میشه ولی با گوشیم کل متن اسکرول نمیشه؟؟؟

دوستان مشکل کجاست؟

[Elyas Erfani 3,582]

سلام دوستان

 

من یه متن یا چند تا عکس رو به روش زیر اسکرول میکنم ولی توی هر گوشی یه جور میاد ینی توی گوشی های صفحه بزرگ پایین اسکرول خالی میشه...

 

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

Sub Globals


	Private ScrollView1 As ScrollView
	Private Label1 As Label
End Sub

Sub Activity_Create(FirstTime As Boolean)

	Activity.LoadLayout("WelchScroll")
	ScrollView1.Panel.LoadLayout("Welch")
Label1.Text = File.ReadString(File.DirAssets,"Welch.txt")
Label1.TextSize = 14
Label1.Gravity = Gravity.TOP
Label1.Gravity = Gravity.RIGHT
End Sub

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

 

نصف متن میره پایین و اسکرول نمیاد پایین...

 

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

 

برای چند تا عکس چیکار کنم؟؟؟؟یا متن؟؟؟؟

سلام

دوست عزیز شما اومدین کلا لایوت رو توی اسکرول ویو لود کردید و‌کلا لایوت رو اسکرول کردید

متن و عکس رو فقط اسکرول کنید

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

[امین شاهدی 5,773]

اگه فقط از متن استفاده میکنین از این کتابخانه ستفاده کنید : 

http://answercenter.ir/topic/8359-%DA%A9%D8%AA%D8%A7%D8%A8%D8%AE%D8%A7%D9%86%D9%87-%DA%A9%D8%A7%D8%B1%D8%A8%D8%B1%D8%AF%DB%8C-ariascrollinglabel/

[sajad8888 819]

و همین طور این سورس

http://answercenter.ir/topic/8553-scrolllable/

[siroos12 14]

اگه فقط از متن استفاده میکنین از این کتابخانه ستفاده کنید :

http://answercenter.ir/topic/8359-%DA%A9%D8%AA%D8%A7%D8%A8%D8%AE%D8%A7%D9%86%D9%87-%DA%A9%D8%A7%D8%B1%D8%A8%D8%B1%D8%AF%DB%8C-ariascrollinglabel/

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

[siroos12 14]

سلام

دوست عزیز شما اومدین کلا لایوت رو توی اسکرول ویو لود کردید و‌کلا لایوت رو اسکرول کردید

متن و عکس رو فقط اسکرول کنید

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

چطوری؟؟؟

از چه کدی؟

[Elyas Erfani 3,582]

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

فایل تکست رو از منوی Files موجود در داخل بیسیک به پروژتون ادد کنید 

 

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

Dim Label1 As Label
Label1.Text = File.ReadString(File.DirAssets , "esme file.txt")

[siroos12 14]

فایل تکست رو از منوی Files موجود در داخل بیسیک به پروژتون ادد کنید

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

Dim Label1 As Label
Label1.Text = File.ReadString(File.DirAssets , "esme file.txt")

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

[Elyas Erfani 3,582]

کتابخانه AutoSizeScroll اقا پژمان رو دانلود کنید

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

Sub Activity_Create(FirstTime As Boolean)
	Activity.LoadLayout("main")
label1.Initialize("label1")

label1.Text=File.ReadString(File.DirAssets,"matn.txt")
label1.TextColor=Colors.Black
label1.TextSize=16
label1.Gravity=Gravity.CENTER

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

Dim s As AutoSizeScroll
s.set(label1,ScrollView1)
End Sub

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