غیر فعال کردن تصادفی button

[MoniSoft 14]

سلام چطور میشه بین 3 تا button یکی را به صورت رندوم غیرفعال کرد؟

[hosseinkarimian 100]

در 9 دقیقه قبل، monisoft گفته است :

سلام چطور میشه بین 3 تا button یکی را به صورت رندوم غیرفعال کرد؟

button1.Visible=True
	button1.Visible=True
	button1.Visible=True
	
	Dim rnddd As Int
	
	rnddd= Round(Rnd(1,3))
	
	If rnddd=1 Then
		
		button1.Visible=False
			
			
		
	End If
	
	If rnddd=2 Then
		
		button1.Visible=False
			
			
		
	End If
	
	If rnddd=3 Then
		
		
		button1.Visible=False
			
		
	End If

 

[sbr 233]

در 23 دقیقه قبل، monisoft گفته است :

سلام چطور میشه بین 3 تا button یکی را به صورت رندوم غیرفعال کرد؟

	Dim btn1 , btn2 , btn3 As Button

	Dim number As Int
	number = Rnd(1,3)
	
	Select number
		
		Case 1
			btn1.Enabled = False
			btn1.Visible = False
			
		Case 2
			btn2.Enabled = False
			btn2.Visible = False
			
		Case 3
			btn3.Enabled = False
			btn3.Visible = False
		
	End Select