[Débutant] Rendre non clickable un TabPage d'un TabControl

Rendre non clickable un TabPage d'un TabControl

Bonjour,
Je butte sur une petite difficulté.
J'ai créé un TabControl avec plusieurs TabPage à l'intérieur.
Dans certaines circonstances je souhaiterais qu'on ne puisse pas cliquer sur l'onglet d'un TabPage mais que les autres restent clickables.
J'ai essayé TabPage1.enabled = false mais ça ne fonctionne pas
Quelqu'un a-t-il la solution ?
Merci d'avance pour vos réponses :)

Bonjour,

Il faut ruser pour obtenir ce que tu souhaites, à titre d'exemple :

https://i.imgur.com/7PaDYlS.png

Et le code associé :

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
 
Public Class Form1
 
    Private PreviousTab As TabPage
 
    Private Sub TabControl1_Deselected(sender As Object, e As TabControlEventArgs) Handles TabControl1.Deselected
        PreviousTab = e.TabPage
    End Sub
 
    Private Sub TabControl1_Selected(sender As Object, e As TabControlEventArgs) Handles TabControl1.Selected
        If Not e.TabPage.Enabled Then
            TabControl1.SelectedTab = PreviousTab
        End If
    End Sub
 
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        TabControl1.TabPages(0).Enabled = False
        TabControl1.TabPages(1).Enabled = True
        TabControl1.TabPages(2).Enabled = True
    End Sub
 
    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        TabControl1.TabPages(1).Enabled = False
        TabControl1.TabPages(0).Enabled = True
        TabControl1.TabPages(2).Enabled = True
    End Sub
 
    Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
        TabControl1.TabPages(2).Enabled = False
        TabControl1.TabPages(0).Enabled = True
        TabControl1.TabPages(1).Enabled = True
    End Sub
End Class

NB :Il y a certainement plus simple et condensé à faire mais voilà l'idée principale.

++

Merci wallace1 je vais essayer ça :)