[Debutante] Affichage simultané de 2 Tabs dans 2 Tabstrips differents
2 réponses
Cendrine
Bonjour à tous,
J'ai deux Tabstrip contenant les même nombre de Tabs.
Mon but est d'afficher dans chacun des deux les Tabs de même index, en
cliquant sur un seul onglet d'un des deux Tabstrip.
Click Tabstrip1, onglet3 permet l'affichage de "Tabstrip1 onglet3" et de
"Tabstrip2 onglet3".
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
François Picalausa
Bonjour/soir,
Essaye ceci: Option Explicit
Private Sub Form_Load() Dim i As Long
For i = 1 To 3 TabStrip1.Tabs.Add , , "Tab" & i TabStrip2.Tabs.Add , , "Tab" & i Next i End Sub
Private Sub TabStrip1_Click() If Not TabStrip1.Tag = "0" Then TabStrip2.Tag = "0" TabStrip2.Tabs(TabStrip1.SelectedItem.Index).Selected = True TabStrip2.Tag = "" End If End Sub
Private Sub TabStrip2_Click() If Not TabStrip2.Tag = "0" Then TabStrip1.Tag = "0" TabStrip1.Tabs(TabStrip2.SelectedItem.Index).Selected = True TabStrip1.Tag = "" End If End Sub
J'ai deux Tabstrip contenant les même nombre de Tabs. Mon but est d'afficher dans chacun des deux les Tabs de même index, en cliquant sur un seul onglet d'un des deux Tabstrip.
Click Tabstrip1, onglet3 permet l'affichage de "Tabstrip1 onglet3" et de "Tabstrip2 onglet3".
Merci d'avance de votre aide.
Bonjour/soir,
Essaye ceci:
Option Explicit
Private Sub Form_Load()
Dim i As Long
For i = 1 To 3
TabStrip1.Tabs.Add , , "Tab" & i
TabStrip2.Tabs.Add , , "Tab" & i
Next i
End Sub
Private Sub TabStrip1_Click()
If Not TabStrip1.Tag = "0" Then
TabStrip2.Tag = "0"
TabStrip2.Tabs(TabStrip1.SelectedItem.Index).Selected = True
TabStrip2.Tag = ""
End If
End Sub
Private Sub TabStrip2_Click()
If Not TabStrip2.Tag = "0" Then
TabStrip1.Tag = "0"
TabStrip1.Tabs(TabStrip2.SelectedItem.Index).Selected = True
TabStrip1.Tag = ""
End If
End Sub
"Cendrine" <Breizelle@yahoo.com> a écrit dans le message de
news:eFPlIugnDHA.1740@TK2MSFTNGP12.phx.gbl
Bonjour à tous,
J'ai deux Tabstrip contenant les même nombre de Tabs.
Mon but est d'afficher dans chacun des deux les Tabs de même index, en
cliquant sur un seul onglet d'un des deux Tabstrip.
Click Tabstrip1, onglet3 permet l'affichage de "Tabstrip1 onglet3" et
de "Tabstrip2 onglet3".
For i = 1 To 3 TabStrip1.Tabs.Add , , "Tab" & i TabStrip2.Tabs.Add , , "Tab" & i Next i End Sub
Private Sub TabStrip1_Click() If Not TabStrip1.Tag = "0" Then TabStrip2.Tag = "0" TabStrip2.Tabs(TabStrip1.SelectedItem.Index).Selected = True TabStrip2.Tag = "" End If End Sub
Private Sub TabStrip2_Click() If Not TabStrip2.Tag = "0" Then TabStrip1.Tag = "0" TabStrip1.Tabs(TabStrip2.SelectedItem.Index).Selected = True TabStrip1.Tag = "" End If End Sub
J'ai deux Tabstrip contenant les même nombre de Tabs. Mon but est d'afficher dans chacun des deux les Tabs de même index, en cliquant sur un seul onglet d'un des deux Tabstrip.
Click Tabstrip1, onglet3 permet l'affichage de "Tabstrip1 onglet3" et de "Tabstrip2 onglet3".
Merci d'avance de votre aide.
Cendrine
Merci beaucoup de votre aide. Bonne soirée
Cendrine
"François Picalausa" wrote in message news:ew8EW#
Bonjour/soir,
Essaye ceci: Option Explicit
Private Sub Form_Load() Dim i As Long
For i = 1 To 3 TabStrip1.Tabs.Add , , "Tab" & i TabStrip2.Tabs.Add , , "Tab" & i Next i End Sub
Private Sub TabStrip1_Click() If Not TabStrip1.Tag = "0" Then TabStrip2.Tag = "0" TabStrip2.Tabs(TabStrip1.SelectedItem.Index).Selected = True TabStrip2.Tag = "" End If End Sub
Private Sub TabStrip2_Click() If Not TabStrip2.Tag = "0" Then TabStrip1.Tag = "0" TabStrip1.Tabs(TabStrip2.SelectedItem.Index).Selected = True TabStrip1.Tag = "" End If End Sub
"Cendrine" a écrit dans le message de news: > Bonjour à tous, > > J'ai deux Tabstrip contenant les même nombre de Tabs. > Mon but est d'afficher dans chacun des deux les Tabs de même index, en > cliquant sur un seul onglet d'un des deux Tabstrip. > > > Click Tabstrip1, onglet3 permet l'affichage de "Tabstrip1 onglet3" et > de "Tabstrip2 onglet3". > > > Merci d'avance de votre aide.
Merci beaucoup de votre aide.
Bonne soirée
Cendrine
"François Picalausa" <fpicalausa@chez.com> wrote in message
news:ew8EW#inDHA.2772@TK2MSFTNGP12.phx.gbl...
Bonjour/soir,
Essaye ceci:
Option Explicit
Private Sub Form_Load()
Dim i As Long
For i = 1 To 3
TabStrip1.Tabs.Add , , "Tab" & i
TabStrip2.Tabs.Add , , "Tab" & i
Next i
End Sub
Private Sub TabStrip1_Click()
If Not TabStrip1.Tag = "0" Then
TabStrip2.Tag = "0"
TabStrip2.Tabs(TabStrip1.SelectedItem.Index).Selected = True
TabStrip2.Tag = ""
End If
End Sub
Private Sub TabStrip2_Click()
If Not TabStrip2.Tag = "0" Then
TabStrip1.Tag = "0"
TabStrip1.Tabs(TabStrip2.SelectedItem.Index).Selected = True
TabStrip1.Tag = ""
End If
End Sub
"Cendrine" <Breizelle@yahoo.com> a écrit dans le message de
news:eFPlIugnDHA.1740@TK2MSFTNGP12.phx.gbl
> Bonjour à tous,
>
> J'ai deux Tabstrip contenant les même nombre de Tabs.
> Mon but est d'afficher dans chacun des deux les Tabs de même index, en
> cliquant sur un seul onglet d'un des deux Tabstrip.
>
>
> Click Tabstrip1, onglet3 permet l'affichage de "Tabstrip1 onglet3" et
> de "Tabstrip2 onglet3".
>
>
> Merci d'avance de votre aide.
For i = 1 To 3 TabStrip1.Tabs.Add , , "Tab" & i TabStrip2.Tabs.Add , , "Tab" & i Next i End Sub
Private Sub TabStrip1_Click() If Not TabStrip1.Tag = "0" Then TabStrip2.Tag = "0" TabStrip2.Tabs(TabStrip1.SelectedItem.Index).Selected = True TabStrip2.Tag = "" End If End Sub
Private Sub TabStrip2_Click() If Not TabStrip2.Tag = "0" Then TabStrip1.Tag = "0" TabStrip1.Tabs(TabStrip2.SelectedItem.Index).Selected = True TabStrip1.Tag = "" End If End Sub
"Cendrine" a écrit dans le message de news: > Bonjour à tous, > > J'ai deux Tabstrip contenant les même nombre de Tabs. > Mon but est d'afficher dans chacun des deux les Tabs de même index, en > cliquant sur un seul onglet d'un des deux Tabstrip. > > > Click Tabstrip1, onglet3 permet l'affichage de "Tabstrip1 onglet3" et > de "Tabstrip2 onglet3". > > > Merci d'avance de votre aide.
