رفتن به مطلب
  • 0

تنظیمات برنامه


aref74

سوال

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

کدای قسمت تنظیمات 

Sub Activity_Create(FirstTime As Boolean)
	Activity.LoadLayout("stg")
	If size<18 Then
		Label4.Text=18
		SeekBar1.Value=18
	End If

	RadioButton1.Typeface=Typeface.LoadFromAssets("B Lotus_p30download.com.ttf")
	RadioButton2.Typeface=Typeface.LoadFromAssets("B Nazanin Bold_p30download.com.ttf")
	RadioButton3.Typeface=Typeface.LoadFromAssets("B Titr Bold_p30download.com.ttf")

red.Color=Colors.Red
abi.Color=Colors.Blue
green.Color=Colors.Green
sefed.Color=Colors.White
End Sub
  
  Sub RadioButton1_CheckedChange(Checked As Boolean)
	If RadioButton1.Checked=True Then
		font="lotus"
		Label5.Typeface=Typeface.LoadFromAssets("B Lotus_p30download.com.ttf")
	End If
	
End Sub

Sub RadioButton2_CheckedChange(Checked As Boolean)
	If RadioButton2.Checked=True Then
		font="b nazanin"
		Label5.Typeface=Typeface.LoadFromAssets("B Nazanin Bold_p30download.com.ttf")
	End If

End Sub

Sub RadioButton3_CheckedChange(Checked As Boolean)
	If RadioButton3.Checked=True Then
		font="b titr"
		Label5.Typeface=Typeface.LoadFromAssets("B Titr Bold_p30download.com.ttf")
	End If

End Sub

Sub btn_peshvarz_Click
	font1="lotus"
	size1=20
	color1="black"

	ToastMessageShow("تنظیمات پیشفرض انجام شد",False)
	StartActivity("LIST")
	Activity.Finish
End Sub

Sub btn_save_Click
	If font="" Then
		ToastMessageShow("لطفا متن مورد نظر خود را انتخاب کنید",False)

	Else If color="" Then
		ToastMessageShow("لطفا یک رنگ انتخاب کنید",False)

	Else If size<18 Then
		ToastMessageShow("لطفا اندازه متن را انتخاب کنید",False)
	Else
		font1=font
		size1=size
		faselekhat1=faselekhat
		ToastMessageShow("تنظیمات انجام شد",False)
		StartActivity("LIST")
		Activity.Finish
	End If
End Sub

Sub abi_Click
	color="blue"
	Label5.TextColor=Colors.Blue
	ToastMessageShow("انتخاب شد",False)
End Sub

Sub green_Click
	color="green"
	Label5.TextColor=Colors.Green
	ToastMessageShow("انتخاب شد",False)
End Sub

Sub red_Click
	color="red"
	Label5.TextColor=Colors.Red
	ToastMessageShow("انتخاب شد",False)
End Sub

 اینم قسمتی از کد مربوطه برای اعمال تنظیمات بر روی متنی که از دیتابیس میگیرم ولی به متغیرهای font1,size1,color1 گیر میده 

556_untitled.png

 

لینک ارسال
به اشتراک گذاری در سایت های دیگر

3 پاسخ به این سوال تاکنون داده شده است

ارسال های توصیه شده

سلام

ارور سینتکس یعنی قواعد دستوری کدنویسی را رعایت نکردید.

font1 اینجا چیه؟؟ ...

setting اینجا چیه؟؟ ...

چرا کنار هم اومندن این دوتا؟! مگه font1 از توابع یا خصوصیات setting هست؟

Label.Text="Salam"

الان تو مثال بالا میگه متنِ لیبل برابر بشه با سلام

ولی در کد شما setting.font1 یعنی چه؟؟

اگر setting از نوع مثلا  لیبل باشه باید مثل کد زیر بشه 

If setting.Typeface=Lutos Then ...

 

لینک ارسال
به اشتراک گذاری در سایت های دیگر

در 9 ساعت قبل، mohsen m گفته است :

سلام

ارور سینتکس یعنی قواعد دستوری کدنویسی را رعایت نکردید.

font1 اینجا چیه؟؟ ...

setting اینجا چیه؟؟ ...

چرا کنار هم اومندن این دوتا؟! مگه font1 از توابع یا خصوصیات setting هست؟

Label.Text="Salam"

الان تو مثال بالا میگه متنِ لیبل برابر بشه با سلام

ولی در کد شما setting.font1 یعنی چه؟؟

اگر setting از نوع مثلا  لیبل باشه باید مثل کد زیر بشه 

If setting.Typeface=Lutos Then ...

 

ببینید این font1 یا color1 یک متغیر که توی اکتیویتی setting به کار رفته و تعریف شدند و الان میخام تو اکتیویتی MATN از اونااستفاده کنم و بگم وقتی مقدارش فلان بود بیا و متنا متناسب با تنظیماتی که اونجا شده تغییر بده. 

مگه برا فراخوانی یک متغیر که تو اکتیویتی دیگه به کار رفته همینجور نیست؟ 

نام متغیر . نام اکتیویتی 

..... =setting. font1

لینک ارسال
به اشتراک گذاری در سایت های دیگر

سلام

برای دسترسی ب متغییر های موجود در ماژول دیگه، شما باید متغییر هارو حتما به صورت publuc  در تابع Proccess_Globals  تعریف کنید

در ضمن این تیکه کد رو هم درست کنید »

	If size<18 Then
		Label4.Text=18
		SeekBar1.Value=18
	End If

کد Label.Text رو به Label.TextSize  تغییر بدید

لینک ارسال
به اشتراک گذاری در سایت های دیگر

بایگانی شده

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

مهمان
این موضوع برای عدم ارسال قفل گردیده است.
  • کاربران آنلاین در این صفحه   0 کاربر

    • هیچ کاربر عضوی،در حال مشاهده این صفحه نیست.
×
×
  • اضافه کردن...