Discussion :

[SandyF]

salut
J'ai un problème avec ds contrôles que je cherche à ajouter à un formulaire par le code.

Les controls, je voudrais les ajouter à un autre qui se trouve dans un groupbox, lui même situé dans un panel. j'ai écris le code ci-dessous qui est une procédure appelée par l'évènement CLICK d'un bouton, mais je n'ai toujours rien:

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
23
24
25
 
 
Public Sub affichParametrAnt()
        Dim i As Integer
        Dim pt, pt1 As Point
        If ANT > 1 Then
            pt = FormOuverture.LblAntenne.Location
            ReDim paraAnt(ANT - 2)
            For i = 0 To paraAnt.Length - 1
                With paraAnt(i)
                    .initParam()
                    pt1.Y = pt.Y + 100
                    pt1.X = pt.X
                    .lblAntenne.Location = pt1
                    .lblAntenne.Text = "Antenne " & i + 2
                    FormOuverture.GrpBxAntennes.Controls.Add(.lblAntenne)
                    FormOuverture.PanelAntennes.Controls.Add(FormOuverture.GrpBxAntennes)
                    FormOuverture.Controls.Add(.lblAntenne)
                    .lblAntenne.Show()
 
                End With
 
            Next
        End If
    End Sub

[Pol63]

on croirait du code vb6 tellement c'est affreux (with, le tableau et son redim)
d'ailleurs t'as pas mis le preserve après le redim, ce qui veut dire que tout le contenu est effacé ... tu as pas d'erreur ? (ou alors c'est une structure, et on retourne vraiment à l'époque de vb6 ...)

es-tu passé en pas à pas voir ce qui se passait ?

[Danyel]

Je voudrais pas dire de betises, mais il me semble que dans une procedure with/endwith, il ne prends en compte que le parametrage de l'objet en question et pas les lignes de commandes autres ...

[SandyF]

on croirait du code vb6 tellement c'est affreux (with, le tableau et son redim)
d'ailleurs t'as pas mis le preserve après le redim, ce qui veut dire que tout le contenu est effacé ... tu as pas d'erreur ? (ou alors c'est une structure, et on retourne vraiment à l'époque de vb6 ...)

es-tu passé en pas à pas voir ce qui se passait ?

