Pb de TabStrip

Signaler
Messages postés
5
Date d'inscription
lundi 28 mai 2007
Statut
Membre
Dernière intervention
7 avril 2008
-
Messages postés
5
Date d'inscription
lundi 28 mai 2007
Statut
Membre
Dernière intervention
7 avril 2008
-
Bonjour,



j'ai un problème n tant que débutant en VB. Je viens de créer un
nouvelle form et j'ai choisi Options Dialog où directement apparait une
interface avec 4 onglets. Pour le besoin d'un projet j'ai besoin de
plus de 4 onglets. Lorsque j'en rajoute dans propriété "ajout" il
s'ajoute mais lorsque je run il y a un beug. Il ne prend pas en compte
le nouvel onglet. En cherchant je pense que cela vient de "picOtpion"
qui ne prends que 4 valeurs et pas plus.



Donc voila je voulais savoir:


 Est-il possible d'avoir plus de 4 onglets?


Comment  faut -il faire?



merci

3 réponses

Messages postés
4822
Date d'inscription
lundi 11 novembre 2002
Statut
Membre
Dernière intervention
15 novembre 2016
14
Salut,

Pour ton problème :

Tu séléctionne PicOption, clique droit, copier et coller au même endroit et c'est bon...En faite tu va générer une Pictoption(4)...

A+
Exploreur

 Linux a un noyau, Windows un pépin

 
Messages postés
4822
Date d'inscription
lundi 11 novembre 2002
Statut
Membre
Dernière intervention
15 novembre 2016
14
Salut,

Euh..Avant tu rajoutes ton 5 onglets et aprés tu fais ce que j'ai dit ci-dessus, étape à répéter autant de fois que tu rajoutes un onglet...Dans le cas ou tu veux des picturebox...Mais si tu n'en veux pas, tu séléctione PicOptions, tu la supprime(pense au code à mettre en remarque dans tbsOptions_Click), et rajoutes autant de fois que veux d'onglets....

A+
Exploreur

 Linux a un noyau, Windows un pépin

 
Messages postés
5
Date d'inscription
lundi 28 mai 2007
Statut
Membre
Dernière intervention
7 avril 2008

Merci pour ta réponse.


Je ne comprends pas ce que tu veux dire par copier coller PicOption

je t'envoie mon code de tbsOptions_Click:

Private Sub tbsOptions_Click()

   

    Dim i As Integer


    For i = 0 To tbsOptions.Tabs.Count - 1

        If i = tbsOptions.SelectedItem.Index - 1 Then

            picOptions(i).Left = 210

            picOptions(i).Enabled = True

        Else

            picOptions(i).Left = -20000

            picOptions(i).Enabled = True

        End If

    Next

   

End Sub


Quelle PicOption dois- je copier coller?


merci

Jleur