[VB6] initialisation procédure

Bonjour, je cherche à créer une procédure qui recevrait comme paramètre le nom de la forme.

Je vous explique : J'ai créé un SUB INIT_FORME(nom as Form)

Code:

---

1 2 3 4 5 6

Sub INIT_FORME(nom As Form) nom.BackColor = couleur_fond nom .Left = Form1.Left + Form1.imgMenuNavi.Width + 80 nom.Top = Form1.Top + 350 nom.Show End Sub

---

Mais lorsque je fais l'appel :

Code:

---

INIT_FORME(Form3)

---

Il me met une erreur.
Quelqu'un aurait-il une idée ? J'ai vu que dans certains programmes on utilise le HDC mais je ne sait comment il fonctionne. Tout ce que je sais c'est qu'il s'agit d'un nombre en LONG qui identifie la forme apparemment.

Je trouve bizarre la façon dont tu t'y prend pour programmer. Je vais te donner une autre méthode beaucoup plus simple. Garde ta méthode pour initialiser ta form et appelle là dans l'événement load de ta form. C'est aussi simple que cela. Pourquoi se compliquer la vie quand tout est si simple?

En fait c'est pour appeller la fonction pour chaque forme que je veux charger. Ainsi je n'ai qu'un module et je ne dois pas réécrire le code dans chaque LOAD des formes.

et le message d'erreur c'est quoi ?

J'ai regardé comment on pourrait résoudre le problème brièvement. Si tu n'es pas un expert de la programmation, un DC peut être difficile à utiliser pour toi, mais le principe ressemble étrangement au C++. Il faut que tu utilises des objets brosses pour la couleur de fond de ton formulaire. Mais, si le temps de développement presse dans ton cas, ne t'attarde pas à ce détail. Tu as juste à faire ce que je t'ai écrit plus haut et à copier coller sur chaque form qui existe dans ton formulaire. Cela va prendre beaucoup moins de temps que de chercher une solution miracle. S'il te reste du temps à la fin, tu pourras essayer d'améliorer cette défaillance.

Bonne champ...

le message d'erreur c'est : erreur n°13 : TYPE INCOMPATIBLE
Et il s'arrête sur l'appel de la procédure :

Code:

---

INIT_FORME(Form4)

---

Form4 étant l'une des feuilles dont je souhaite une paramétrisation via un module.

J'ai pas l'impression que Form soit un type reconnu (en tout cas, pas en VBA Excel 2000).

Dans quel environnement programmes-tu?

VB6

Citation:

---

Envoyé par eagleleader

Code:

---

1 2 3 4 5 6

Sub INIT_FORME(nom As Form) nom.BackColor = couleur_fond nom .Left = Form1.Left + Form1.imgMenuNavi.Width + 80 nom.Top = Form1.Top + 350 nom.Show End Sub

---

Mais lorsque je fais l'appel :

Code:

---

INIT_FORME(Form3)

---

Il me met une erreur.

---

1- Je suppose que l'espace entre "nom" et ".Left" dans la 2° ligne de ta procédure est du à une erreur de copie ?
2- Si tu testes en interprété, tu dois pouvoir savoir quel est la ligne de ta procédure qui tombe en erreur ? Ou si c'est la ligne d'appel de ta procédure ? Si c'est cela, cela signifierait que Form4 ,'est pas une Form ? Tu peux également appeller ta procédure via la ligne
INIT_FORME (Me) dans le Form_Load de chacune de tes Form ;)
3- Dans le cas où l'erreur se situe à l'intérieur de ta procédure : que vaut la constante/variable couleur_fond

Dans la rubrique "conseil du jour", pense à déclarer ta procédure en Public dans un module.

Pour ce qui est de l'initialisation j'ai fini par trouver ce qu'il me fallait : j'ai un peu contourné le problème.

Maintenant l'espace est bel et bien une erreur de copie.

Autre problème :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

Select Case Index Case 2: ' paramètres Dim nom As New Form2 Case 3: ' voiture Dim nom As New Form3 Case 4: ' agenda Dim nom As New Form4 Case 5: ' memo Dim nom As New Form5 Case 6: ' statistiques Dim nom As New Form6 End Select

---

Erreur car déclaration en double. Comment éviter ce problème ? Car j'aimerais n'utiliser que le même mot NOM.
Voici la suite et donc le pourquoi je veux garder le mot NOM

Code:

---

1 2 3 4 5 6 7 8

'''''''''''''''''''''''''' ' paramètres de la forme ' '''''''''''''''''''''''''' nom.BackColor = COULEUR_FOND nom.Left = Form1.Left + Form1.Frame1.Left + 100 nom.Top = Form1.Frame1.Top + Form1.Top + 500 nom.Width = Form1.Frame1.Width - 100 nom.Height = Form1.Frame1.Height - 225

---

Je n'ai toujours pas de solutions donc si quelqu'un a une idée pour m'aider cela serait bien gentil.

Je suis dans vba mais je pense que le raisonnement est le même...
Pourquoi ne pas ne pas établir une collection de tes forms, puis d'écrire un truc du genre

Code:

---

1 2 3 4 5 6 7

For i = 1 to Forms.count Forms(i).BackColor = COULEUR_FOND Forms(i).Left = Form1.Left + Form1.Frame1.Left + 100 Forms(i).Top = Form1.Frame1.Top + Form1.Top + 500 Forms(i).Width = Form1.Frame1.Width - 100 Forms(i).Height = Form1.Frame1.Height - 225 Next i

---

Syntaxe non garentie mais donnée pour exemple

Après, Nom ne posera plus de problème de gestion.

Sinon, que donnerait

Forms(Nom).BackColor = ... etc ?

Une idée comme ça...

A+

Comment faire une collection de mes formes ?
J'ai essayé d'écrire la propriété :

Code:

---

Forms.Count

---

Mais celel-ci n'existe pas. Je suppose que cela est du au fait que je ne fait pas de collection.

Là, je ne peux pas te répondre, faut demander à un Èspécialiste VB... Mon truc à moi c'est VBA...

Bonne chance

A+

ok merci.