OVH Cloud OVH Cloud

Controle tabStrip

2 réponses
Avatar
RENAUD Eric
Bonjour,
Dans mon Tabstrip j'ai actuellement un onglet (le 3) pour lequel je n'ai pas
d'info.
Donc lorsque je clique dessus, j'envoie un message avec une MsgBox pour dire
que cet onglet n'est pas disponible et je voudrais réactiver l'onglet 1
(c'est comme si je cliquais sur l'onglet 1)

Je ne trouve pas la syntaxe adéquate.
D'avance merci.

2 réponses

Avatar
X
Bonjour,

Schématiquement ça devrait fonctionner comme ça:

Dim indice As Byte
Sub Load
indice = 0
Call affiche_1
-------------

Sub TabStrip1_Click()
indice = TabStrip1.SelectedItem.Index
if indice = 0 Then: Call affiche_1
if indice = 1 Then: Call affiche_2
if indice = 2 Then: Call affiche_3
' Caption = nom onglet..
-------------

Sub affiche_1
-------

Sub affiche_2
-------

Sub affiche_3
MsgBox "Cet onglet n°3 n'est pas disponible"
Call affiche_1
--------------

*-*-*-*-*-*-
Explications
- Les 3 procédures "affiche_1, 2, 3", servent chacune respectivement au
traitement de l'onglet invoqué.
- Le Load envoie dans la première procédure au démarrage.
- Le TabStrip1_Clich() sert à aiguiller selon l'index (onglet), vers les
procédures après le lancement du programme...

----------------fin-------------


ECRIRE
http://irolog.free.fr/ecrire/index.htm

LOGICIELS
http://irolog.free.fr

SITE
http://irolog.free.fr/joe/index.htm

FAQ VB
http://faq.vb.free.fr

PRINCIPE D'UTILISATION DES NEWSGROUPS MICROSOFT
http://support.microsoft.com/directory/worldwide/fr/newsgroup/regles.htm

----------------Fin----------------


"RENAUD Eric" a écrit dans le message de news:
%
Bonjour,
Dans mon Tabstrip j'ai actuellement un onglet (le 3) pour lequel je n'ai
pas
d'info.
Donc lorsque je clique dessus, j'envoie un message avec une MsgBox pour
dire
que cet onglet n'est pas disponible et je voudrais réactiver l'onglet 1
(c'est comme si je cliquais sur l'onglet 1)

Je ne trouve pas la syntaxe adéquate.
D'avance merci.




Avatar
Titeuf [VB.Net 2005]
Cela doit marcher tiens moi au courant

If TabStrip1.Tabs(1).Selected Then
'ton code du 1er onglet
ElseIf TabStrip1.Tabs(2).Selected Then
'ton code du 2ieme onglet
ElseIf TabStrip1.Tabs(3).Selected Then
TabStrip1.Tabs(1).Selected = True
End If

C'est basic :) mais bon....