J'ai fais l'exécution pas à pas, il n'ya aucun problème, si ce n'est que les controls de mon tableau de structure (oui, c'est bien une structure) ne s'affichent pas.
Y'a d'autres manières de corriger les gens que d'employer cette méthode que tu chéris tant. C'est normal de ramper quand on apprend à marcher!!

[Pol63]

Je voudrais pas dire de betises, mais il me semble que dans une procedure with/endwith, il ne prends en compte que le parametrage de l'objet en question et pas les lignes de commandes autres ...

c'est une betise en effet ...

[Pol63]

J'ai fais l'exécution pas à pas, il n'ya aucun problème, si ce n'est que les controls de mon tableau de structure (oui, c'est bien une structure) ne s'affichent pas.
Y'a d'autres manières de corriger les gens que d'employer cette méthode que tu chéris tant. C'est normal de ramper quand on apprend à marcher!!

faut pas s'arreter à la forme, mais regarder le fond, et puis j'ai juste commenté le code, pas celui qui l'a écrit
je te rassure moi aussi j'ai écris des trucs affreux au début


faudrait nous passer tout le code pour qu'on comprenne mieux

déjà

Code :

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

1
2
FormOuverture.GrpBxAntennes.Controls.Add(.lblAntenne)
FormOuverture.Controls.Add(.lblAntenne)

ca ne peut pas fonctionner, un controle ne peut etre qu'à un endroit à la fois, donc c'est censé planter ...

et puis comme je disais redim vide le tableau
donc ReDim paraAnt(ANT - 2) fait que paraAnt doit etre vide (tout étant dimensionné) donc le .initParam devrait planter aussi selon moi

[SandyF]

La structure utilisée contient des controles que je voudrais afficher en fonction d'un paramètre entré par l'utilisateur, c'est pourquoi j'utilise un tableau. en pas à pas détaillé, il n'y a , me semble-t-il aucun problème. La modification des propriétés est bien prise en compte, seulement l'affichage pose problème. Je pensais résoudre ce problème en ajoutant

Code :

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

1
2
3
4
5
 
 
FormOuverture.GrpBxAntennes.Controls.Add(.lblAntenne)
                    FormOuverture.PanelAntennes.Controls.Add(FormOuverture.GrpBxAntennes)
                    FormOuverture.Controls.Add(.lblAntenne)

mais, rien n'y fait.

J'ai eu le même problème mais cette fois avec un formulaire. Je l'ai dessiné en mode design, je modifie l'un de ses picturebox dans un procédure, puis je cherche à l'afficher, mais rien.

J'aimerais bien que quelqu'un m'aide à comprendre le petit truc que j'omets à chaque fois. j'en serais extrêmement soulagée

[Pol63]

pour qu'on puisse trouver ce qui ne va pas il nous faut le détail de chaque chose utilisé dans la sub que tu nous montre

donc le code la structure, ou tu instancies FormOuverture etc ...

[SandyF]

Mon code est assez long. Donc je vous montrerais juste quelque parties.
Voici le code de la structure:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
 
 Public Structure modParamAnt
        Dim lblAntenne, lblAbs, lblOrd As Label
        Dim txtAbs, txtOrd As TextBox
        Public Sub initParam()
            lblAntenne = New Label
            lblAbs = New Label
            lblOrd = New Label
            txtAbs = New TextBox
            txtOrd = New TextBox
        End Sub
    End Structure

Là, c'est le code de la procédure qui devrait afficher de nouveaux controls dans le formulaire FormOuverture.

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
23
24
25
26
27
 
 
 Public Sub affichParametrAnt()
        Dim i As Integer
        Dim pt, pt1 As Point
        If ANT > 1 Then
            Dim f As New FormOuverture
 
            pt = f.LblAntenne.Location
            ReDim paraAnt(ANT - 2)
            For i = 0 To paraAnt.Length - 1
                With paraAnt(i)
                    .initParam()
                    pt1.X = pt.X
                    .lblAntenne.Location = pt1
                    .lblAntenne.Text = "Antenne " & i + 2
                    FormOuverture.GrpBxAntennes.Controls.Add(.lblAntenne)
                    FormOuverture.PanelAntennes.Controls.Add(FormOuverture.GrpBxAntennes)
                    FormOuverture.Controls.Add(.lblAntenne)
                    FormOuverture.PanelAntennes.Visible = True
                    .lblAntenne.Show()
 
                End With
 
            Next
        End If
    End Sub

Cette procédure est appelée par l'évènement click d'un button du formulaire FormOuverture.

[Pol63]

je continue de dire que ce code ne peut pas marcher à cause des controls.Add


sinon je pense qu'ils sont affichés mais pas à l'endroit que tu le souhaites

sur ta fenetre tu ne vois rien du tout où il manque juste quelques controles ?

tu ne définies que les propriétés de lblAntenne, c'est normal que tu ne gère pas les autres labels et les textbox ?

un usercontrol aurait surement aussi été plus simple ...


en pas à pas ca donne quoi ?

tu peux aussi regarder à l'execution ce que contient formouverture.controls, ainsi que les coordonnées location et size de chacun

[SandyF]

je continue de dire que ce code ne peut pas marcher à cause des controls.Add

Est-ce à dire que je devrais les enlever?
Pour les autres label et textbox, je préfère m'assurer que ça marche pour un control avant d'écrire le code pour les autres.

Comme je le disais au départ, en exécution pas à pas , les modifications sur les propriétés du label sont bien enregistrées.Cependant, ils sont pas dans FormOuverture.grpbxAntennes.controls.(la propriété count reste inchangée)

J'ai ce message lorsque j'essaie de voir les controls de mon gropuebox.Item = Pour évaluer une propriété indexée, cette dernière doit être qualifiée et l'utilisateur doit fournir les arguments de manière explicite.

[Pol63]

si si il faut bien des controls.Add, sinon tu auras rien à l'écran

mais le lbl tu veux le mettre dans 2 control (dans le groupbox, puis dans la form directement) ce qui n'est pas possible

je viens de tester, et j'ai dit à moitié des conneries
en fait ca ne génère pas d'erreur, par contre c'est le dernier controls.Add qui a raison


donc le code suivant

Code :

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

1
2
3
FormOuverture.GrpBxAntennes.Controls.Add(.lblAntenne) '  le label est mis dans un groupbox
FormOuverture.PanelAntennes.Controls.Add(FormOuverture.GrpBxAntennes) ' le groupbox est mis dans un panel
FormOuverture.Controls.Add(.lblAntenne) ' le label est mis dans la form (donc il est retiré du groupbox)

au final je pense avoir trouvé ce qui t'arrives, le label est derrière le groupbox, c'est pour ca que tu le vois pas ^^ (on aura mit le temps pour trouver !)

pour connaitre l'état des controls en debug, tu peux voir la collection dans .controls (tu verras par exemple que count vaut 3)
et après il faut écrire controls(0) pour voir le 0 qui c'est

[SandyF]

En effet, le control était derrière le groupebox.
J'ai rectifié le tir et là çà marche.
Merci