Visual Basic.NET - groupbox Aleatorios

   
Vista:

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..................

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
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder