Visual Basic - Caprurar respuesta

Life is soft - evento anual de software empresarial
 
Vista:

Caprurar respuesta

Publicado por amderon (5 intervenciones) el 24/08/2006 09:17:31
If MsgBox("Quieres empezar otra vez?", vbYesNo, "Game Over") Is vbYes Then

si pongo esto, teoricamente deberia hacer la pregunta, y le da a SI entraria en el condicional no¿?

pues cuando llega a la subrutina en la q esta ese código me falla diciendo :

"No coinciden los tipos"

Alguien me podria decir xq

Gracias
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

RE:Caprurar respuesta

Publicado por Jasall (27 intervenciones) el 24/08/2006 10:17:34
Buenas cambia el " Is " por " = "
If MsgBox("Quieres empezar otra vez?", vbYesNo, "Game Over") = vbYes Then

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

RE:Caprurar respuesta

Publicado por dansan (53 intervenciones) el 24/08/2006 16:02:51
Si quieres prueba de esta forma, es mas codigo pero funciona

Private Sub Command1_Click()
Dim MM$, TT$, Tecla As Byte
MM$ = "... ¿ quieres empezar otra vez?": TT$ = "** SALIDA **"
Tecla = MsgBox(MM$, 4 + 32, TT$)
If (Tecla = 6) Then
Form4.Show

End If
End Sub
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

RE:Caprurar respuesta

Publicado por cmgcharli (128 intervenciones) el 25/08/2006 08:05:27
Dim Respuesta as Variant
Respuesta=MsgBox("¿Quieres empezar de nuevo?",36,"Titulo del cuadro de mensaje de pregunta")
IF Respuesta =vbYes Then
"Aqui va la accion a realizar en caso de se afirmativa la respuesta la pregunta"
Else
"Aqui va la accion a realizar en caso de ser negativa la respuesta a la pregunta"
End IF
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