Discussion :

[RovDan]

Bonjour à tous

Je suis toujours sous VB5 (oui, je sais, c'est un peu old-timer, mais j'ai pas trop le choix...)

Supposons une feuille Form1 qui dispose d'une Label appelée Label(0) donc index=0

Je voudrais pouvoir (par exemple en cliquant sur un simple Command Button), ajouter à cette feuille un contrôle Label identique au premier avec le même nom mais dont l'index serait part exemple 1.

Si cela semble facile en VB6, je bute avec VB5

Merci par avance pour vos remarques et conseils,

RovDan

[l_autodidacte]

Tu fais exactement comme en VB6 (si tu l'as utilisé) et tu places un Label sur Form1, tu lui donnes le nom Label et tu lui affectes l'index 0 et un bouton de commande Command1.
Dans la section code de la feuille tu colles ce

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
Option Explicit
'
Dim I%, sCap$
Private Sub Command1_Click()
   sCap = "FirstLabel"
   For I = 1 To 5
    Load Label(I)
    Label(I).Caption = sCap + CStr(I)
    Label(I).Move Label(I - 1).Left, Label(I - 1).Top + Label(I - 1).Height
    Label(I).Visible = True
    Label(I).BackColor = QBColor(15 - I)
   Next I
   If I = 6 Then Command1.Enabled = False ' pour éviter l'erreur : L'objet est déjà chargé / Object already loaded
End Sub
 
Private Sub Form_Load()
    ' Initialisation de Label(0)
    Label(0).FontBold = True
    Label(0).BackColor = QBColor(15)
    Label(0).Top = 240
    Label(0).Left = 360
    Label(0).FontSize = 12
    Label(0).FontName = "MS Sans Serif"
    Label(0).Caption = "FirstLabel0"
End Sub

[RovDan]

Tu fais exactement comme en VB6 (si tu l'as utilisé) et tu places un Label sur Form1, tu lui donnes le nom Label et tu lui affectes l'index 0 et un bouton de commande Command1.
Dans la section code de la feuille tu colles ce

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
Option Explicit
'
Dim I%, sCap$
Private Sub Command1_Click()
   sCap = "FirstLabel"
   For I = 1 To 5
    Load Label(I)
    Label(I).Caption = sCap + CStr(I)
    Label(I).Move Label(I - 1).Left, Label(I - 1).Top + Label(I - 1).Height
    Label(I).Visible = True
    Label(I).BackColor = QBColor(15 - I)
   Next I
   If I = 6 Then Command1.Enabled = False ' pour éviter l'erreur : L'objet est déjà chargé / Object already loaded
End Sub
 
Private Sub Form_Load()
    ' Initialisation de Label(0)
    Label(0).FontBold = True
    Label(0).BackColor = QBColor(15)
    Label(0).Top = 240
    Label(0).Left = 360
    Label(0).FontSize = 12
    Label(0).FontName = "MS Sans Serif"
    Label(0).Caption = "FirstLabel0"
End Sub

Merci beaucoup Autodidacte, c'est exactement ce que je recherchais, c'est parfait !

RovDan

[DAUDET78]

Tu peux aussi mettre ton contrôle Label lors de l'écriture du programme et tu lui donnes la propriété visible à False . personne ne le voit lors de l’exécution .

Quand tu cliques sur ton Command Button, tu mets sa propriété visible à true

[RovDan]

Merci pour ton conseil, Daudet78.

Rendre visible un contrôle préalablement masqué, j'y ai pensé. Le souci, c'est qu'en fait, j'ai une cinquante de contrôles pouvant être ajoutés donc démasqués et cela risque de surcharger la feuille de travail.

Encore merci,

RovDan

[DAUDET78]

et cela risque de surcharger la feuille de travail.

Et en quoi c'est gênant ? On n'a plus de limitation de taille de RAM !
Je ne sais pas ce que tu fais avec tes Labels.
Tu charges le label(1) . OK
Tu le décharges . OK
Tu charge un nouveau label, il va probablement se mettre en label(1) . Comment tu vas gérer que, avec le même indice, il représente un truc différent ?
C'est toi qui voit .