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

[amir222555 80]

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

[mahfelsoft 130]

 

از کتابخونه 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 رو اگه توی تنظیمات بزاریم بعد چطور رنگ انتخاب شده رو توی یه اکتیویتی دیگه فراخونی کنیم ؟

[پژمان نیکروان 6,055]

سلام.

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

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

[مجید آرتا 5,874]

سلام

شما یک فایل 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 )

[amir222555 80]

سلام

شما یک فایل 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 )

 

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

[abbas2142 557]

از کتابخونه 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

[مجید آرتا 5,874]

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

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

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