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

[vistamobile 1,700]

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

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

[shahab.es 5,429]

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

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

[abbas2142 557]

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

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

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

[vistamobile 1,700]

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

 

If a1 = 6 And a2=6 Then

Panel1.Visible=True

 End If

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

[abbas2142 557]

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

 

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

 

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

test1.rar

[vistamobile 1,700]

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

[shahab.es 5,429]

سلام

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

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

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

[vistamobile 1,700]

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