ajout d'élément dans un onglet

Question

Bonjour

Je vous explique mon probl&#232;me :

je creer un SStab de 3 onglets.
dans form_load je creer des bouton dynamiquement et je les places dans ma sstab... le probl&#232;me c'est qu'ils sont plac&#233;s dans le 1er onglet! 
comment je peux faire pour les mettres dans un autre onglet?

je vous laisse le bout de code :
         Load ordi(i)
        Y = (i - 1) * 1100 + 100 + 500
        Set ordi(i).Container = SSTab1
        ordi(i).Move 200, Y, 800, 800
        ordi(i).Visible = True
        ordi(i).Caption = ""
        ordi(i).Picture = LoadPicture("d:\IUP\IHM\images\boitier.bmp")

merci de votre aide!

Gobillot · Answer

c'est avant de cr&#233;er le Bouton qu'il faut s&#233;lectionner l'onglet.
exemple pour cr&#233;er un Bouton dans chaque onglet:

    For i = 1 To 3
        SSTab1.Tab = i - 1
        Load ordi(i)
        Set ordi(i).Container = SSTab1
        ordi(i).Move 500, 500
        ordi(i).Caption = i
        ordi(i).Visible = True
        Next

Daniel

cs_HZ · Answer

merci de ta reponse mais ca ne marche pas... il me met toujours tous les &#233;l&#233;ments que j'ajoute dans l'onglet selectionner lors de l'execution du programme

Gobillot · Answer

c'est ce que j'ai dis dans l'onglet s&#233;lectionn&#233;
je pense que tu as voulu dire toujours dans le premier onglet
&#231;a c'est impossible parce que quand tu s&#233;lectionnes un onglet tous les &#233;l&#233;ments des autres onglets sont toujours l&#224; mais simplement cach&#233;s (propri&#233;t&#233; Left n&#233;gative)
bien faire les instructions dans l'ordre:
-   s&#233;lection de l'onglet
-   cr&#233;ation de l'objet
-   Set pour le container
-   le Move apr&#232;s 

Daniel

cs_HZ · Answer

non ce que j'ai voulu dire c'est qu'il me met les &#233;l&#233;ments dans l'onglet selectionner AVANT le lancement du programme, mannuellement qd je fais ma sstab, je me met sur longlet 2, les &#233;l&#233;ments seront sur cet onglet. 
En faisant comme vous avez dis c'est pareil, je fais bien les op&#233;rations dans cette ordre mais ca ne change pas. Il met les &#233;l&#233;ments dans longlet du d&#233;part

cs_HZ · Answer

je donne le code : 

For j = 1 To 3
SSTab1.Tab = j - 1
    If (j = 2) Then
        For i = 1 To nbordi
            If (i = 1) Then
                Y = 600
            Else
                Y = (i - 1) * 1100 + 100 + 500
            End If
            Load ordi(i)
            SSTab1.Tab = 0
            Set ordi(i).Container = SSTab1
            ordi(i).Move 200, Y, 800, 800
            ordi(i).Visible = True
            ordi(i).Caption = ""
            ordi(i).Picture = LoadPicture("d:\IUP\IHM\images\boitier.bmp")
            Set nompc = Controls.Add("vb.textbox", tabOrdi(i - 1, 0))
            Set nompc.Container = SSTab1
            With nompc
                .Visible = True
                .Top = Y
                .Left = 1100
                .Text = tabOrdi(i - 1, 0)
            End With
        Next

normalement il devrait me mettre les &#233;l&#233;mens dans le 2eme onglet mais il me les met dans le 1er.

Aidez moi svp

Gobillot · Answer

si je r&#233;capitule :
l'onglet au lancement du programme est &#224; z&#233;ro,
ensuite je me positionne sur l'onglet 1 ou 2 ...
l&#224; j'ai un do&#251;te, les onglets commence &#224; z&#233;ro, donc tu as 3 onglets: 0, 1 et 2
je lance la cr&#233;ation (je sais pas par quel &#233;v&#234;nement, un bouton ? )
pas besoin de faire SStab1.Tab = 2 puisqu'il est d&#233;j&#224; s&#233;lectionn&#233;
la cr&#233;ation se fait obligatoirement dans l'onglet 2
v&#233;rifie par un MsgBox juste apr&#232;s la cr&#233;ation, les objects doivent &#234;tre visibles et dans le bon onglet.

