Bonjour,

J'ai un TabControl qui possede 2 TabPage, je voudrais que lorsque l'utilisateur clique sur le TabPage2 si des conditions ne sont pas rempli que ca lui affiche un message et non pas le TabPage2 mais le TabPage1

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
 
Dim TabControl1 As TabControl = New TabControl
Dim TabPage As TabPage() = New TabPage(2) {}
 
Me.Controls.Add(TabControl1)
 
For i = 0 To 2
  TabPage(i) = New TabPage()
  TabPage(i).Size = New System.Drawing.Size(561, 479)
  TabPage(i).Location = New System.Drawing.Point(5, 5)
  TabPage(i).UseVisualStyleBackColor = True
  TabControl1.Controls.Add(TabPage(i))
Next i
 
AddHandler TabPage(2).Enter, AddressOf afficher_TabPage1
 
Sub afficher_TabPage1(ByVal sender As Object, ByVal evArgs As EventArgs)
   If Checkbox(0).Checked = False Then
       MsgBox("Merci de renseigner le premier onglet")
       TabPage(1).show
   Else
 
   End If
End Sub
J'ai essayé Show, Select et Bringtofront sans succés

Merci !