[VB6] Ouverture de Forms Conditionelle dans une procédure

Bon !
J'étais absent et me voilà de retour.
Je vais chercher, de mon côté, un autre procédé.
Ce qui m'apparait déjà totalement certain, c'est que tu ne parviendras de toute façon pas à modifier, depuis une Form, le contrôle d'une autre Form si celle-ci n'est pas chargée.
Je vais voir ce qu'il est possible de faire et reviendrai ensuite te dire si j'ai pu trouver une meilleure méthode que celle de la boucle.
Ne t'inquiète pas de mon silence entre-temps : je cherche...

Tu as diablement raison :
Il apparaît de façon certaine que la fonction ouvrevue agit comme si elle rajoutait des forms fictives et finissait par se mélanger les pédales.
Ce qu'il y a de très net : en faisant tout à la main (donc sans cette fonction) et à condition d'avoir chargé les Forms (en dur) : tout va bien...
C'est inexplicable : les Forms sont affichées par ouvrevue mais ne sont pas chargées !!!!!
De surcroît (et ce qui me conforte dans l'idée de "rajouts fictifs mais pourtant gourmands") : après m'être "amusé" à cliquer et recliquer sur le bouton de commande de chaque Form (un bon nombre de fois) : j'ai bouffé toute la mémoire disponible ... et il m'a fallu redémarrer la machine

J'ai donc recherché d'autres solutions pour éviter la boucle, mais ce n'est pas très élégant :

1) baptiser toutes tes forms du même nom suivi de "-#" (ex form-1, form-2... form-18... form-125...... form-xxx)
2)charger toutes tes forms d'entrée de jeu (dans activate de la 1ère)
3) pour montrer ou cacher (ou se référer à) une Form dont le nom titi est connu dans une variable :

Code:

---

1 2	nb = Val(Mid(toto, InStr(titi, "-") + 1)) - 1 Forms(nb).Show ' (ou Forms(nb).hide)

---

Désolé, mais je ne vois rien d'autre

EDIT : après observations multiples : Lorsque VB ouvre une Form "ajoutée" par la fonction ouvrevue, il ouvre bien la Form considérée, mais, par contre, il ne la gère plus lorsqu'on invoque ensuite ladite Form par son nom. Ce qui tendrait, pour pouvoir utiliser ouvrevue, à retourner à la case départ en recherchant les index de la "nouvelle collection"... (enfin quoi : "le chien qui se mord la queue" reste une image bien française...)

Bon et bien merci de ton aide je crois avoir toutes les clefs en mains pour travailler, reste plus qu'a choisir la maniére ...

Si je trouve un jour je viendrai poster la reponse.

Ya toujours une solution, quoi que ..

Merci encore de votre aide.

Code:

---

1 2 3 4 5 6 7 8 9

Public Function ouvreVue(form_a_ouvrir As String)   Dim MyForm As Form   Set MyForm = Forms.Add(form_a_ouvrir) Load MyForm ' ou form_a_ouvrir (?) ******** MyForm.Show vbModal   End Function

---

Et si tu ajoutes cette ligne ? '************

Pas essayé : Pas VB (ancienne forme VBA pour ouvrir un userform)

Mais toi tu peux

Tu dis

J'ai essayé celà et bien d'autres choses : Marche hélàs pas non plus ... :(

Fin Janvier

Citation:

---

Envoyé par jacma

J'ai été confronté à un problème similaire il y a peu, consistant à ouvrir une form selon son nom contenu dans une variable. J'ai beaucoup cherché, ici et ailleurs, sans obtenir de solution.
En l'état actuel de mes recherche, je pense donc que ce n'est pas possible. Si tu trouves quelque chose, préviens

---

J'ai suivi tout ceci, en me rappelant tout ce que j'avais essayé, mais il semble que vous arriviez à la même conclusion, ce qui est bien dommage. J'espérais...