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

درخواست آموزش تغییر رنگ لیبل با لمس باتون (رنگهای اصلی)


vistamobile

سوال

سلام همه . این روزها اونقدر سوال پرسیدم تو انجمن که خودم خسته شدم  :crazy: 


رنگهای اصلی خود بیسیک مثل سیاه و سفید و قرمز و ... که بصورت متن هم وارد میشه  رو چجوری میشه زد به پس زمینه؟ یعنی یه باتون و یه لیبل داریم که با هربار فشردن باتون رنگ لیبل هم فرق کنه و عوض بشه.  :fekr: 


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

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

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

:)

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

Sub  btn_Click
	Dim num As Int = Rnd(0,4)
	
	Select num
		
		Case 0
			label1.Color = Colors.Black
		Case 1 
			label1.Color = Colors.Red
		Case 2 
			label1.Color = Colors.Green
		Case 3 
			label1.Color = Colors.Blue
		Case 4
			label1.Color = Colors.Yellow
	End Select
End Sub

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

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

امیدوارم همون باشه که می خوای

Sub Globals
	Dim a As Int = 0
	Private Button1 As Button
	Private Label1 As Label
End Sub
Sub Button1_Click
	a = a+1
	If a = 12 Then
		a =0
	End If
	If a = 1 Then
		Label1.Color = Colors.Black
	Else If a = 2 Then
		Label1.Color = Colors.Blue
	Else If a = 3 Then
		Label1.Color = Colors.Cyan
	Else If a = 4 Then
		Label1.Color = Colors.DarkGray
	Else If a = 5 Then
		Label1.Color = Colors.Gray
	Else If a = 6 Then
		Label1.Color = Colors.Green
	Else If a = 7 Then
		Label1.Color = Colors.LightGray
	Else If a = 8 Then
		Label1.Color = Colors.Magenta
	Else If a = 9 Then
		Label1.Color = Colors.Red
	Else If a = 10 Then
		Label1.Color = Colors.White
	Else If a = 11 Then
		Label1.Color = Colors.Yellow
	End If
End Sub
لینک ارسال
به اشتراک گذاری در سایت های دیگر

اگر چندتا int داشته باشم و بخوام دستور بدم چی؟ مثلا یه پنل مخفی دارم میخوام وقتی int  هام به عدد خاصی رسیدن پنل روشن بشه . اینجوری :

 

If a1 = 6 And a2=6 Then

Panel1.Visible=True
 End If

 ولی کار نمیکنه!! هر نوع کدی هم به ذهنم رسید نوشتم. حتی کد رو دو ساب های مختلف هم گذاشتم ولی نشد !! :gol:  :crazy:

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

ببین این سور به دردت می خوره

 

واسه خودم که کار کرد یعنی وقتی به عدد 6 دوتا میرسن پنل نمایش داده می شه

 

البته اگه منظورتون همین بود

test1.rar

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

داداش ممنون تست میزنم. ان شا الله همیشه موفق باشی

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

سلام

والا فک کنم درست متوجه نشدم اقا مخترا گل

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

label1.color = colors.red
 
'OR'
 
Activity.Color = Colors.Yellow

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

سلام. من پنجتا رنگ دارم : قرمز سبز آبی سیاه و سفید . درسته؟ خوب به باتون بگیم که با هر بار لمس رنگ لیبل رو عوض کن به این پنجتا. یعنی مثلا با لمس اول قرمز بشه بعد دوباره باتون لمس شد، لیبل سبز بشه بعد دفعه سوم ....به همین صورت :crazy:

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

بایگانی شده

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

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

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