Vérifier si une forme est chargée [Résolu]
Herve_be
- Messages postés
- 551
- Date d'inscription
- mercredi 4 août 2010
- Statut
- Membre
- Dernière intervention
- 3 octobre 2019
- Messages postés
- 18039
- Date d'inscription
- lundi 7 décembre 2009
- Statut
- Modérateur
- Dernière intervention
- 11 avril 2018
A voir également:
- Vb.net load form
- Vb6 form load - Meilleures réponses
- For each vb6 - Meilleures réponses
- Visual Basic / VB.NET : Load une form dans un site (et ça marche !) - CodeS SourceS - Guide
- Visual Basic / VB.NET : Resize form création de skin dynamique!! - CodeS SourceS - Guide
- Visual Basic / VB.NET : Oval form - CodeS SourceS - Guide
- Visual Basic / VB.NET : Transformateur forms -> pages web - CodeS SourceS - Guide
- Visual Basic / VB.NET : Overlay, form au premier plan, setwindowpos, toujours visible - CodeS Source - Guide
11 réponses
- Messages postés
- 18039
- Date d'inscription
- lundi 7 décembre 2009
- Statut
- Modérateur
- Dernière intervention
- 11 avril 2018
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.
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.
- Messages postés
- 18039
- Date d'inscription
- lundi 7 décembre 2009
- Statut
- Modérateur
- Dernière intervention
- 11 avril 2018
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
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
- Messages postés
- 551
- Date d'inscription
- mercredi 4 août 2010
- Statut
- Membre
- Dernière intervention
- 3 octobre 2019
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.
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.
- Messages postés
- 18039
- Date d'inscription
- lundi 7 décembre 2009
- Statut
- Modérateur
- Dernière intervention
- 11 avril 2018
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
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
- Messages postés
- 551
- Date d'inscription
- mercredi 4 août 2010
- Statut
- Membre
- Dernière intervention
- 3 octobre 2019
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.
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.
- Messages postés
- 18039
- Date d'inscription
- lundi 7 décembre 2009
- Statut
- Modérateur
- Dernière intervention
- 11 avril 2018
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 :
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 ...)
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
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()Tu n'as à ce stade pas chargé Form2, n'est-ce-pas ? Et pourtant Form2 n'est pas nothing
If Form2 Is Nothing Then MsgBox "oui" Else MsgBox "non"
End Sub
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 True
End Sub
Private 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
Next
End 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
- Messages postés
- 18039
- Date d'inscription
- lundi 7 décembre 2009
- Statut
- Modérateur
- Dernière intervention
- 11 avril 2018
Et au passage (la sémantique est importante et chaque mot a une définition) :
"Set Prgm(1) = A 'c'est le nom de la Form"
"
Non ! A est un Form (et donc un objet) et son son nom (qui serait un string) ...
Je "chipote" ? ==>> pas du tout !
"Set Prgm(1) = A 'c'est le nom de la Form"
"
Non ! A est un Form (et donc un objet) et son son nom (qui serait un string) ...
Je "chipote" ? ==>> pas du tout !
- Messages postés
- 551
- Date d'inscription
- mercredi 4 août 2010
- Statut
- Membre
- Dernière intervention
- 3 octobre 2019
Ben voilà, ça fonctionne très bien ainsi !
Quand on clique sur un bouton j'arrive ici avec Index = n° du bouton
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;
Quand on clique sur un bouton j'arrive ici avec Index = n° du bouton
Private Sub Programme_Click(Index As Integer)
Dim frm As Form
For Each frm In Forms
If frm Is Prgm(Index) Then
Prgm(Index).SetFocus
Exit Sub
Next
Load 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 Subil fallait seulement remplacer le signe = par "is" !
- Messages postés
- 18039
- Date d'inscription
- lundi 7 décembre 2009
- Statut
- Modérateur
- Dernière intervention
- 11 avril 2018
1) La méthode Show montre (et charge si nécessaire)
2) tes "autres trucs à faire" ? fais-les depuis ailleurs (le Form que tu charges) que depuis la forme principale, pardi, s'ils ne doivent être faits qu'au chargement d'un autre Form !
Question de conception.
Mais bon ... J'essaye depuis le début de te mettre sur le chemin normal (raison de mes questions restées sans réponse) mais voilà ...
2) tes "autres trucs à faire" ? fais-les depuis ailleurs (le Form que tu charges) que depuis la forme principale, pardi, s'ils ne doivent être faits qu'au chargement d'un autre Form !
Question de conception.
Mais bon ... J'essaye depuis le début de te mettre sur le chemin normal (raison de mes questions restées sans réponse) mais voilà ...
- Messages postés
- 551
- Date d'inscription
- mercredi 4 août 2010
- Statut
- Membre
- Dernière intervention
- 3 octobre 2019
1) La méthode Show montre (et charge si nécessaire)
donc elle ne fait pas ce que je voudrais
2) tes "autres trucs à faire" ? fais-les depuis ailleurs (le Form que tu charges)
Je devrais alors répéter le même code dans les 13 forms.
Tu me rappelles une anecdote.
Dans les années 80 j'ai fait un appel d'offre parce que la firme où je travaillais voulait acheter des PC portables; le cahier des charges disait entre autres "disque dur d'au moins 10 Mb" (ce n'est pas une erreur : 10 Mega ... en 85 !
IBM a remis une offre pour un PC portable sans disque dur.
Quand j'ai fait remarquer au délégué qu'il ne répondait pas au cahier des charges, il m'a rétorqué "mais ... vous n'avez pas besoin de disque dur !".
Idem ici.
Je cherche comment faire 'ça'.
Tu me réponds "tu n'as pas besoin de 'ça'" et tu commences à poser des questions et pourquoi, et comment, ... et c'est toi qui me demande de rester TECHNIQUE et TRES PRECIS !
donc elle ne fait pas ce que je voudrais
2) tes "autres trucs à faire" ? fais-les depuis ailleurs (le Form que tu charges)
Je devrais alors répéter le même code dans les 13 forms.
Tu me rappelles une anecdote.
Dans les années 80 j'ai fait un appel d'offre parce que la firme où je travaillais voulait acheter des PC portables; le cahier des charges disait entre autres "disque dur d'au moins 10 Mb" (ce n'est pas une erreur : 10 Mega ... en 85 !
IBM a remis une offre pour un PC portable sans disque dur.
Quand j'ai fait remarquer au délégué qu'il ne répondait pas au cahier des charges, il m'a rétorqué "mais ... vous n'avez pas besoin de disque dur !".
Idem ici.
Je cherche comment faire 'ça'.
Tu me réponds "tu n'as pas besoin de 'ça'" et tu commences à poser des questions et pourquoi, et comment, ... et c'est toi qui me demande de rester TECHNIQUE et TRES PRECIS !
- Messages postés
- 18039
- Date d'inscription
- lundi 7 décembre 2009
- Statut
- Modérateur
- Dernière intervention
- 11 avril 2018
OK !
Je m'abstiendrai donc dorénavant, avec toi :
- 1) de te proposer une meilleure conception
- 2) mais également de me lancer sur ton chemin, lorsque je le jugerai inadapté (je n'aime pas participer aux égarements)
PS : lorsque je vais acheter quelque-chose, je préfère personnellement "tomber" sur un commerçant qui me "corrige" si ce que je veux acheter est, en dépit de ce dont je suis persuadé, non en adéquation parfaite avec ce que je veux faire.
Mais bon ...
Bonne chance ...
PS2 : et j'ai adoré :
"J'ai trouvé tout seul
If frm = Prgm(Index) ... => If frm is Prgm(Index) ... "
Devine où j'ai lu cela il y a quelques minutes !
Ouais ...
Je m'abstiendrai donc dorénavant, avec toi :
- 1) de te proposer une meilleure conception
- 2) mais également de me lancer sur ton chemin, lorsque je le jugerai inadapté (je n'aime pas participer aux égarements)
PS : lorsque je vais acheter quelque-chose, je préfère personnellement "tomber" sur un commerçant qui me "corrige" si ce que je veux acheter est, en dépit de ce dont je suis persuadé, non en adéquation parfaite avec ce que je veux faire.
Mais bon ...
Bonne chance ...
PS2 : et j'ai adoré :
"J'ai trouvé tout seul
If frm = Prgm(Index) ... => If frm is Prgm(Index) ... "
Devine où j'ai lu cela il y a quelques minutes !
Tout seul, hein ...? <mode spécial> CHAPEAU BAS ! </fin mode spécial>
Ouais ...
- Messages postés
- 551
- Date d'inscription
- mercredi 4 août 2010
- Statut
- Membre
- Dernière intervention
- 3 octobre 2019
Pour faire des réponses pareilles, je préfère aussi que tu t'abstiennes, ce n'est d'ailleurs pas la première fois : quand j'ai vu que tu répondais en premier je me suis dit "aïe, on n'est pas sorti.