utilisation d'un Tab strip sous VB6

**jfdmagic** · 14/04/2009, 14h46

bonjour à tous,

j'utilise la référence MSCOMCTL.OCX pour pourvoir accéder au système des onglets (à savoir les tab strips)

Cependant, je ne comprends pas vraiment leurs utilisations... en effet, je voudrais :

1) premièrement : pouvoir allouer un espace graphique à chaque onglet (afin de mettre des autres éléments tels que des boutons, des textbox... mais que ces onglets appartiennent à la même feuille)

2) deuxièmement : savoir comment faire référence dans le code, à un élément (par ex un bouton) distinctement d'un autre au sein d'onglets différents mais appartenant à la même feuille.

Vous remerciant par avance,

jfdmagic

**AnneCa** · 14/04/2009, 15h37

Si tu veux utiliser la référence MSCOMCTL.OCX, tu va devoir créer une frame différente pour chaque onglet. Ces frames doivent êtres de même taille et seront suprposées. A chaque click sur le tab, il faudra déterminer l'index du tab et rendre visible la frame avec le même index et invisible toutes les autres.

Moi, je prefère utiliser le composant TABCTL32.ocx, Microsoft tabbed Dialog control 6.0 (SP3). Il demande moins de code pour gérer les clicks.
En ce qui concerne les boutons dans les onglets, si ils ont un nom différents tu n'auras aucun problème.

**jfdmagic** · 14/04/2009, 15h48

je vais voir ce que cela donne.

je te tiens au courant.

merci de tes conseils.

**jfdmagic** · 14/04/2009, 15h55

Quelle fonction ou procédure, utilises-tu pour associer un frame à une valeur d'index du tab strip ?

ceci de façon à ce que lorsque tu cliques sur l'onglet, le frame que tu lui a associé s'affiche.

merci d'avance

**AnneCa** · 14/04/2009, 16h17

Crée d'abord une frame dont le nom est frame1, ensuite une deuxième que tu renommes aussi frame1. Tu vas recevoir un messagequi te demande si tu veux créer un "controlarray", reponds OUI.
Pour gérer le click

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Private Sub TabStrip1_Click()
'x = nombre total de frame
'DEBUT CODE Faux
'For i = 0 To x - 1
'    Frame1(i).Visible = (TabStrip1.TabIndex = i)
'next i
'FIN CODE Faux
 
For i = 1 To TabStrip1.Tabs.Count
    Frame1(i - 1).Visible = TabStrip1.Tabs(i).Selected
Next i
End Sub

**jfdmagic** · 15/04/2009, 10h05

merci de ton aide.

sinon, on peut faire cela à la place d'un contrôle array : ça marche :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Private Sub TabStrip1_Click
If TabStrip1.SelectedItem.Index=1 Then
Frame1.Visible= True
Frame2.Visible= False
End If
If TabStrip1.SelectedItem.Index=2 then
Frame1.Visible=False
Frame2.Visible=True
End If
 
'etc...'

Problème Resolu

**jfdmagic** · 16/04/2009, 15h59

j'ai voulu faire une fenêtre avec 3 onglets et donc 3 frames mais ça ne marche pas alors que cela fonctionne avec 2 :

dans un private sub click

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
33
34
35
36
37
38
 
 
'avec un select case'
 
Select Case tspPrincipal.SelectedItem.Index
       Case 1
            frame1.Visible = True
            frame2.Visible = False
            frame3.Visible = False
        Case 2
            frame1.Visible = False
            frame2.Visible = True
            frame3.Visible = False
        Case 3
            frame1.Visible = False
            frame2.Visible = False
            frame3.Visible = True
    End Select
 
----------------------------------------------------------
 
'avec des boucles if then'
 
    If tspPrincipal.SelectedItem.Index = 1 Then
        frame1.Visible = True
        frame2.Visible = False
        frame3.Visible = False
    End If
    If tspPrincipal.SelectedItem.Index = 2 Then
        frame1.Visible = False
        frame2.Visible = True
        frame3.Visible = False
    End If
    If tspPrincipal.SelectedItem.Index = 3 Then
        frame1.Visible = False
        frame2.Visible = False
        frame3.Visible = True
    End If

je ne peux afficher que les 2 premiers frames correspondants respectivement aux deux premiers onglets Pas moyen d'afficher le troisième alors qu'il est bien associé au troisième onglet.

j'ai vérifié les noms des frames et ils sont bien corrects (de toute façon, s'il y avait un de faux, VB6 m' aurait signalé que l'objet n'existe pas)

Savez-vous pour quelle raison ?

merci de votre aide.

**littledoudou** · 16/04/2009, 16h19

bonjour,

(ouverture de parenthèse...
n'ayant pas été à l'aise avec TabStrip, je me suis orienté vers l'utilisation de SSTab (composant Microsoft Tabbed Dialog Control - tabctl32.ocx) qui est plus visuel et permet d'accéder aux différents onglets pendant la conception de l'interface de façon plus simple.
de plus, chaque onglet a ses propres contrôles donc plus besoin de code pour rendre visible tel ou tel contrôle.
...fermeture de parenthèse)

cdlt,

**littledoudou** · 16/04/2009, 16h26

dans l'interface de conception, ton contrôle tspPrincipal affiche t-il les 3 onglets ou seulement 2?

**jfdmagic** · 16/04/2009, 16h35

il m'affiche bien 3 onglets... c'est à ne rien comprendre...

**littledoudou** · 16/04/2009, 16h41

en mettant cela:

Code :

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

1
2
3
Private Sub tspPrincipal_Click()
    MsgBox tspPrincipal.SelectedItem.Index & "/" & tspPrincipal.Tabs.Count
End Sub

as-tu le message "3/3" en cliquant sur ton 3e onglet?

**jfdmagic** · 16/04/2009, 16h44

Envoyé par littledoudou

en mettant cela:

Code :

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

1
2
3
Private Sub tspPrincipal_Click()
    MsgBox tspPrincipal.SelectedItem.Index & "/" & tspPrincipal.Tabs.Count
End Sub

as-tu le message "3/3" en cliquant sur ton 3e onglet?

oui, j'ai bien la réponse 3/3... mais mon frame ne s'affiche toujours pas...

**bhaal76** · 16/04/2009, 16h45

les index du SsTab commence à 0

par contre, avec un SsTab, je ne comprends pas pourquoi tu continu avec des frame !!!

**littledoudou** · 16/04/2009, 16h48

vérifie alors si tes contrôles frame sont en avant plan par rapport à ton contrôle tabstrip.
j'ai fait un essai dans lequel le frame3 était en arrière plan (donc caché sous le tabstrip) et dans ce cas il n'est jamais visible à l'écran.

**jfdmagic** · 16/04/2009, 16h48

moi, j'utilise un tabStrip et des frames... mon index commence bien à 1 et non à 0

**jfdmagic** · 16/04/2009, 16h52

Envoyé par littledoudou

vérifie alors si tes contrôles frame sont en avant plan par rapport à ton contrôle tabstrip.
j'ai fait un essai dans lequel le frame3 était en arrière plan (donc caché sous le tabstrip) et dans ce cas il n'est jamais visible à l'écran.

je n'y crois pas : c'était bien ça... et ça fait une 1/2 journée que je cherche !!!

Comment j'ai pu passer à côté...?

Merci de ton aide : tu m'enlèves une épine du pied !

utilisation d'un Tab strip sous VB6

VB 6 et antérieur

Discussions similaires

Partager

Partager