تغییر رنگ لیبل با کلیک

[jfareba 37]

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

میشه بگین همچین چیزی امکان داره؟

حالا لیبل نباشه هم اشکال نداره فقط میخوام با کلیک رنگ فونتش عوض بشه

[abbas2142 557]

این شاید به دردت بخوره

Sub Label4_Click
Cur.Position = 0
	
	Dim check As Int
	check = Cur.GetString("Fav")
	
	If check = 1 Then
label4.color = corlors.rad
ToastMessageShow("از علاقه مندی ها حذف شد!",False)

Else
	Label4.Color = Colors.Black

ToastMessageShow("به علاقه مندی ها اضافه شد",False)

End Sub

دیگه کدهای علاقمندی رو نذاشتم ،،،،، خودت اضافه اشون کن

[Nemesis 1,846]

الان شما در تغییر رنگ مشکل دارید یا در اضاغه کردن به علاقه مندی

[Elyas Erfani 3,582]

سلام

چرا ک نشه

علاقه مندی ها ک اصلا ی بحث‌ جداس جستجو‌کنید اموزشاش هست توی انجمن

واسه تغییر رنگ یک لیبل‌ هم اول‌ در ساب گلوبال :

Private Label1 As Label

سپس در ساب لیبل کلیک :

Label1.Color = Colors.Red

مثلا این رنگو قرمز میکنه

و واسه تغییر فونت یک لیبل هم ابتدا در ساب‌ گلوبال :

Dim Font As TypeFace

و در اکتیویتی کریت :

Font = Typeface.LoadFromAssests("Esme Font.ttf")

و در ساب‌ لیبل کلیک فونت هم :

Label1.Typeface = Font

موفق باشید

[Nemesis 1,846]

به این صورت هم امکان پذیر هست

Sub label1_Click
	If fav = 1 Then
		label1.Color = Colors.Red
		'دستور اضافه کردن به علاقه مندی
		ToastMessageShow("به علاقه مندی اضافه شد",False)
	Else
		label1.Color = Colors.White
		'دستور حدف کردن به علاقه مندی
		ToastMessageShow("از علاقه مندی حذف شد",False)
	End If
End Sub

[jfareba 37]

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

[Elyas Erfani 3,582]

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

در ساب دکمه تغییر رنگ :

If Label1.Color = Colors.Black Then

Label1.Color = Colors.Red

Else

ToastMessageShow("Range Matn Siah Nist",True)

End If

[jfareba 37]

در ساب دکمه تغییر رنگ :

If Label1.Color = Colors.Black Then

Label1.Color = Colors.Red

Else

ToastMessageShow("Range Matn Siah Nist",True)

End If

 

اینو امتحان کردم زیرش خط قرمز میکشه

[Nemesis 1,846]

زیر کجا خط میکشه؟