Discussion :

[Txomin]

Bonjour.
Je voudrais crée dynamiquement des datagrids dans un controles SStab.
En fait, suivant le résultat d'une variable integer i de mon prog, mon SSTab affiche i onglets. La dessus pas de problème.
Mais je voudrais aussi qu'il me crée un datagrid par onglet (en fait c'est le même datagrid sur chaque onglet, chacun correspondant à une requête SQL différente).
J'ai bien regardé les deux possibilités dans la FAQ, mais sa mise en pratique me mène droit au débogage .
Je pense que la meilleure solution est, à la création ,de créer mon premier datagrid, puis de créer les autres dans une boucle for avec un petit

load datagrid (i)

mais ca ne marche pas... Les objets ne se créent pas... J'ai pourtant précisé quel onglet était actif mais je suis bloqué...
Merci de votre aide

[bidou]

montre nous le code

[Txomin]

Désolé, je l'avais pas mis parce que ca ne me semblait pas tellement utile dans ce cas...

Donc le voici :

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
27
28
29
30
31
32
'Cette procédure crée, suivant un devis sélectionné dans un combobox,
'autant d'onglets comprenant chacun un datagrid que de nombre de
'paragraphe de devis (tranches)
 
Private Sub cbxChoixDevis_Click()
 
sstTranches.Visible = True
 
If deBatigest.rscomTranches.State = adStateOpen Then
    deBatigest.rscomTranches.Close
End If
 
'J'appelle ma requête paramétrée qui récupère le titre de mes onglets
deBatigest.comTranches (cbxChoixDevis.Text)
sstTranches.Tabs = deBatigest.rscomTranches.RecordCount
 
Dim i As Integer
 
    For i = 0 To sstTranches.Tabs - 1
 
        'Récupération des titres des onglets
        sstTranches.TabCaption(i) = deBatigest.rscomTranches!Libelle
        'dtgTranche(0) est déjà créé en mode création
        If i <> 0 Then Load dtgTranche(i)
        dtgTranche(i).Height = 4575
        dtgTranche(i).Width = 8655
        dtgTranche(i).Visible = True
 
        deBatigest.rscomTranches.MoveNext
    Next i
 
End Sub

En espérant que ca vous éclaire...
Merci d'avance

[bhaal76]

j'ai exactement le même problème ...
tout ce passe bien tant que je crée des control dans l'onglet 0, existant dès l'appele de la feuille, mais impossible de créer un control sur un onglet créer après ...

[bhaal76]

bon, finalement, j'ai trouvé ...

je mets le code qui fonctionne chez moi ...
pour explication, a partir du premier form ("form1"), j'appelle un form qui contient un "SStab" avec 1 onglet, lequel contient 1 "textbox" : but du jeu, créer dynamiquement autant d'onglet que je veux sur le "SStab" avec sur chaque onglet un "textbox" (qui lui appartient forcément a un groupe, d'ou l'index)
autre précision, "CWNumEdit1.Value" correspond au control sur "form1" qui me permet de saisir le nombre d'onglet que je veux ...

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
Private Sub bp_form2_Click()
    Load Form2
 
    ' dans le cas du CWNumEdit1.Value=0, rien ne doit se passer
    Form2.SSTab1.Tabs = CWNumEdit1.Value + 1
    For i = 1 To Form2.SSTab1.Tabs - 1
        Form2.SSTab1.Tab = i
        Load Form2.Text1(i)
        Set Form2.Text1(i).Container = Form2.SSTab1
        Form2.Text1(i).Visible = True
        Form2.Text1(i).Text = "text " & i
        Form2.Text1(i).Top = 1080
        Form2.Text1(i).Left = 360
    Next i
 
    Form2.Show
    Form1.Hide
End Sub

voila voila