Vérifier si une forme est chargéeRésolu

Question

Bonjour, 
Une application est constituées de 3 fonctionnalités chacune accessible via un bouton qui charge la Form correspondante.

Voici comment je charge les Forms
Dim Prgm(3) As Object
Set Prgm(1) = A 'c'est le nom de la Form
Set Prgm(2) = B
Set Prgm(3) = C

Quand on clique sur un des boutons
Private Sub Programme_Click(Index As Integer)
Load Prgm(Index)

Le problème est que si on clique 2 fois sur le même bouton la même Form est chargée à nouveau.
Avant de faire le Load je voudrais vérifier si la Form est déjà chargée.
J'ai trouvé des solutions qui vérifie si le caption est dans la collection de Forms mais je ne connais pas les caption, seulement le Name.

J'ai aussi essayé ceci mais j'ai "invalid property assignment"
    Dim frm As Object
    For Each frm In Forms
        If frm = Prgm(Index) Then Exit Sub
    Next


Merci d'avance pour votre aide

ucfoutu · Answer

Bonjour,
1) Un Form a également une propriété Name.
2) le seul fait de te référer à un form ou à l'un de ses composants le charge, s'il n'est pas chargé
Et donc, la question : pourquoi fais-tu cela ? (explique).
Serait-ce pour éviter l'exécution d'instructions dans l'évènement Load des forms que tu charges ?
Explique la problématique.

Herve_be · Answer

Merci pour ta réponse,
Comme expliqué, le problème est que si on clique 2 fois sur le même bouton la même Form est chargée à nouveau. 
Je voudrais l'éviter parce que le Form Load est à nouveau exécuté.

ucfoutu · Answer

Tu n'as pas répondu à ma question !

Et surtout :
Enfin, quoi !  VB6 ne saurait "charger" plusieurs instances d'un même form !
Ne pas confondre le chargement d'un Form avec les instructions exécutées lors de son chargement !
Essaye de rester TECHNIQUE et TRES PRECIS ! 
 
________________________
Réponse exacte ? => "REPONSE ACCEPTEE" facilitera les recherches.
Pas d'aide en ligne installée ? => ne comptez pas sur moi pour simplement répéter son contenu. Je n'interviend

Herve_be · Answer

Quand on clique sur un des boutons je fais
Private Sub Programme_Click(Index As Integer)
Load Prgm(Index) 

Quand on clique à nouveau sur le même bouton je fais
Private Sub Programme_Click(Index As Integer)
Load Prgm(Index) 

Donc "Load" est à nouveau exécuté; dans la Form en question "Form Load" est à nouveau exécuté, ce que je voudrais éviter.

Avant de faire le Load je voudrais vérifier si la Form est déjà chargée.

ucfoutu · Answer

Je t'ai déjà répondu.
Mais pas toi ...
Je te laisse là, si tu ne veux pas y mettre du tien !
Ton problème n'est pas un "rechargement". Il est autre !
Expose ta problématique exactement ou reste seul avec ta "vision" des choses.
 
________________________
Réponse exacte ? => "REPONSE ACCEPTEE" facilitera les recherches.
Pas d'aide en ligne installée ? => ne comptez pas sur moi pour simplement répéter son contenu. Je n'interviend

Herve_be · Answer

Au départ c'est moi qui pose une question !

Je cherche seulement comment savoir si une Form est chargée sans la charger.

Merci pour ta réponse exhaustive et explicite.

cs_Jack · Answer

Salut

Ton problème n'est pas clair.
Lors de tes appels, que vaut Index ?
Si tu ne veux pas charger 2 fois la même forme, pourquoi l'indexes-tu ? 
Un simple test genre
If maForme(Index) Is Nothing Then 
    ' Existe pô encore
Else
    ' Existe déjà
End If

Herve_be · Answer

J'ai 13 Form différentes et 13 boutons pour les appeler.
Plutôt de coder 13 fois
Private Sub Bouton1_click
Load Program1
End_sub
Private Sub Bouton2_click
Load Program2
End_sub
...
J'ai fait un array de boutons et un array pour les objets.
Quand on clique sur l'un des boutons, Index est le n° du bouton.

Private Sub Programme_Click(Index As Integer)
Load Prgm(Index) ' il s'agit de la Form correspondant au bouton.

ucfoutu · Answer

Bonjour,  cs_Jack, 
On évite d'appeler  un Form par son index, mais par son nom.
Les indexes sont attribués dans l'ordre de chargement des Forms.
De surcroit : fais ce petit test :
Sur Form1, un bouton et ce code :
Private Sub Command1_Click()  If Form2 Is Nothing Then MsgBox "oui" Else MsgBox "non"End Sub
Tu n'as à ce stade pas chargé Form2, n'est-ce-pas ? Et pourtant Form2 n'est pas nothing


Ce qui est fait là est donc bon, puisque les forms ont été mis dans une matrice et que l'on se sert de l'index de la matrice et non du form dans la collection Forms.
A Herve_be :
J'ai bien compris ton mécanisme, mais là n'est pas ton problème ... et j'insiste, en te répétant :
- que l'instruction Load ne charge pas à nouveau un Form déjà chargé (et donc présent dans la collection Forms). Pour qu'il le recharge, il faut que l'instruction Unload ait été utilisée !
- qu'il suffit de se référer à un Form ou à l'un de ses contrôles pour que ce Form se charge automatiquement, s'il n'est pas déjà chargé !

Mais siu tu tiens absolument à faire ton test de non chargement (bien que, je le répète, ton problème est ailleurs) ===>>

voilà un exemple (totalementy inutile ...)
Private Sub Command1_Click()  MsgBox form_existe(Form2) ' t'affichera false  Load Form2  DoEvents  MsgBox form_existe(Form2) ' t'affichera maintenant TrueEnd SubPrivate Function form_existe(f As Form) As Boolean  Dim f1 As Form  For Each f1 In Forms    If f1 Is f Then      form_existe = True      Exit For    End If  NextEnd Function

Remplace Form2 Par n'importe quel prgm( x )

 
________________________
Réponse exacte ? => "REPONSE ACCEPTEE" facilitera les recherches.
Pas d'aide en ligne installée ? => ne comptez pas sur moi pour simplement répéter son contenu. Je n'interviend

Herve_be · Answer

Ben voilà, ça fonctionne très bien ainsi !
Quand on clique sur un bouton j'arrive ici avec Index = n° du bouton 

Private Sub Programme_Click(Index As Integer)Dim frm As FormFor Each frm In FormsIf frm Is Prgm(Index) Then    Prgm(Index).SetFocus    Exit SubNextLoad Prgm(Index)

Si la Form correspondant au bouton a déjà exécuté son Load alors elle reçoit simplement le focus, sinon on la charge.

En fait mon code initial était presque bon;
If frm = Prgm(Index) Then Exit Sub 
il fallait seulement remplacer le signe = par "is" !

ucfoutu · Answer

Bref ... (je ne veux pas m'épuiser à répéter).
 Discussion à clore, donc (tag résolu qu niveau de ton premier message).

Vérifier si une forme est chargée

11 réponses

Votre réponse