groupbox Aleatorios
Publicado por wilian (1 intervención) el 26/06/2015 18:43:02
Hola soy estudiante y estoy trabajando en un juego de trivia en visual.net.....
tengo unos groupbox con unos checkbox y la idea es cada vez que el usuario le de al boton comenzar aparezca los groupbox de forma aleatoria ademas que si en algun groupbox que ya tenga algun checkbox palomeado este ya no se repita he intentado de esta forma:
Si me aparecen de forma aleatoria pero igual aunque ya este palomeado algun checkbox de un grupbox este siempre aparece y ademas a veces se repiten los groupbox y a veces aunque le de click al boton no aparece nada tengo que darle click varias veces para que siga apareciendo los groupbox de forma aleatoria........
Les agradeceria mucho si me pueden ayudar..................
tengo unos groupbox con unos checkbox y la idea es cada vez que el usuario le de al boton comenzar aparezca los groupbox de forma aleatoria ademas que si en algun groupbox que ya tenga algun checkbox palomeado este ya no se repita he intentado de esta forma:
Si me aparecen de forma aleatoria pero igual aunque ya este palomeado algun checkbox de un grupbox este siempre aparece y ademas a veces se repiten los groupbox y a veces aunque le de click al boton no aparece nada tengo que darle click varias veces para que siga apareciendo los groupbox de forma aleatoria........
Les agradeceria mucho si me pueden ayudar..................
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
Private Sub btn7_Click(sender As Object, e As EventArgs) Handles btn7.Click
Dim box As Integer
Randomize()
box = Int(Rnd() * 6)
Select Case box
Case 1 : If Box1.Visible = True And CHEK_G1_1.CheckState = CheckState.Checked Then
Box1.Visible = False
Else
Box1.Visible = True
End If
Case 2
If box2.Visible = True And Check_g2_1.CheckState = CheckState.Checked Then
box2.Visible = False
Else
box2.Visible = True
box2.Location = New Point(40, 27)
End If
Case 3
If box3.Visible = True And CHEK_G3_1.CheckState = CheckState.Checked Then
box3.Visible = False
Else
box3.Visible = True
box3.Location = New Point(40, 27)
End If
Case 4
If box4.Visible = True And check_g4_1.CheckState = CheckState.Checked Then
box4.Visible = False
Else
box4.Visible = True
box4.Location = New Point(40, 27)
End If
Case 5
If box5.Visible = True And check_g5_1.CheckState = CheckState.Checked Then
box5.Visible = False
Else
box5.Visible = True
box5.Location = New Point(40, 27)
End If
Case 6
If box6.Visible = True And check_g6_1.CheckState = CheckState.Checked Then
box6.Visible = False
Else
box6.Visible = True
box6.Location = New Point(40, 27)
End If
End Select
End Sub
End Class
Valora esta pregunta
0