Pb checkbox dynamique

Question

Bonjour all !

Voilà mon pb me prend la tete car j'ai cherché mais po trouvé... zetes mon seul espoir :) Voilà, je souhaite créer des checkbox dynamique selon le contenu de mon tableau . LE hic, c'est qu'il écrase les checkbox l'un pa-rdessus l'autre. Je sais où est le pb mais j'arrive pas a lui dire (en code ;p) qu'il créer une checkbox suite a une checkbox précédente et non par dessus... voilà mon code  : 

Private Sub TabStrip1_Click()

Dim nIdsel As Integer   'Onglet sélectionné
    
Dim y As Integer ' Compteur dans la boucle

'Affichage des checkbox correspondants
nIdsel = TabStrip1.SelectedItem.Index - 1

For y = 2 To 200
        
    If Tableau(nIdsel, y) = "" Then
       Exit For
    Else
       MsgBox (Tableau(nIdsel, y))
       
       Load Check1(y)
    
       Check1(y).Top = Check1(y).Top + Check1(y).Height + (y * 10)
       Check1(y).Caption = Tableau(nIdsel, y)
       Check1(y).Visible = True
       Check1(y).ZOrder
    End If
       
Next y

End Sub

turkill · Answer

Check1(y).ZOrder 0 

pardon :), me suis trompé :) alors ? snif

sbouquet · Answer

Normal, (enfin je veux pas trop m'avancer non plus) mais essaie ca a la place :

Check1(y).Top = Check1(y-1).Top + Check1(y-1).Height + (y * 10)

turkill · Answer

cool ca marche :) merci man :p ... et j'ai compris pkoi tu as mit -1 ;) ++ cool ce site...

sbouquet · Answer

pas d'koi ! ;)

Majbour · Answer

Bonjour,

Le -1 c'est pour prendre le Top de la CheckBox qui la précéde, ou plus exactement celle qui a l'index précédent pour qu'elles soient posées l'une au dessous de l'autre.

Et au lieu de 'y * 10', tu dois mettre une valeur fixe, sinon les position des Checkboxes ne seront pas pareilles.

Si tu ne me crois pas (ou tu ne veux pas me croire  ;)  ) remplace la valeur 10 par 100 ou plus. et tu verras la différence.

 ;) 

[mailto:amajbour@hotmail.com Majbour]

Pb checkbox dynamique

5 réponses

Discussions similaires