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
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
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 = 1Me.Label4.Text = "Respuesta correcta"
Else : rdb1(1).Checked = False
a = 0Me.Label4.Text = ""
End If
If rdb2(3).Checked = True Then
b = 1Me.Label5.Text = "Respuesta correcta"
Else : rdb2(3).Checked = False
b = 0Me.Label5.Text = ""
End If
If rdb3(1).Checked = True Then
c = 1Me.Label6.Text = "Respuesta correcta"
Else : rdb3(1).Checked = False
c = 0Me.Label6.Text = ""
End If
If rdb4(0).Checked = True Then
d = 1Me.Label7.Text = "Respuesta correcta"
Else : rdb4(0).Checked = False
d = 0Me.Label7.Text = ""
End If
'-------------------------------
'-------------------------------
If rdb5(2).Checked = True Then
f = 1Me.Label8.Text = "Respuesta correcta"
Else : rdb5(2).Checked = False
f = 0Me.Label8.Text = ""
End If
'-------------------------------
'-------------------------------
If rdb6(2).Checked = True Then
g = 1Me.Label9.Text = "Respuesta correcta"
Else : rdb6(2).Checked = False
g = 0Me.Label9.Text = ""
End If
'-------------------------------
'-------------------------------
If rdb7(0).Checked = True Then
h = 1Me.Label10.Text = "Respuesta correcta"
Else : rdb7(0).Checked = False
h = 0Me.Label10.Text = ""
End If
'-------------------------------
'-------------------------------
If rdb8(3).Checked = True Then
i = 1Me.Label11.Text = "Respuesta correcta"
Else : rdb8(3).Checked = False
i = 0Me.Label11.Text = ""
End If
'-------------------------------
'-------------------------------
If rdb9(1).Checked = True Then
j = 1Me.Label12.Text = "Respuesta correcta"
Else : rdb9(1).Checked = False
j = 0Me.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
0