Initialisation d'une Form

Version imprimable

12/04/2008, 18h54
debutvb6

Initialisation d'une Form
J'ai créé une Form qui me sert soit a créer un compte soit a en modifier un existant.
j'ai créé une variable public qui est initialisée avec "C" si je choisi le menu "Création" et avec "M" si je choisi le menu "Modification"
je lance ma form avec l'instruction FORM.show
Dans ma Form
J'ai un contrôle de type Text qui me permet de saisir un compte a créer et un contrôle de type combobox qui me permet de choisir un compte dans la liste.

Ces 2 contrôles ne doivent pas apparaitre ensemble dans ma form mais en fonction de ma variable initialisé a "M" ou "C". j'ai les lignes suivantes :
Code:

1 2 3 4 5 6 7 8 9 10 Private Sub Form_Load() If gestcpt = "C" Then LstCpt.Visible = False Numcpt.Visible = True Else LstCpt.Visible = True Numcpt.Visible = False End If
Malheureusement pour que ça marche il faut que je lance 2 fois le même menu lors de l'execution de mon programme. J'ai l'impression que l'initialisation se fait lorsque que je sors de la form et non lorsque j'y rentre.

Merci de me dire ou est le probléme
12/04/2008, 20h55
ProgElecT

A quel endroit, dans ton code, est initialisé la variable public gestcpt = "C" ? , Cette variable doit être initialisé avant le FORM.Show, car tu fais l'analyse dans le Form_Load, qui ne ce produit qu'une fois, au chargement.
Si elle n'est pas initialisé avant le FORM.Show, la condition retenu est celle du Else, soit:

Code:

LstCpt.Visible = True : Numcpt.Visible = False

Salut

Voici une autre approche. Pas de variable publique mais une procédure publique pour la boîte de dialogue.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Option Explicit
 
Private Sub Command1_Click()
    Me.Hide
End Sub
 
Public Sub InitialiserControles(psMode As String)
   Select Case psMode
     Case "C"
        Text1.Visible = True
        List1.Visible = False
     Case "M"
        Text1.Visible = False
        List1.Visible = True
   End Select
End Sub

Et pour la fenêtre principale :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Option Explicit
 
Private Sub Form_Load()
    Load Form2
End Sub
 
Private Sub cmdModifier_Click()
    Form2.InitialiserControles "M"
    Form2.Visible = True
End Sub
 
Private Sub cmdNouveau_Click()
    Form2.InitialiserControles "C"
    Form2.Visible = True
End Sub
 
Private Sub cmdQuitter_Click()
    Dim f As Form
    For Each f In Forms
        Unload f
    Next
End Sub

C'est un peu tordu de charger la boîte de dialogue en même temps que la fenêtre principale. On peut aussi la charger dans la procédure événementielle, par exemple :

Code:

1
2
3
4
5
6
7
Private Sub cmdModifier_Click()
    Dim f As Form2
    f.InitialiserControles "M"
    f.Visible = True
    ' code pour gérer les actions sur la boîte de dialogue
    Unload f
End Sub