اسکرول کردن یک متن خاص

[alaghemand 82]

من یک لیبل دارم

 

به این مختصاد

textpage.SetLeftAndRight(11%x , 89%x)
textpage.SetTopAndBottom(10%y , 90%y)

حالا چه کار کنم که اسکرول ویو ام دقیقا هم اندازه این مختصاد رو اسکرول بکنه ؟؟؟

 

لطفا کدش رو بهم بدید

[1234 51]

خب برای اسکرول ویو هم همین مختصاتو بنویسین

[afraz11 246]

از کتابخونه dim s as StringUtils

 

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

ScrollView1.Panel.AddView(l,3%x,ScrollView1.Top+290dip,94%x,ScrollView1.Height)

Dim su As StringUtils
l.Height=su.MeasureMultilineTextHeight(l,l.text)
ScrollView1.Panel.Height=su.MeasureMultilineTextHeight(l,l.text)+40%y

[1234 51]

من منظور شما رو خوب نفهمیدم

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

[alaghemand 82]

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

 

کد رو نگاه کنید ایرادم رو بگیرید

scrol.Initialize(100%y)
		Activity.AddView(scrol,11%x,10%y,89%x,90%y)
		scrol.Panel.AddView(textpage,3%x,scrol.Top+290dip,94%x,scrol.Height)
		textpage.Height=su.MeasureMultilineTextHeight(textpage,textpage.text)
		scrol.Panel.Height=su.MeasureMultilineTextHeight(textpage,textpage.text)+40%y
		page.Bitmap = LoadBitmap(File.DirAssets,"neveshtan.png")
		page.Visible = True
		textpage.Visible = True
		animation.InitializeAlpha("animation",0,1)
		animation.Duration = 2500
		animation.Start(page)
		textpage.TextColor = Colors.RGB(80,78,39)
		button1 = False
		ts.LongText(textpage,textpage.Text,22,scrol,1.5)
		textpage.Text = "1. وقتی درس ها را مطالعه کردید نکات و مطالب مهم درس را در یک جا یادداشت کنید ."

لیبل من textpage هست و اسکرول ویو ام هم scrol هست .

هی یه ارور میده وقتی برنامه ام رو اجرا میکنم

 

 

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

 

کمککک کنید

[afraz11 246]

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

 

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

scrol.Initialize(100%y)
		Activity.AddView(scrol,11%x,10%y,89%x,90%y)
		
		page.Bitmap = LoadBitmap(File.DirAssets,"neveshtan.png")
		page.Visible = True
		textpage.Visible = True
		animation.InitializeAlpha("animation",0,1)
		animation.Duration = 2500
		animation.Start(page)
		textpage.TextColor = Colors.RGB(80,78,39)
		button1 = False
		ts.LongText(textpage,textpage.Text,22,scrol,1.5)
		textpage.Text = "1. وقتی درس ها را مطالعه کردید نکات و مطالب مهم درس را در یک جا یادداشت کنید ."






scrol.Panel.AddView(textpage,3%x,scrol.Top+290dip,94%x,scrol.Height)
		textpage.Height=su.MeasureMultilineTextHeight(textpage,textpage.text)
		scrol.Panel.Height=su.MeasureMultilineTextHeight(textpage,textpage.text)+40%y

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

موفق باشی

[alaghemand 82]

آخه من نفهمیدم مثلا چرا اونجا +45 شده یا چیزای دیگه رو

اگر میشه برام توضیح بده

من برنامه ام تقریبا تمونه اما لنگ اینم

[afraz11 246]

آخه من نفهمیدم مثلا چرا اونجا +45 شده یا چیزای دیگه رو

اگر میشه برام توضیح بده

من برنامه ام تقریبا تمونه اما لنگ اینم

 

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

[alaghemand 82]

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

 

چیکار کنم ؟؟؟؟؟؟

scrol.Initialize(100%y)
		Activity.AddView(scrol,11%x,10%y,89%x,90%y)
		
		page.Bitmap = LoadBitmap(File.DirAssets,"neveshtan.png")
		page.Visible = True
		textpage.Visible = True
		animation.InitializeAlpha("animation",0,1)
		animation.Duration = 2500
		animation.Start(page)
		textpage.TextColor = Colors.RGB(80,78,39)
		button1 = False
		ts.LongText(textpage,textpage.Text,22,scrol,1.5)
		textpage.Text = "1. وقتی درس ها را مطالعه کردید نکات و مطالب مهم درس را در یک جا یادداشت کنید ."&CRLF&"2. حتما همیشه از سخنان معلم ها ، دبیرها و استاد های خود جزوه برداری کنید و آنها را مطالعه کنید ."&CRLF&"3. سعی کنید تا جایی که میتوانید از روی درس بنویسید زیرا در بعضی افراد این روش 50 تا 80 درصد باعث یادگیری بیشتر میشود ."
scrol.Panel.AddView(textpage,0,0,100%X,scrol.Height)
		textpage.Height=su.MeasureMultilineTextHeight(textpage,textpage.text)
		scrol.Panel.Height=su.MeasureMultilineTextHeight(textpage,textpage.text)

کمکم کنید

[alaghemand 82]

آخه من نفهمیدم مثلا چرا اونجا +45 شده یا چیزای دیگه رو

اگر میشه برام توضیح بده

من برنامه ام تقریبا تمونه اما لنگ اینم