Pb Tabstrip avec frame contenant =ment un Tabstrip

Question

Bonjour &#224; tous,

J'ai un Tabstrip (TabStrip2) qui contient une frame (Frame6) qui elle-meme contient un Tabstrip (TabStrip3)
Les Tabs de TabStrip2 sont cr&#233;&#233;s dynamiquement depuis des valeurs d'une listview (ListView4). 
Une frame est cr&#233;&#233;e dynamiquement dans chaque Tab cr&#233;&#233; dans  TabStrip2
Un Tabstrip3 est cr&#233;&#233; dynamiquement dans chaque frame cr&#233;&#233;e au pr&#233;alable.
L'index de Frame6 et l'index de Tabstrip3 sont initialialis&#233;s &#224; 1.
Listview4 contient les valeurs "01", "02" et "03"

Mon pb est le suivant : 
- Les Tabs de TabStrip2 se cr&#233;&#233;s correctement
- Les frames se cr&#233;&#233;es &#233;galement correctement
- Mais les Tabstrip 3 ne se cr&#233;&#233;s pas. Ca me met l'erreur 35600 : index hors limites.
Lorsque je d&#233;buggue, je vois que &#231;a me plante sur la ligne surbrill&#233;e en vert dans mon code et la valeur de D est 3

Est-ce que qqun peut m'&#233;clairer ???

Ci-dessous le code :

    Dim D As Long
    Dim F As Long
    Dim Item_Count As Long
    
    Item_Count =  ListView4.ListItems.Count
    ReDim LI(Item_Count) As ListItem
    For D = 1 To ListView4.ListItems.Count
    F = ListView4.ListItems(D).Index
    Set LI(D) = ListView4.ListItems(F)
    TabStrip2.Tabs.Add
    TabStrip2.Tabs(D).Caption = "Feuillet " & LI(D)
    TabStrip2.Tabs(D).Image = 20
    TabStrip2.Tabs(1).Selected = True


    If D = 1 Then
    Frame6(D).Caption = "Frame " & LI(D)
    TabStrip3(D).Tabs(D).Caption = "Onglet " & LI(D)
    TabStrip3(D).Tabs(D).Image = 21
    Else
    Load Frame6(D)
    Frame6(D).Caption = "Frame " & LI(D)
    Frame6(D).Visible = True
    Load TabStrip3(D)
    TabStrip3(D).Tabs.Add
     TabStrip3(D).Tabs(D).Caption = "Onglet " & LI(D) 
    TabStrip3(D).Visible  = True
    End If
   
    Next D
    Frame6(1).ZOrder 0
    TabStrip2.Refresh

 Merci d'avance !!!

PCPT · Answer

D ne devrait pas &#234;tre Interger?
PCPT

PCPT · Answer

integer*
et sinon aussi, un TabStrip cr&#233;&#233; dynamiquement ne l'est t'il pas sans aucun onglet? (donc Tabstrip3.Tabs(1) non-existant..)
 (si (0) vide)
PCPT

yohan_titi · Answer

Je viens d'essayer en mettant D en integer mais j'ai tjs le meme probl&#232;me

Merci d'avance &#224; tous ceux qui m'aideront

yela · Answer

A chaque fois que tu load le tabstrip3, tu doit commencer avec le tab (1).

Change tabs(D) par tabs(1) dans 

    TabStrip3(D).Tabs(D).Caption =  "Onglet " & LI(D)

et si tu veux ajouter plusieurs tabs dans le tabstrip3, fait un nouvelle boucle...

    Load TabStrip3(D)

'd&#233;but nouvelle boucle
   for j = 1 to x
       TabStrip3(D).Tabs.Add
         TabStrip3(D).Tabs(j).Caption  = "Onglet " & LI(D)
   next
'fin nouvelle boucle

Pb Tabstrip avec frame contenant =ment un Tabstrip

4 réponses

Discussions similaires