مشکل در اسکروول ویو

[sepi0211 7]

سلام بنده با استفاده از کتابخونه فراخوانی3 متنم ر از دیتابیس فراخوانی میکنم اما در اسکروول ویو فقط یک صفحه سفید میاد و خبری از متن ها نیستش

لطفا بگید باید چکار کنم

 

 

#Region  Project Attributes 
	#ApplicationLabel: B4A Example
	#VersionCode: 1
	#VersionName: 
	'SupportedOrientations possible values: unspecified, landscape or portrait.
	#SupportedOrientations: unspecified
	#CanInstallToExternalStorage: False
#End Region

#Region  Activity Attributes 
	#FullScreen: False
	#IncludeTitle: True
#End Region

Sub Process_Globals
	'These global variables will be declared once when the application starts.
	'These variables can be accessed from all modules.

End Sub

Sub Globals
	'These global variables will be redeclared each time the activity is created.
	'These variables can only be accessed from this module.
   Dim fara As Farakhani
	Dim text As Label
	Private ScrollView1 As ScrollView

End Sub

Sub Activity_Create(FirstTime As Boolean)
	'Do not forget to load the layout file created with the visual designer. For example:
	Activity.LoadLayout("Lmain")
	text.Initialize("")
	fara.initialize("ketab.db" , "ketab" , True)
	fara.FarakhaniMatn("id" , "1" , text , "matn")
	ScrollView1.Panel.AddView(text , 0,0 , 100%x , 100%y)
ScrollView1.Height = 100%Y
text.Color = Colors.Black

	
	
	
	
	

End Sub

Sub Activity_Resume

End Sub

Sub Activity_Pause (UserClosed As Boolean)

End Sub

 

 

 

با کتابخونه text setting  هم کد نوشتم اما بین هر خط متن کلی فاضله میوفتاد لطفا راهنمایی کنند دوستان

 

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

مرسی

ketab.rar

[sepi0211 7]

سلام دلاور

	ScrollView1.Panel.AddView(text , 0,0 , 100%x , 100%y)
ScrollView1.Height = 100%Y

این دو خط رو حذف کنید از برنامه تون

fara.settext(text,ScrollView1)

اینو بذارید و اوپس، ردیفه

مرسی داداچ دستت طلا

اپدیت 4 هم تو راه هستش؟

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

[shahab.es 5,429]

مرسی داداچ دستت طلا

اپدیت 4 هم تو راه هستش؟

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

انشاالله مشکلاتش برطرف بشه، تو راهه

چرا هموطن، سطحتون که بره بالاتر، باید شروع کنید با کتابخونه Sql کار کنید

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

موفق باشید

[taha1371 84]

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

 

 

 

 

Private ScrollView1 As ScrollView

Dim fara As Farakhani

Dim ts As TextSetting

Dim Farakhani1 As Farakhani

Private label1 As Label

End Sub

 

Sub Activity_Create(FirstTime As Boolean)

'Do not forget to load the layout file created with the visual designer. For example:

Activity.LoadLayout("3")

label1.Initialize("")

Farakhani1.initialize("data.db","tbl",True)

Farakhani1.FarakhaniMatn("1","id",label1,"matn")

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

ts.LongText(label1,label1.Text,15,ScrollView1,2)

label1.Gravity=Gravity.RIGHT

label1.TextColor=Colors.Black

label1.Gravity = Gravity.center

[sepi0211 7]

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

 

 

 

 

Private ScrollView1 As ScrollView

Dim fara As Farakhani

Dim ts As TextSetting

Dim Farakhani1 As Farakhani

Private label1 As Label

End Sub

 

Sub Activity_Create(FirstTime As Boolean)

'Do not forget to load the layout file created with the visual designer. For example:

Activity.LoadLayout("3")

label1.Initialize("")

Farakhani1.initialize("data.db","tbl",True)

Farakhani1.FarakhaniMatn("1","id",label1,"matn")

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

ts.LongText(label1,label1.Text,15,ScrollView1,2)

label1.Gravity=Gravity.RIGHT

label1.TextColor=Colors.Black

label1.Gravity = Gravity.center

بدون text setting نمیشه اخه با این کتابب خونه که انجام دادم با هر یک فاضله بین خط ها این کلی فاضله میندازه

[shahab.es 5,429]

سلام دلاور

	ScrollView1.Panel.AddView(text , 0,0 , 100%x , 100%y)
ScrollView1.Height = 100%Y

این دو خط رو حذف کنید از برنامه تون

fara.settext(text,ScrollView1)

اینو بذارید و اوپس، ردیفه