Discussion :

[soso78]

Salut,

Voilà, j'ai un contrôle SSTAB qui dispose de 4 onglets.

Je n'arrive pas à récupérer l'index de l'onglet actif.

J'ai essayé :

Code :

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

intIndex = Me.SSTab1.SelectedItem.Index

Ou

Code :

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

intIndex = Me.SSTab1.Index

Et encore :

Code :

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

intIndex = Me.SSTab1.Tab

(puisque cette propriété fournie en principe l'onglet en cours).

Mais ça ne fonctionne pas :-(.

[Najdar]

Code :

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

intIndex = Me.SSTab1.Tab

(puisque cette propriété fournie en principe l'onglet en cours).

Mais ça ne fonctionne pas :-(.

Pourtant c'est bien cette propriété qui fonctionne...
Quel est ton message d'erreur extactement ?
Où / Quand utilise-tu cette propriété ?

As-tu un code plus complet pour voir ?

Vérifie la version de ton controle (A propos dans la bande des propriétés).

[Najdar]

J'ai essayé :

Code :

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

intIndex = Me.SSTab1.SelectedItem.Index

Es-tu sûr de travailler avec un SSTab ?
SelectedItem n'existe pas pour ce controle.

[LeForestier]

bonjour,
C'est probablement un TabStrip.
Vu sur l'aide en ligne..

Code :

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

1
2
3
4
5
6
7
8
9
10
11
' L'événement BeforeClick vérifie la valeur de la case
' à cocher pour déterminer si l'événement Click doit se produire.
Private Sub TabStrip1_BeforeClick(Cancel As Integer)
   If TabStrip1.Tabs(1).Selected Then
      If Check1.Value = 1 Then Cancel = True
   End If
End Sub
 
Private Sub TabStrip1_Click()
   Frame1(TabStrip1.SelectedItem.Index-1).ZOrder 0
End Sub

A+

[ProgElecT]

intIndex = Me.SSTab1.Tab

Donc

Es-tu sûr de travailler avec un SSTab ?

[soso78]

Merci pour vos réponses.

Quand je fais "à propos de" sur le contrôle, j'ai ceci :

Contrôle ActiveX Microsoft Tab - Version 6.0

Finalement, le problème a été résolu en initialisant la variable directement avec la fenêtre active :

Code :

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

intIndex = Me.SSTab1.Tab

... sauf que je voulais utiliser cette instruction dans un module et là, ça ne passe si je fais :

Code :

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

intIndex = frmMain.SSTab1.Tab

, ou frmMain est le nom de la form.

[ProgElecT]

Salut seoso
A propos du contrôle, j'ai la même chose.
dans la fenêtre "Composants"
Contrôle Microsoft Tabbed Dialog 6.0 (SP6) TABCTL32.OCX
Code dans un module.bas

Code :

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

1
2
3
4
5
6
7
8
Option Explicit
Public NumIndex As Integer
Public Function intIndex()
intIndex = frmMain.SSTab1.Tab
End Function
Public Sub RetournIndex()
NumIndex = frmMain.SSTab1.Tab
End Sub

Sur un Form, 1 SSTab et 2 CommandButtons
Code dans FrmMain:

Code :

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

1
2
3
4
5
6
7
8
Option Explicit
Private Sub Command1_Click()
Command1.Caption = intIndex
End Sub
Private Sub Command2_Click()
RetournIndex
Command2.Caption = NumIndex
End Sub

Que ce soit la fonction ou la sub, l'index de l'onglet est bien renvoyé (chez moi)