Discussion :

[maxxou]

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 !

[robri]

salut,

essaye :

Code :

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

TabControl1.SelectedIndex = 0

tu dis que tu as 2 onglets, mais dans ton code tu en ajoutes 3 ...

Code :

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

1
2
3
For i = 0 To 2 'ça fait 3 éléments
  ...
Next i

[maxxou]

Concernant mon probleme merci robri ! j'ai testé ca marche ni-ckel

t un chef merci encore et bon courage