Visual Basic.NET - de esta forma tampoco funciona

   
Vista:

de esta forma tampoco funciona

Publicado por romester (4 intervenciones) el 22/04/2012 11:53:56
Aqui esta el procedimiento entero dentro del evento click de un button

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
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
 
        'Call corregir_test()
        Dim a, b, c, d, f, g, h, i, j As Byte
        Dim operacion As Integer
        Dim resultado As MsgBoxResult
 
        If rdb1(1).Checked = True Then
            a = 1
            Me.Label4.Text = "Respuesta correcta"
 
        Else : rdb1(1).Checked = False
            a = 0
            Me.Label4.Text = ""
        End If
 
        If rdb2(3).Checked = True Then
            b = 1
            Me.Label5.Text = "Respuesta correcta"
 
        Else : rdb2(3).Checked = False
            b = 0
            Me.Label5.Text = ""
        End If
 
        If rdb3(1).Checked = True Then
            c = 1
            Me.Label6.Text = "Respuesta correcta"
 
        Else : rdb3(1).Checked = False
            c = 0
            Me.Label6.Text = ""
        End If
 
        If rdb4(0).Checked = True Then
            d = 1
            Me.Label7.Text = "Respuesta correcta"
 
        Else : rdb4(0).Checked = False
            d = 0
            Me.Label7.Text = ""
        End If
        '-------------------------------
        '-------------------------------
        If rdb5(2).Checked = True Then
            f = 1
            Me.Label8.Text = "Respuesta correcta"
 
        Else : rdb5(2).Checked = False
            f = 0
            Me.Label8.Text = ""
        End If
        '-------------------------------
        '-------------------------------
        If rdb6(2).Checked = True Then
            g = 1
            Me.Label9.Text = "Respuesta correcta"
 
        Else : rdb6(2).Checked = False
            g = 0
            Me.Label9.Text = ""
        End If
        '-------------------------------
        '-------------------------------
        If rdb7(0).Checked = True Then
            h = 1
            Me.Label10.Text = "Respuesta correcta"
 
        Else : rdb7(0).Checked = False
            h = 0
            Me.Label10.Text = ""
        End If
        '-------------------------------
        '-------------------------------
        If rdb8(3).Checked = True Then
            i = 1
            Me.Label11.Text = "Respuesta correcta"
 
        Else : rdb8(3).Checked = False
            i = 0
            Me.Label11.Text = ""
        End If
        '-------------------------------
        '-------------------------------
        If rdb9(1).Checked = True Then
            j = 1
            Me.Label12.Text = "Respuesta correcta"
 
        Else : rdb9(1).Checked = False
            j = 0
            Me.Label12.Text = ""
        End If
        operacion = a + b + c + d + f + g + h + i + j
 
 
         MsgBox("Tu puntuacion es " & operacion, vbYesNo, "¿ Quieres repetir de nuevo ?")
 
 
        If resultado = MsgBoxResult.No Then
 
            Me.GroupBox1.Enabled = False
            Me.GroupBox2.Enabled = False
            Me.GroupBox3.Enabled = False
 
            Me.GroupBox4.Enabled = False
            Me.GroupBox5.Enabled = False
            Me.GroupBox6.Enabled = False
 
            Me.GroupBox7.Enabled = False
            Me.GroupBox8.Enabled = False
            Me.GroupBox9.Enabled = False
 
        End If

Esta simplificado al maximo, lo deje para que cuando salga el msgbox si pulsa SI no pase nada(no tiene codigo), pero cuando pulsa en NO el Me.GroupBox1.Enabled = False se queda en TRUE
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

de esta forma tampoco funciona

Publicado por romester (4 intervenciones) el 22/04/2012 11:59:14
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
If resultado = MsgBoxResult.No Then
 
            Me.GroupBox1.Visible = False
            Me.GroupBox2.Visible = False
            Me.GroupBox3.Visible = False
 
            Me.GroupBox4.Visible = False
            Me.GroupBox5.Visible = False
            Me.GroupBox6.Visible = False
 
            Me.GroupBox7.Visible = False
            Me.GroupBox8.Visible = False
            Me.GroupBox9.Visible = False
 
        End If

tampoco XD
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar