[VB6] Affichage de contrôles avec Top et Left

**Asdorve** · 23/05/2006, 10h02

Bonjour, suite à mon post d'hier concernant la création automatique
de contrôle, je n'arrive pas à revenir à la ligne chaque 10 contrôles affichés.
En fait, je n'arrive pas à utiliser correctement Top et Left.
Est-ce que quelqu'un saurait m'aider?
Merci

**Vesta** · 23/05/2006, 10h17

Code :

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

1
2
3
4
for i=1 to 10
   ctrlbb(i).top = i  * (ctrlbb(i).height +15) 
   ctrlbb(i).left = 25
next i

En fait tu ne dois modifiet que le top le left reste le meme

**Vesta** · 23/05/2006, 10h18

Enfin ca doit pas etre ce que t'attend alors donne moi le code qui génère tes controles et je regarderai

**Asdorve** · 23/05/2006, 10h21

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
Private Sub Form_Load()
I = 1
Var = 1
NumLines = 0
 
For I = 1 To NbAléatoire
 
NumLines = NumLines + 1
Load chkEtiquette(I)
 
    With chkEtiquette(I)
 
                   .Top = 50 + (NumLines - 1) * 600                    
                   .Width = 1100
                     .Left = 200 + (NumLines - 1) * 1300
                    'Définition de l'affichage
                   .FontSize = 10
                   .Caption = "Etiquette no" & I 'Texte à afficher
                   .Visible = True
    End With
 
Next I
End Sub

**Vesta** · 23/05/2006, 10h27

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
 
 Sub Form_Load()
I = 1
Var = 1
NumLines = 0
 
For I = 1 To NbAléatoire
 
NumLines = NumLines + 1
 
Load chkEtiquette(I)
 
    With chkEtiquette(I)
 
                   .Top = 50 + (NumLines - 1) * 600                    
                   .height = 500
                   .Width = 1100
                   .Left = 200
                    'Définition de l'affichage
                   .FontSize = 10
                   .Caption = "Etiquette no" & I 'Texte à afficher
                   .Visible = True
    End With
 
Next I
End Sub

**Asdorve** · 23/05/2006, 10h30

merci

mais si j'ai, admettons, 80 contrôles, certain n'apparaitrons pas vu qu'on dépassera la hauteur de la frm

**Vesta** · 23/05/2006, 10h33

Oui...

Il faudra tant que possible redimenssionner la form ou alors les afficher les un a coté des autres comme ca

Bouton 1 Bouton 2 Bouton 3
Bouton 4 Bouton 5 Bouton 6

Bouton 1 Bouton 3 Bouton 5
Bouton 2 Bouton 4 Bouton 6

Mais bon ca c jouer avec 2 boucles alors... une pour Top et une pour Left, un peu de logique et ca ira...