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

روش اضافه کردن رنگ متن به منوی تنظیمات


amir222555

سوال

با سلام به همه دوستان اگر بخواهیم به تنظیمات یه قسمت با نام رنگ متن اضافه کنیم که با اون بتونیم رنگ نوشته را تغییر بدیم چیکار باید بکنیم با تشکر از همگی

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

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

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

 

از کتابخونه dialogs هم می تونی استفاده کنی


Sub Button1_Click
	Dim dia1 As ColorDialog
	Dim x As Int
	x=dia1.Show("انتخاب رنگ","اعمال","انصراف","",Null)
	If x = DialogResponse.POSITIVE Then
	    Label14.TextColor = dia1.RGB
 
   ToastMessageShow("رنگ اتخاب شده ذخیره شد",False) 
	Else
	
	End If
End Sub

 

ببخشید colordialog رو اگه توی تنظیمات بزاریم بعد چطور رنگ انتخاب شده رو توی یه اکتیویتی دیگه فراخونی کنیم ؟

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

سلام.

برای رنگ ها میتونید اسپینر بذارید و یه سری رنگ بهش اضافه کنید:

sp.Add("مشکی")
sp.Add("قرمز")
sp.Add("آبی")

بعد وقتی یکی که انتخاب میشه مقدارش رو میتونید ذخیره کنید.

به فرض اگه قرمز رو انتخاب کرد ، قرمز ذخیره میشه.

 

برای اعمال هم میتونید شرط بذارید که اگه قرمز بود رنگ متن لیبل رو قرمز کنه و...

If zakhireShode="قرمز" Then
label1.textcolor=Colors.Red
else If zakhireShode="مشکی" Then
label1.textcolor=Colors.Black
else If zakhireShode="آبی" Then
label1.textcolor=Colors.Blue
End If
لینک ارسال
به اشتراک گذاری در سایت های دیگر

سلام

شما یک فایل Txt  بساز توی این فایل مثلا یک رنگ پیش فرض بزار.مثلا black.

و توی پوشه files  اضافش کن

حالا  توی تنظیمات جایی که متنو انتخاب میکنی،مثلا رنگ هارو با پنل نمایش دادی :

Sub Globals
Dim LstColor As List
End Sub

Sub Activity_Create(FirstTime As Boolean)
LstColor = File.ReadList(File.DirInternal,"set.txt")
End Sub
Sub green_Click
 LstColor.Set(0,"green")
End Sub
Sub btnSave_Click
 File.WriteList(File.DirInternal,"set.txt",LstColor)
 ToastMessageShow("تنظیمات مورد نظر اعمال شد",False)
End Sub

کد بالا ببینید کامل نیست فقط دارم راهنمایی میکنم

ببینید شما اولا باید فایل set.txt  رو کپی کنید در DirInternal

بعد واسه اینکه رنگ متن تغییر کنه شما باید بیایید اون ایندکسی که رنگمون رو مشخص میکنیم set  کنیم.(  به نحوه ای UPDATE )

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

سلام

شما یک فایل Txt  بساز توی این فایل مثلا یک رنگ پیش فرض بزار.مثلا black.

و توی پوشه files  اضافش کن

حالا  توی تنظیمات جایی که متنو انتخاب میکنی،مثلا رنگ هارو با پنل نمایش دادی :

Sub Globals
Dim LstColor As List
End Sub

Sub Activity_Create(FirstTime As Boolean)
LstColor = File.ReadList(File.DirInternal,"set.txt")
End Sub
Sub green_Click
 LstColor.Set(0,"green")
End Sub
Sub btnSave_Click
 File.WriteList(File.DirInternal,"set.txt",LstColor)
 ToastMessageShow("تنظیمات مورد نظر اعمال شد",False)
End Sub

کد بالا ببینید کامل نیست فقط دارم راهنمایی میکنم

ببینید شما اولا باید فایل set.txt  رو کپی کنید در DirInternal

بعد واسه اینکه رنگ متن تغییر کنه شما باید بیایید اون ایندکسی که رنگمون رو مشخص میکنیم set  کنیم.(  به نحوه ای UPDATE )

 

ببخشید این روش مثلا در مورد دیتابیس هم صدق میکنه؟

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

از کتابخونه dialogs هم می تونی استفاده کنی


Sub Button1_Click
	Dim dia1 As ColorDialog
	Dim x As Int
	x=dia1.Show("انتخاب رنگ","اعمال","انصراف","",Null)
	If x = DialogResponse.POSITIVE Then
	    Label14.TextColor = dia1.RGB
 
   ToastMessageShow("رنگ اتخاب شده ذخیره شد",False) 
	Else
	
	End If
End Sub
لینک ارسال
به اشتراک گذاری در سایت های دیگر

ببخشید این روش مثلا در مورد دیتابیس هم صدق میکنه؟

توی دیتابیس دیگه باز باید از کوئری استفاده کنید و مقادیر رو تغییر بدید.

به نظرم واسه تنظیماتی مثل رنگ و فونت و اینا میشه با یک فایل txt  و یک set  کردن کارمون رو راه بندازیم

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

بایگانی شده

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

  • کاربران آنلاین در این صفحه   0 کاربر

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