[VB.Net][TabControl] Comment rendre invisible un Tabpage ?

Version imprimable

30/01/2006, 15h11
bguihal

[VB.Net][TabControl] Comment rendre invisible un Tabpage ?

comment mettre un tabpage a visible = false
parce que :

Code:

TabControl1.TabPages(1).Visible = False

ça ne marche pas.

avez vous une idée.
30/01/2006, 15h19
Louis-Guillaume Morand

on peut pas. il faut les enlever et les remettre

ou alors, mais je ne suis pas sûr que ca corresponde à ton probleme.
Mitsu Furuta a proposé un composant tabcontrol sans onglet afin de simuler un wizard. mais ca depend de tes besoins
12/02/2006, 01h18
nikoko34
Bonjour,
Effectivement, dans le cadre d'un assistant, le tabcontrol sans onglet fonctionne très bien.
Code:

1 2 3 4 5 6 7 8 9 tabAssistant.TabPages.Clear() select case pNumEtape case 1 tabAssistant.TabPages.Add(tabPage1) case 2 tabAssistant.TabPages.Add(tabPage2) ... end select
Par contre, si l'on veut rendre invisible un tabpage selon un contexte précis (exemple : ne pas afficher un tabpage de detail si le tabpage de liste ne contient pas de ligne), ben là... ça coince...

Euuuuh, vous aurez deviné que je coince en ce moment, hein ? :P :P

Comme le suggère pharaonix, il faut s'orienter sur une gestion dynamique de l'affichage des TabPages. Donc à mon sens, necessiter de devlopper un gestionnaire des evenements. Par exemple si un evenement specifique d'un des TabPages détermine la presence ou pas d'un autre TabPage.
Imaginons un TabControl LeTabControl possedant un TabPage principal (fixe) contenant un Combobox MaListe abonné à la methode SelectedIndexChanged

Code:

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
39
40
41
42
43
44
 
'TabPage devant apparaître dynamiquement pour afficher un detail
Private TabPageDetail As TabPage
'Variable auquelle est attribuée l'index du TabPageDetail en cours
Private CurrentTabPage As Integer
 
'Permet d'ajouter dynamiquement TabPageDetail 
Private Sub AddTabPage(ByVal name As String)
  'nouvelle instance
  Me.TabPageDetail = New TabPage()
  'initialiser TabPageDetail
  With Me.TabPageDetail
    .Name = name
    .Text = "Detail de " + name
    'Initialiser la grille de TabPageDetail
  End With
  'ajouter le TabPageDetail
  Me.LeTabControl.TabPages.Add(Me.TabPageDetail)
  'reinitialiser l'index en cours
  Me.CurrentTabPage = Me.LeTabControl.TabPages.Count - 1
  Me.LeTabControl.SelectedIndex = Me.CurrentTabPage
End Sub
 
'Permet de retirer dynamiquement TabPageDetail		
Private Sub RemoveTabPage(ByVal index As Integer)
  With Me.LeTabControl
    .TabPages.RemoveAt(index)
    .SelectedIndex = 0
  End With
End Sub
 
'Capture l'evenement de changement de selection dans MaListe
Private Sub SelectedIndexChanged(sender As Object, e As EventArgs)
  Dim texte As String
  'recuperer le choix de l'utilisateur
  texte = Ctype(sender, ComboBox).SelectedItem.ToString()
  'Si OK
  If Not(texte.Equals(String.Empty)) Then
    'Si un TabPageDetail en cours , on l'enlève
    If Not(Me.CurrentTabPage = 0) Then Me.RemoveTabPage(Me.CurrentTabPage)
    'Afficher le nouveau TabPageDetail
    Me.AddTabPage(texte)
  End If			
End Sub

03/04/2006, 08h51
6su7

Bonjour,

Il n'y a aucun moyen de faire une separation entre les onglets ?

3 à gauche .... 3 à droite

Merci