سوال درباره اسکرول

[alaghemand 82]

با سلام

 

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

 

لطفا سورس زیر را دانلود و ببیند چرا کار نمی کنید

لطفا اصلاحش کنید و برام بفرستید

 

خیلی ممنون میشم

 

اینم لینک فایل

 

http://www.uplooder.net/cgi-bin/dl.cgi?key=265300459b0a37d50a681ff3caf727bb

[mohammad_mahdi 451]

آقا من تمام تلاش خودم رو کردم و این نتیجه اش شد. دیگه کاری از دستم بر نمیاد:

این رو جایگزین activity_create کنید:

Sub Activity_Create(FirstTime As Boolean)
	'Do not forget to load the layout file created with the visual designer. For example:
	Activity.LoadLayout("main")
	Label1.Initialize("")
	ScrollView1.Panel.AddView(Label1,0,0,100%x,100%y)
	Label1.SetLayout(15%x, 20%y, 70%x, 70%y)
	ImageView1.Bitmap = LoadBitmap(File.DirAssets,"khandan.png")
	Label1.Text = "سلام دوست من. چطوری؟ حالت خوبه؟ امیدوارم حال و احوالت خوب باشه. راستی چرا سر نمیزنی؟"&CRLF&"برو بابا من دیگه باهات رفیق نیستم. تو چجور رفیقی هستی که همش میپیچونی منو؟ دیگه هم نبینم پیام میفرستیا. این دفعه بلاکت میکنم. بای. راستی، دیگه هم به من زنگ نزن بی تربیت."
	ts.Initialize
	ts.LongText(Label1,Label1.Text,23,ScrollView1,1.5)
	ScrollView1.Panel.Height=10000dip

End Sub

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

 

این رو هم جایگزین دیزاین اسکریپتت کن:

'All variants script

ImageView1.SetLeftAndRight(10%x , 90%x)
ImageView1.SetTopAndBottom(10%y , 90%y)

ScrollView1.SetLeftAndRight(15%x , 85%x)
ScrollView1.SetTopAndBottom(20%y , 85%y)

این توضیحات بر اساس همون فایلی بود که برامون آپلود کردی.

با تشکر.

[shahab.es 5,429]

سلام

دوست عزیز

چیزایی که تو متنتون قرار دادید(چه متنیه نوشتی، یکم کلامت رو درست کن) کم بودن و مشخصا اسکرول نمیشدن

هیچ نیازی به اینیشیالایز کردن اسکرول ویو نبود

تکست ستینگم اینیشیالایز نکردید

در حال حاضر داره اسکرول میشه

proje254.rar

[alaghemand 82]

آقا شهاب من تند تند یک سری چرت و پرت نوشتم شما ببخش

خیلی ممنون و درست شد

 

فقط یه نکته کلمه ی اول هر جمله نمایش داده نمیشود چی کار کنم ؟؟؟؟

[shahab.es 5,429]

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

scrol.panel.addview(lbl,scrol.left,scrol.top,scrol.width,scrol.height)

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

[alaghemand 82]

آقای شهاب کار نکرد !!!!!!!

 

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

فایده ای نداشت

[shahab.es 5,429]

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

میخوای عرض لیبلت رو کمتر کن

مثلا scrol.width - 20

این شکلیم تست کن

ممکنه جواب بده

[alaghemand 82]

تورو خدا

ازتون خواهش میکنم

یکی جواب بده

به خدا خیلی گیرم برنامه ام الان معطل اینه

خواهش میکنم

[shahriar 408]

عزیز درحال برسیم الان یک کد بهتر برات آپ میکنم 

[shahriar 408]

فایلو پیوست کردم اگه مشکلی بود بگو

 

text.zip

[1234 51]

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

[shahriar 408]

مگه بیسیک کتابخونه ی string utils رو نداره اگه نداشت بگو پیوست کنم

[1234 51]

چرا داره ولی برای من خطای نبود TextSetting رومی ده

[shahriar 408]

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

راستی تیک داره دیگه ؟

 

String Ultis.rar

[shahriar 408]

آخ ببخشید

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

[shahriar 408]

شما داری این کد رو به تنهایی اجرا میکنی یا کپی کردی تو برنامت ؟

[1234 51]

به تنهایی

[alaghemand 82]

داداش شما پروژمن رو دانلود کنید و ببینید

این چیزی که شما دادی با چیزی که من میخام زمین تا آسمان فرق داره

 

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

[shahriar 408]

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

میخای تو متن از عکس هم استفاده کنی ؟

[1234 51]

شرمنده

توی خط Dim ts As TextSetting خطا می ده

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

[shahriar 408]

کد باید اینجوری باشه :

Sub Globals
	Dim lblText As Label
	Dim scvText As ScrollView
	Dim StrUtil As StringUtils
	
End Sub

Sub Activity_Create(FirstTime As Boolean)
	Activity.LoadLayout("LongText")
	scvText.Panel.LoadLayout("LongText1")
	scvText.Height = 100%y - scvText.Top
	SetText
End Sub

Sub Activity_Resume

End Sub

Sub Activity_Pause (UserClosed As Boolean)

End Sub


Sub SetText
	Dim ht As Float
	lblText.Text =  File.GetText(File.DirAssets,"text1.txt")
	ht=StrUtil.MeasureMultilineTextHeight(lblText, lblText.Text)
	scvText.Panel.Height = ht
	lblText.Height = ht
	scvText.ScrollPosition = 0
	DoEvents	
End Sub