Discussion :

[Slas14]

Voilà, j'utilise SSTab afin que l'utilisateur puisse faire apparaitre plusieurs onglets, quand il en ouvre un, c'est qu'il a sélectionné un tableau avant (un MSFlexGrid) le problème, c'est que même s'il en choisit un différent à chaque fois, c'est toujours le dernier sélectionné qui apparait dans TOUS les SSTab.
Pouvez-vous m'aider à corriger ce problème?

Merci d'avance

Slas

[ThierryAIM]

Pouvez-vous m'aider à corriger ce problème?

Peut-être ..... quand on l'aura compris .....

[AnneCa]

Bonjour!!
Est-ce que tu pourrais fournir un peu de code? C'est toujours plus facile de chercher avec une base.

Merci

[Slas14]

Avec ceci je vais chercher le fichier à ouvrir (il est en fait assimilé à un MSFlexGrid) :

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
Private Sub Command1_Click()
 
        CommonDialog1.InitDir = "D:\Cours"
        CommonDialog1.Filter = "Fichier compilé (.cue)"
        CommonDialog1.ShowOpen
'Là j'ajoute un onglet s'il n'y en avait qu'un
If SSTab1.Tabs >= 1 Then
        SSTab1.Tabs = SSTab1.Tabs + 1
    End If
'je n'ai trouvé que ce moyen là pour ouvrir un MSFlexGrid dans un SSTab
If CommonDialog1.FileTitle = "test" Then
            MSF_Load CommonDialog1.FileName
            SSTab1.Caption = CommonDialog1.FileTitle
    Else
            Grid2 CommonDialog1.FileName
            SSTab1.Caption = CommonDialog1.FileTitle
    End If

Voici mes MSFlexGrid : (les 2 sont quasi identiques donc je n'en met qu'un)

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
 
Private Sub Grid2(lLib As String)
    Dim strCol As String
    Dim strRow As String
    MSFlexGrid2.Appearance = flex3D
    Me.Caption = lLib
    MSFlexGrid2.Cols = 12
    MSFlexGrid2.Rows = 40
    strCol = "^Temps début|^Temps fin|^Transition|^Unité|^Unité|^Unité|^Unité|^Unité|^Unité|^Unité|^Unité|^Unité|^Unité|"
    MSFlexGrid2.FormatString = strCol
    MSFlexGrid2.FillStyle = flexFillRepeat
    MSFlexGrid2.AllowBigSelection = True
    MSFlexGrid2.FocusRect = flexFocusHeavy
    MSFlexGrid2.FixedCols = 2
    MSFlexGrid2.FixedRows = 1
    MSFlexGrid2.SelectionMode = flexSelectionFree
    MSFlexGrid2.ScrollBars = flexScrollBarBoth
    MSFlexGrid2.WordWrap = True
    AutosizeGridColumns MSFlexGrid2, 10, 10
    MSFlexGrid2_KeyDown 1, 1
    MSFlexGrid2_Resize
    MSFlexGrid2_autoDim
    MSFlexGrid2.Visible = True
    Dim strTexte
    strTexte = MSFlexGrid1.Text
    If KeyAscii = 8 Then
        'Touche d'effacement
        If Len(strTexte) > 0 Then MSFlexGrid2.Text = Left(strTexte, Len(strTexte) - 1)
        ElseIf KeyAscii <> 13 Then
            MSFlexGrid2.Text = strTexte & Chr(KeyAscii)
    End If
End Sub

J'espère que cela vous aidera à m'aider >_<

[Delbeke]

Avec le SSTAB, tu ne pourras pas à l'exécution ajouter un nouvel onglet et y placer des composant.
Crée les deux onglets dès la conception et mets y tes composants sur les bons onglets. Si besoin, par programme, tu peux masquer /afficher le deuxieme onglet.

[Slas14]

Sauf que dans le programme il n'y a pas que 2 MSFlexGrid mais il y en a le nombre que l'utilisateur en a créé. Ici je n'en ai que deux pour l'exemple afin d'intégrer le code ensuite au programme fini...

[ThierryAIM]

tu ne pourras pas à l'exécution ajouter un nouvel onglet et y placer des composant.

Je ne suis pas d'accord
On peut changer le nombre de Tab par code
Le SSTab est un container

essayes ça (une form, un sstab avec 1 tab, 1 bouton Command1 avec Index =0, un bouton Command2)

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Private Sub Command2_Click()
    SSTab1.Tabs = 3
    SSTab1.Tab = 1
    Load Command1(1)
    With Command1(1)
        Set .Container = SSTab1
        .Top = 1000
        .Left = 500
        .Visible = True
    End With
End Sub

[Slas14]

Mon problème n'est pas de pouvoir ajouter des onglets, ça j'y arrive déjà, c'est juste que l'utilisateur choisi d'ouvrir tel ou tel MSFlexGrid, et que le MSFlexGrif choisi doit apparaitre dans l'onglet désiré.