مشکل با لیبل

[mahdikam 35]

سلام خدمت همه دوستان 

من دارم یه بروزه ای رو مینویسم البته واسه یادگیری بیشتر یه سری مشکلاتی دارم توش که مجبورم واسه اینکه بتونم مشکلمو توضیح بدم بروژرو بزارم تا دانلود کنید تا رو بروژه مشکلمو بگم شرمنده همه دوستان

مشکل ۱:وقتی بروژه اجرا میشه سه تا اسم میاد که درواقع لیبله مشکلم اینه که میخاستم ببینم چه جوری باید فاصله بین این اسم اولو با اسم بعدی کم کنم اخه فاصلشون زیاده وقتی بروژرو اجرا کنید خودتون میفهمید

مشکل۲:وقتی روی اسم اول که نوشته مهدی کلیک کنید یه صفحه دیگه باز میشه که یه سری مشخصات توشه میخاستم ببینم که اون مشخصاتو چه جوری باید راست چین کنم؟من هر کاری کردم نوشته هاش راست چین نشد ک نشد 

مرسی شرمنده خیلی حرف زدم 

prozhe.rar

[Nemesis 1,846]

ببین شما یه لایوت ئرست کردید پس اضافه هست اگه نمیخواید لایوت 2 رو پاک کنید و به این کد تغییر بدید

#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.
	Dim pos As Int
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.
	Private Label1 As Label
	Private ScrollView1 As ScrollView
	Private Panel1 As Panel
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("4")
Label1.Initialize("label1")
	Dim cur1 As Cursor
	cur1=Main.SQL1.ExecQuery("select * from moshakhasat")
	cur1.Position = pos
	Label1.Text = cur1.GetString("moshakhasat")
	Label1.Gravity =  Gravity.RIGHT
		Dim ts As TextSetting
ts.initialize
'ts.Initialize
	'Label1.Color = Colors.Transparent
'ScrollView1.Color = Colors.Transparent
ScrollView1.Panel.addview(Label1,30,80,100%x,100%y)
ts.longtext(Label1,Label1.text,"14",ScrollView1,"2")

End Sub

[Nemesis 1,846]

شما باید آموزش مولتی پنل رو از سایت دانلود کنید و اون رو فرا بگیرید

ولی به هرحال

 

برای سوال اول

شما در اکتیویتی یه متغیر دارید با نام stop

در اینجا مقدار مورد نظر رو بهش بدید

stop=stop+35%y

35%Y به معنی فاصله از بالا به مقدار 35% بالا به پایین هست که میتونید کم کنید

 

برای سوال دوم

 

شما در بخش designer  لایوت با نام 2 رو باز کنید لیبل مورد نظر رو انتخاب کنید و در بخش Properties  قسمت horizontal align گزینه Right رو انتخاب کنید

 

در پناه حق

[mahdikam 35]

horizontal align نداره 

[Nemesis 1,846]

[mahdikam 35]

اقا عوض نمیشه هر کاری میکنم فک کنم من حتی میخام رنگ متنم عوض کنم نمیشه فک کنم چون از کتابخانه textsettingاستفاده کردم اینطوری.

[shahab.es 5,429]

سلام

به کتابخونه تکست ستینگ ربطی نداره

سعی کن با کد امتخان کنی

مثلا برای رنگ

LABEL21.textColor=Colors.Red

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

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

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

[Nemesis 1,846]

اکتیویتی دوم خودتون رو که نام d داره به ایک کد تغییر بدید

#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.
	Dim pos As Int
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.

	Private ScrollView1 As ScrollView
	Private Panel1 As Panel
	Private Label2 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("4")
	Dim cur1 As Cursor
	cur1=Main.SQL1.ExecQuery("select * from moshakhasat")
	cur1.Position = pos
	
		Dim ts As TextSetting
ts.initialize
'ts.Initialize
	'Label1.Color = Colors.Transparent
'ScrollView1.Color = Colors.Transparent
ScrollView1.Panel.LoadLayout("2")
Label2.Text = cur1.GetString("moshakhasat")
ts.longtext(Label2,Label2.text,"14",ScrollView1,"2")


End Sub

[mahdikam 35]

به این کد چرا؟این کد رو بنویسم که دیگه تکست باکسم اسکرول نمیشه داداش بعدشم ارور میده الان مشکل من تو راست چین کردنه رنگ رو مثال زدم

[mahdikam 35]

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

[Nemesis 1,846]

الان در دستگاه من راستچین هست

Label1.Gravity =  Gravity.RIGHT