Pb de TabStrip

Jleur Messages postés 5 Date d'inscription lundi 28 mai 2007 Statut Membre Dernière intervention 7 avril 2008 - 1 juin 2007 à 16:41
Jleur Messages postés 5 Date d'inscription lundi 28 mai 2007 Statut Membre Dernière intervention 7 avril 2008 - 5 juin 2007 à 10:02
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

cs_Exploreur Messages postés 4822 Date d'inscription lundi 11 novembre 2002 Statut Membre Dernière intervention 15 novembre 2016 14
1 juin 2007 à 18:22
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

 
0
cs_Exploreur Messages postés 4822 Date d'inscription lundi 11 novembre 2002 Statut Membre Dernière intervention 15 novembre 2016 14
1 juin 2007 à 18:26
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

 
0
Jleur Messages postés 5 Date d'inscription lundi 28 mai 2007 Statut Membre Dernière intervention 7 avril 2008
5 juin 2007 à 10:02
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
0