Discussion :

[debutvb6]

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 :

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

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

[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 :

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

LstCpt.Visible = True : Numcpt.Visible = False

[zazaraignée]

Salut

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

Code :

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

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 :

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

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 :

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

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