کدام ابزار برای نمایش متن؟؟

[amirsafari 116]

سلام دوستان برای نمایش متن های بلند مثل کتاب از چه لبزاری استفاده کنم ؟؟؟ scrolview یا label  

 

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

[porya 959]

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

[amirsafari 116]

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

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

[porya 959]

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

[amirsafari 116]

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

database

[porya 959]

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

Sub Process_Globals
	'These global variables will be declared once when the application starts.
	'These variables can be accessed from all modules.
	
	Dim sql1 As SQl
 Dim cursor1 As Cursor
Private ScrollView1 As ScrollView
 dim label1 as label
end sub

	If File.Exists(File.DirInternal,"اسم دیتابیس.db") = False Then
	File.Copy(File.DirAssets,"اسم دیتابیس.db",File.DirInternal,"اسم دیتابیس.db")
	End If
	
	If sql1.IsInitialized = False Then
	sql1.Initialize(File.DirInternal,"اسم دیتابیس.db",True)
	End If
	
	cursor1 = sql1.ExecQuery("SELECT * FROM اسم جدول دیتابیس")

برای نمایش متن از این کد استفاده میکنی...

For i = 0 To cursor1.RowCount-1
cursor1.Position = i
Label1.Text = cursor1.GetString("اسم ستون متنت در دیتابیس")
next

و برای اسکرول کردن...

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

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

	Dim int1 As Int
	int1 = 0

	Dim su As StringUtils
	label1.Height = su.MeasureMultilineTextHeight(label1,label1.Text)
	int1 = int1 + label1.Height
	ScrollView1.Panel.Height = int1

تمام...