Visual Basic.NET - Alguno sabe por que no funciona esta cosa tan simple ?

 
Vista:
sin imagen de perfil

Alguno sabe por que no funciona esta cosa tan simple ?

Publicado por romester (4 intervenciones) el 22/04/2012 11:07:46
MsgBox("Tu puntuacion es " & operacion, vbYesNo, "¿ Quieres repetir de nuevo ?")

Dim resultado As MsgBoxResult

If resultado = MsgBoxResult.Yes Then

Me.GroupBox1.Enabled = True
Me.GroupBox2.Enabled = True
Me.GroupBox3.Enabled = True

Me.GroupBox4.Enabled = True
Me.GroupBox5.Enabled = True
Me.GroupBox6.Enabled = True

Me.GroupBox7.Enabled = True
Me.GroupBox8.Enabled = True
Me.GroupBox9.Enabled = True

Else

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

cuando pulso el boton, tanto a SI como a NO el resultado es FALSE
utilizo Visual studio 2011 beta
con SELECT CASE me da el mismo resultado
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
sin imagen de perfil

Alguno sabe por que no funciona esta cosa tan simple ?

Publicado por Joan B. Fabregas (129 intervenciones) el 25/04/2012 10:16:25
Hola,

El problema esta en la variable resultado, que la inicializas pero no le asignas valor de forma que siempre esta con el valor por defecto de 0 (que equivale a MsgBoxResult.No)

Lo que se tendría que hacer es recoger el valor del MsgBox de la forma:

1
2
3
4
5
6
7
Dim resultado As MsgBoxResult
resultado=MsgBox("Tu puntuacion es " & operacion, vbYesNo, "¿ Quieres repetir de nuevo ?")
If resultado = MsgBoxResult.Yes Then
...
else
...
end if


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

Alguno sabe por que no funciona esta cosa tan simple ?

Publicado por mjrosg (21 intervenciones) el 28/04/2012 16:00:46
¿No funciona?, creo que más bien tiene un error de sintaxis.
Prueba de esta manera.

Dim resultado As MsgBoxResult
resultado = MsgBox("Tu puntuacion es " & operacion, vbYesNo, "¿ Quieres repetir de nuevo ?")

¿A que si funciona?
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