a propos des onglets

Question

voici mon probleme : 
dans mon formulaire j'ai plusieurs onglets
a un de ces onglets j'ai attribué une procedure événementiel surclick()
seuelemtn quand je clique sur l'onglet en question rien ne se passe....... bizzarerie ou oubli de ma part?????

cs_rene38 · Answer

Bonjour
C'est quoi l'événement "surclick" ? ça existe ?

cs_prezz · Answer

lol
l'événement "sur clic" pour les puritains ;)

cs_PhilippeE · Answer

Utilises l'évènement Change à la place

cs_ITALIA · Answer

tu veux dire !!

Private Sub TabStrip1_Click()

End Sub

Je Presume

It@li@

cs_PhilippeE · Answer

oups clic intempestif ... dans ta gestion d'évènement tu n'as plus qu'à vérifier que tu es sur le bon onglet (propriété IndexPage)

cs_frop01 · Answer

Private Sub TabStrip1_Click()
  If TabStrip1.Tabs(2).Selected Then MsgBox "hahaha"
End Sub

un message s'affiche lorsqu'on clic sur le deuxième onglet

MSN : cyberscorp2004@msn.com
Qui s'y frotte, s'y pique .

cs_frop01 · Answer

Si tu utilise SSTAB et non Tabstrip alors

Private Sub SSTab1_Click(PreviousTab As Integer)
  If SSTab1.Tab = 1 Then MsgBox "jkno"
End Sub

MSN : cyberscorp2004@msn.com
Qui s'y frotte, s'y pique .

cs_prezz · Answer

non en fait je parlais de l'evenement sur clic des pages de l'onglet page1,page2,... de mon onglet ctltab0
je vais essayer vos conseils

cs_ITALIA · Answer

c koi komme controle ???

It@li@

cs_prezz · Answer

ca marche tres bien merci et comment fait-on pour obtenir l'ancienne page sur laquelle on etait
en fait quand je clique sur l'onglet 1 il regarde les droits de la personne et si elle n'est pas autorisee un message d'erreur apparait et elle est aussitot relancee sur la page ou elle se trouvait avant le clic

cs_frop01 · Answer

supposons que tu as 3 onglets 1,2,3

ex :



Dim AncienneVal As Byte  'declaration du varible

Private Sub Form_Load()  
  AncienneVal = 1  'inititialise le variable à 1 (onglet par defaut 1)
End Sub

Private Sub TabStrip1_Click()
MsgBox "L'onglet précédent=" + Str(AncienneVal) 'afficher la valeur
If TabStrip1.Tabs(1).Selected Then AncienneVal = 1 ' si c est le 2ème onglet on attribut à Anciennevaleur la nbouvelle
If TabStrip1.Tabs(2).Selected Then AncienneVal = 2
If TabStrip1.Tabs(3).Selected Then AncienneVal = 3
End Sub



g mis qq commentaires.

MSN : cyberscorp2004@msn.com
Qui s'y frotte, s'y pique .

A propos des onglets

11 réponses

Discussions similaires