Daniel

Gobillot · Answer

~~For j = 1 To 3~~ SSTab1.Tab = 1 ~~If (j = 2) Then~~ For i = 1 To nbordi If (i = 1) Then Y = 600 Else Y = (i - 1) * 1100 + 100 + 500 End If Load ordi(i) ~~SSTab1.Tab = 0~~ Set ordi(i).Container = SSTab1 ordi(i).Move 200, Y, 800, 800 ordi(i).Visible = True ordi(i).Caption = "" ordi(i).Picture = LoadPicture("d:\IUP\IHM\images\boitier.bmp") Set nompc = Controls.Add("vb.textbox", tabOrdi(i - 1, 0)) Set nompc.Container = SSTab1 With nompc .Visible = True .Top = Y .Left = 1100 .Text = tabOrdi(i - 1, 0) End With Next i Daniel

cs_HZ · Answer

au faite avant de lancer le programme je selectionne l'onglet 2 du sstab.
donc l'onglet au lancement est a 1

je lance le programme
je me positionne dans l'onglet 0
je lance la creation dabord de bouton ensuite de textbox ( en faisant le container et le move) 

et la mes &#233;l&#233;ment sont creer dans longlet 1 (celui au lancement)
je remet le code car celui en haut n'etai pas lebon : 

For j = 0 To 2
SSTab1.Tab = j
If (j = 0) Then
Load ordi(i)
Set ordi(i).Container = SSTab1
  ordi(i).Move 200, Y, 800, 800
  ordi(i).Visible = True
else if (j = 1)  then
   Load peri(i)
    Set peri(i).Container = SSTab1
    peri(i).Move 200, Y, 800, 800
    peri(i).Visible = True
  end if
end if
next

voila... et la ca ne marche pas

Gobillot · Answer

je vois pas la boucle For i = ...
moi j'aurais fais les cr&#233;ations onglet par onglet 

   SSTab1.Tab = 0
    For i = 1 To nbordi
        Y = (i - 1) * 1100 + 100 + 500
        Load ordi(i)
        Set ordi(i).Container = SSTab1
        ordi(i).Move 200, Y, 800, 800
        ordi(i).Visible = True
        Next
    SSTab1.Tab = 1
    For i = 1 To nbordi
        Y = (i - 1) * 1100 + 100 + 500
        Load peri(i)
        Set peri(i).Container = SSTab1
        peri(i).Move 200, Y, 800, 800
        peri(i).Visible = True
        Next

Daniel

cs_HZ · Answer

bah meme comme ca ca marche pas 

je sais plus quoi faire ca m'enerve

cs_Obi_1 · Answer

Bonjour,

J'ai le m&#234;me probl&#232;me que toi HZ, j'aimerais savoir si tu as trouv&#233; le moyen de surmonter la difficult&#233;, ou bien si quelqu'un a une solution...Je cr&#233;&#233; 3 onglets sur un SSTab, et j'aimerais ajouter une MSHFlexGrid sur chaque onglet. Pour controler les r&#233;sultats, je renomme chaque onglet avec ma variable de boucle (j), et je mets aussi cette valeur j directement dans le MSHFlexGrid.
Le r&#233;sultat me parait bizarre, puisque les onglets sont bien renomm&#233;s, mais la Grid reste dans le premier onglet (d' indice 0)...

Si quelqu'un pouvait me dire pourquoi, ca m'aiderait beaucoup!

Pour r&#233;f&#233;rence, voil&#224; mon code:

Me.SSTab1.Tabs = 3
For j = 1 To 3
    Me.SSTab1.Tab = j - 1
    Me.SSTab1.Caption = j
    If j > 1 Then Load MyGrid(j)
    With MyGrid(j)
        Set .Container = Me.SSTab1
        .Left = MyGrid(1).Left
        .Top = MyGrid(1).Top
        .Visible = True
        .Row = 1
        .Col = 1
        .Text = j
    End With
Next

Ajout d'élément dans un onglet

11 réponses

Discussions similaires