fin programme

Question

Bonjour.
y'aurait-il un moyen en VB6 de quitter complètement un programme, même si l'on se trouve dans une sous-fonction?
Par exemple, si j'ai:

private sub principal()
 call sousfonction1
 call sousfonction2
end sub 

private sub sousfonction1()
 .....
 if ... then
  JE VEUX SORTIR DU PROGRAMME
 end if
end sub


que dois-je mettre dans ces sousfonctions pour sortir definitivement du programme(cad de la sousfonction et de principal)?
Exit Sub ne permet de quitter que la procédure dans laquelle il se trouve..;
Meric d'avance

econs · Answer

Salut,










Sub ToutQuitter()
Dim f As Form


    For Each f In Forms

        Unload f

    Next f


End Sub






Et dans ta sous procédure :

If ... Then

    ToutQuitter
End If


A la place de ToutQuitter, tu pourrais aussi utiliser l'instruction End, mais c'est beaucoup moins propre.

Manu

panorama12 · Answer

Salut.
J'avais effectivement utilisé End mais je crois que l'autre solution est en fait meilleure.
Je te remercie.

Fin programme

2 réponses

Votre réponse

Discussions similaires