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

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

Newsletters