[VB6] initialisation procédure

**eagleleader** · 28/08/2005, 16h11

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

**motrin** · 28/08/2005, 16h19

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?

**eagleleader** · 28/08/2005, 16h32

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.

**SfJ5Rpw8** · 28/08/2005, 17h16

et le message d'erreur c'est quoi ?

**motrin** · 28/08/2005, 17h40

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...

**eagleleader** · 29/08/2005, 19h05

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

INIT_FORME(Form4)

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

**AlainTech** · 29/08/2005, 21h15

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

Dans quel environnement programmes-tu?

**eagleleader** · 29/08/2005, 21h17

VB6

Xo · 29/08/2005, 23h24

Envoyé par eagleleader

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

**eagleleader** · 30/08/2005, 12h05

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

**eagleleader** · 31/08/2005, 08h50

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

**ouskel'n'or** · 31/08/2005, 09h54

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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+