Erreur en VB mais je vois pas où Résolu/Fermé

Question

Bonjour,
 

Alors je suis en train de crée un jeu en VB6 et dans ce code quand je lance en débogage VB passe complêtement la dernière étape /


Private Sub Command2_Click()
If F_FichePersonnage.Check1.Value = 0 Then
    F_21.Show
    Unload F_20
    F_FichePersonnage.Check1.Value = 1
ElseIf F_FichePersonnage.Check1.Value = 1 Then
    F_FichePersonnage.Check2.Value = 1
    Unload F_20
    F_21.Show
 ICI------>   ElseIf F_FichePersonnage.Check1.Value = 1 And F_FichePersonnage.Check2.Value = 1 Then
        Dim Sup
        Sup = MsgBox("Vous avez utilisez tout vos jokers", vbOKOnly + vbInformation, " Joker ")
            
End If
End Sub

Je n'ai pas l'affichage de la MSgBox alors que mes deux check.value = 1 et sa charge bien la F_21 ..

Merci d'avence

Play With me · Answer

Ah non c'est bon j'ai compris d'ou venez mon erreur j'ai poster un peu trop vite il fallait juste inverse l'étape 

ElseIf F_FichePersonnage.Check1.Value = 1 Then 
F_FichePersonnage.Check2.Value = 1 
Unload F_20 
F_21.Show 
 
Avec la dernière pour qu'il passe bien par toute les étapes..

marcus · Answer

essaye en enlevant 
Dim Sup

et met directement MgsBox=.....

Play With me · Answer

Non c'est bon sa marche mais il passait pas la dernière étape y voyait : Si Check1 = chocher et il rentrer directe dedans c'est pour ça

Erreur en VB mais je vois pas où

3 réponses

Discussions similaires