Voila un code qui bug pourriez m'expliquer l'erreur ?
Dim LI As Integer
Dim PvIndex As Integer
Set Onglets.ImageList = Nothing
For LI = 1 To Onglets.Tabs.Count
If Onglets.Tabs(LI).Key = frm.Name Then
PvIndex = LI
Exit For
End If
Next LI
Icons.ListImages.Remove (PvIndex)
Onglets.Tabs.Remove (PvIndex)
Set Onglets.ImageList = Icons ....> BUG
For LI = 1 To Onglets.Tabs.Count
Onglets.Tabs(LI).Image = LI
Next LI
Onglets = tabstrip
Icons = imagelist
Merci du temps que vous voudrez bien passer sur ce petit code
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Bismark Prods
en fait chez moi ca fonctionne 1 fois sur 2 ! ca doit être un de ces bugs complexe qui n'arrive que quand un certain nombre d'événement se sont produit dans le meme ordre ! quelle connerie ce VB ! lol non je rigole
"Christophe QUEVAL" a écrit dans le message de news:%
Bonjour,
Chez moi cela fonctionne correctement (voir source joint).
Cordialement,
Christophe
"Bismark Prods" a écrit dans le message de news: > Bonjour tout le monde, > > Que de problèmes... lol > > Voila un code qui bug pourriez m'expliquer l'erreur ? > > Dim LI As Integer > Dim PvIndex As Integer > Set Onglets.ImageList = Nothing > > For LI = 1 To Onglets.Tabs.Count > If Onglets.Tabs(LI).Key = frm.Name Then > PvIndex = LI > Exit For > End If > Next LI > Icons.ListImages.Remove (PvIndex) > Onglets.Tabs.Remove (PvIndex) > Set Onglets.ImageList = Icons ....> BUG > For LI = 1 To Onglets.Tabs.Count > Onglets.Tabs(LI).Image = LI > Next LI > > Onglets = tabstrip > Icons = imagelist > > Merci du temps que vous voudrez bien passer sur ce petit code > > > >
en fait chez moi ca fonctionne 1 fois sur 2 ! ca doit être un de ces bugs
complexe qui n'arrive que quand un certain nombre d'événement se sont
produit dans le meme ordre ! quelle connerie ce VB ! lol non je rigole
"Christophe QUEVAL" <queval.c@wanadoo.fr> a écrit dans le message de
news:%23I7cWCTaDHA.2580@TK2MSFTNGP09.phx.gbl...
Bonjour,
Chez moi cela fonctionne correctement (voir source joint).
Cordialement,
Christophe
"Bismark Prods" <xanaia@urbanet.ch> a écrit dans le message de
news:urdNPNSaDHA.1748@TK2MSFTNGP12.phx.gbl...
> Bonjour tout le monde,
>
> Que de problèmes... lol
>
> Voila un code qui bug pourriez m'expliquer l'erreur ?
>
> Dim LI As Integer
> Dim PvIndex As Integer
> Set Onglets.ImageList = Nothing
>
> For LI = 1 To Onglets.Tabs.Count
> If Onglets.Tabs(LI).Key = frm.Name Then
> PvIndex = LI
> Exit For
> End If
> Next LI
> Icons.ListImages.Remove (PvIndex)
> Onglets.Tabs.Remove (PvIndex)
> Set Onglets.ImageList = Icons ....> BUG
> For LI = 1 To Onglets.Tabs.Count
> Onglets.Tabs(LI).Image = LI
> Next LI
>
> Onglets = tabstrip
> Icons = imagelist
>
> Merci du temps que vous voudrez bien passer sur ce petit code
>
>
>
>
en fait chez moi ca fonctionne 1 fois sur 2 ! ca doit être un de ces bugs complexe qui n'arrive que quand un certain nombre d'événement se sont produit dans le meme ordre ! quelle connerie ce VB ! lol non je rigole
"Christophe QUEVAL" a écrit dans le message de news:%
Bonjour,
Chez moi cela fonctionne correctement (voir source joint).
Cordialement,
Christophe
"Bismark Prods" a écrit dans le message de news: > Bonjour tout le monde, > > Que de problèmes... lol > > Voila un code qui bug pourriez m'expliquer l'erreur ? > > Dim LI As Integer > Dim PvIndex As Integer > Set Onglets.ImageList = Nothing > > For LI = 1 To Onglets.Tabs.Count > If Onglets.Tabs(LI).Key = frm.Name Then > PvIndex = LI > Exit For > End If > Next LI > Icons.ListImages.Remove (PvIndex) > Onglets.Tabs.Remove (PvIndex) > Set Onglets.ImageList = Icons ....> BUG > For LI = 1 To Onglets.Tabs.Count > Onglets.Tabs(LI).Image = LI > Next LI > > Onglets = tabstrip > Icons = imagelist > > Merci du temps que vous voudrez bien passer sur ce petit code > > > >
Bismark Prods
Merci Christophe de ta rapidité.
J'ai un autre problème qui m'arrivais pas au début. L'image sur le tab du tabstrip se chevauche avec le texte ! D'ou cela peut venir ? t'a une idée ?
Merci
Je peux t'envoyer un printscreen si tu veux te représenter ?
"Christophe QUEVAL" a écrit dans le message de news:%
Bonjour,
Chez moi cela fonctionne correctement (voir source joint).
Cordialement,
Christophe
"Bismark Prods" a écrit dans le message de news: > Bonjour tout le monde, > > Que de problèmes... lol > > Voila un code qui bug pourriez m'expliquer l'erreur ? > > Dim LI As Integer > Dim PvIndex As Integer > Set Onglets.ImageList = Nothing > > For LI = 1 To Onglets.Tabs.Count > If Onglets.Tabs(LI).Key = frm.Name Then > PvIndex = LI > Exit For > End If > Next LI > Icons.ListImages.Remove (PvIndex) > Onglets.Tabs.Remove (PvIndex) > Set Onglets.ImageList = Icons ....> BUG > For LI = 1 To Onglets.Tabs.Count > Onglets.Tabs(LI).Image = LI > Next LI > > Onglets = tabstrip > Icons = imagelist > > Merci du temps que vous voudrez bien passer sur ce petit code > > > >
Merci Christophe de ta rapidité.
J'ai un autre problème qui m'arrivais pas au début. L'image sur le tab du
tabstrip se chevauche avec le texte ! D'ou cela peut venir ? t'a une idée ?
Merci
Je peux t'envoyer un printscreen si tu veux te représenter ?
"Christophe QUEVAL" <queval.c@wanadoo.fr> a écrit dans le message de
news:%23I7cWCTaDHA.2580@TK2MSFTNGP09.phx.gbl...
Bonjour,
Chez moi cela fonctionne correctement (voir source joint).
Cordialement,
Christophe
"Bismark Prods" <xanaia@urbanet.ch> a écrit dans le message de
news:urdNPNSaDHA.1748@TK2MSFTNGP12.phx.gbl...
> Bonjour tout le monde,
>
> Que de problèmes... lol
>
> Voila un code qui bug pourriez m'expliquer l'erreur ?
>
> Dim LI As Integer
> Dim PvIndex As Integer
> Set Onglets.ImageList = Nothing
>
> For LI = 1 To Onglets.Tabs.Count
> If Onglets.Tabs(LI).Key = frm.Name Then
> PvIndex = LI
> Exit For
> End If
> Next LI
> Icons.ListImages.Remove (PvIndex)
> Onglets.Tabs.Remove (PvIndex)
> Set Onglets.ImageList = Icons ....> BUG
> For LI = 1 To Onglets.Tabs.Count
> Onglets.Tabs(LI).Image = LI
> Next LI
>
> Onglets = tabstrip
> Icons = imagelist
>
> Merci du temps que vous voudrez bien passer sur ce petit code
>
>
>
>
J'ai un autre problème qui m'arrivais pas au début. L'image sur le tab du tabstrip se chevauche avec le texte ! D'ou cela peut venir ? t'a une idée ?
Merci
Je peux t'envoyer un printscreen si tu veux te représenter ?
"Christophe QUEVAL" a écrit dans le message de news:%
Bonjour,
Chez moi cela fonctionne correctement (voir source joint).
Cordialement,
Christophe
"Bismark Prods" a écrit dans le message de news: > Bonjour tout le monde, > > Que de problèmes... lol > > Voila un code qui bug pourriez m'expliquer l'erreur ? > > Dim LI As Integer > Dim PvIndex As Integer > Set Onglets.ImageList = Nothing > > For LI = 1 To Onglets.Tabs.Count > If Onglets.Tabs(LI).Key = frm.Name Then > PvIndex = LI > Exit For > End If > Next LI > Icons.ListImages.Remove (PvIndex) > Onglets.Tabs.Remove (PvIndex) > Set Onglets.ImageList = Icons ....> BUG > For LI = 1 To Onglets.Tabs.Count > Onglets.Tabs(LI).Image = LI > Next LI > > Onglets = tabstrip > Icons = imagelist > > Merci du temps que vous voudrez bien passer sur ce petit code > > > >
Christophe QUEVAL
Voir du côté des propriétés : TabWidthStyle, TabFixedWidth et Placement.
Si TabWidthStyle est à "TabFixed", alors on peut facilement générer des affichages bizarres.
Christophe
"Bismark Prods" a écrit dans le message de news:eJr0V$
Merci Christophe de ta rapidité.
J'ai un autre problème qui m'arrivais pas au début. L'image sur le tab du tabstrip se chevauche avec le texte ! D'ou cela peut venir ? t'a une idée
?
Merci
Je peux t'envoyer un printscreen si tu veux te représenter ?
"Christophe QUEVAL" a écrit dans le message de news:% > Bonjour, > > Chez moi cela fonctionne correctement (voir source joint). > > Cordialement, > > Christophe > > "Bismark Prods" a écrit dans le message de > news: > > Bonjour tout le monde, > > > > Que de problèmes... lol > > > > Voila un code qui bug pourriez m'expliquer l'erreur ? > > > > Dim LI As Integer > > Dim PvIndex As Integer > > Set Onglets.ImageList = Nothing > > > > For LI = 1 To Onglets.Tabs.Count > > If Onglets.Tabs(LI).Key = frm.Name Then > > PvIndex = LI > > Exit For > > End If > > Next LI > > Icons.ListImages.Remove (PvIndex) > > Onglets.Tabs.Remove (PvIndex) > > Set Onglets.ImageList = Icons ....> BUG > > For LI = 1 To Onglets.Tabs.Count > > Onglets.Tabs(LI).Image = LI > > Next LI > > > > Onglets = tabstrip > > Icons = imagelist > > > > Merci du temps que vous voudrez bien passer sur ce petit code > > > > > > > > > > >
Voir du côté des propriétés : TabWidthStyle, TabFixedWidth et Placement.
Si TabWidthStyle est à "TabFixed", alors on peut facilement générer des
affichages bizarres.
Christophe
"Bismark Prods" <xanaia@urbanet.ch> a écrit dans le message de
news:eJr0V$TaDHA.1832@TK2MSFTNGP10.phx.gbl...
Merci Christophe de ta rapidité.
J'ai un autre problème qui m'arrivais pas au début. L'image sur le tab du
tabstrip se chevauche avec le texte ! D'ou cela peut venir ? t'a une idée
?
Merci
Je peux t'envoyer un printscreen si tu veux te représenter ?
"Christophe QUEVAL" <queval.c@wanadoo.fr> a écrit dans le message de
news:%23I7cWCTaDHA.2580@TK2MSFTNGP09.phx.gbl...
> Bonjour,
>
> Chez moi cela fonctionne correctement (voir source joint).
>
> Cordialement,
>
> Christophe
>
> "Bismark Prods" <xanaia@urbanet.ch> a écrit dans le message de
> news:urdNPNSaDHA.1748@TK2MSFTNGP12.phx.gbl...
> > Bonjour tout le monde,
> >
> > Que de problèmes... lol
> >
> > Voila un code qui bug pourriez m'expliquer l'erreur ?
> >
> > Dim LI As Integer
> > Dim PvIndex As Integer
> > Set Onglets.ImageList = Nothing
> >
> > For LI = 1 To Onglets.Tabs.Count
> > If Onglets.Tabs(LI).Key = frm.Name Then
> > PvIndex = LI
> > Exit For
> > End If
> > Next LI
> > Icons.ListImages.Remove (PvIndex)
> > Onglets.Tabs.Remove (PvIndex)
> > Set Onglets.ImageList = Icons ....> BUG
> > For LI = 1 To Onglets.Tabs.Count
> > Onglets.Tabs(LI).Image = LI
> > Next LI
> >
> > Onglets = tabstrip
> > Icons = imagelist
> >
> > Merci du temps que vous voudrez bien passer sur ce petit code
> >
> >
> >
> >
>
>
>
Voir du côté des propriétés : TabWidthStyle, TabFixedWidth et Placement.
Si TabWidthStyle est à "TabFixed", alors on peut facilement générer des affichages bizarres.
Christophe
"Bismark Prods" a écrit dans le message de news:eJr0V$
Merci Christophe de ta rapidité.
J'ai un autre problème qui m'arrivais pas au début. L'image sur le tab du tabstrip se chevauche avec le texte ! D'ou cela peut venir ? t'a une idée
?
Merci
Je peux t'envoyer un printscreen si tu veux te représenter ?
"Christophe QUEVAL" a écrit dans le message de news:% > Bonjour, > > Chez moi cela fonctionne correctement (voir source joint). > > Cordialement, > > Christophe > > "Bismark Prods" a écrit dans le message de > news: > > Bonjour tout le monde, > > > > Que de problèmes... lol > > > > Voila un code qui bug pourriez m'expliquer l'erreur ? > > > > Dim LI As Integer > > Dim PvIndex As Integer > > Set Onglets.ImageList = Nothing > > > > For LI = 1 To Onglets.Tabs.Count > > If Onglets.Tabs(LI).Key = frm.Name Then > > PvIndex = LI > > Exit For > > End If > > Next LI > > Icons.ListImages.Remove (PvIndex) > > Onglets.Tabs.Remove (PvIndex) > > Set Onglets.ImageList = Icons ....> BUG > > For LI = 1 To Onglets.Tabs.Count > > Onglets.Tabs(LI).Image = LI > > Next LI > > > > Onglets = tabstrip > > Icons = imagelist > > > > Merci du temps que vous voudrez bien passer sur ce petit code > > > > > > > > > > >
Bismark Prods
ouais ok c'est gentil c'était effectivement ca ! lol J'ai résolu le problème mais c'est vrai que ca affiche de drole de truc ! A votre connaissance ce controle est-il buggé ?
"Christophe QUEVAL" a écrit dans le message de news:
Voir du côté des propriétés : TabWidthStyle, TabFixedWidth et Placement.
Si TabWidthStyle est à "TabFixed", alors on peut facilement générer des affichages bizarres.
Christophe
"Bismark Prods" a écrit dans le message de news:eJr0V$ > Merci Christophe de ta rapidité. > > J'ai un autre problème qui m'arrivais pas au début. L'image sur le tab
du
> tabstrip se chevauche avec le texte ! D'ou cela peut venir ? t'a une
idée
? > > Merci > > Je peux t'envoyer un printscreen si tu veux te représenter ? > > > "Christophe QUEVAL" a écrit dans le message de > news:% > > Bonjour, > > > > Chez moi cela fonctionne correctement (voir source joint). > > > > Cordialement, > > > > Christophe > > > > "Bismark Prods" a écrit dans le message de > > news: > > > Bonjour tout le monde, > > > > > > Que de problèmes... lol > > > > > > Voila un code qui bug pourriez m'expliquer l'erreur ? > > > > > > Dim LI As Integer > > > Dim PvIndex As Integer > > > Set Onglets.ImageList = Nothing > > > > > > For LI = 1 To Onglets.Tabs.Count > > > If Onglets.Tabs(LI).Key = frm.Name Then > > > PvIndex = LI > > > Exit For > > > End If > > > Next LI > > > Icons.ListImages.Remove (PvIndex) > > > Onglets.Tabs.Remove (PvIndex) > > > Set Onglets.ImageList = Icons ....> BUG > > > For LI = 1 To Onglets.Tabs.Count > > > Onglets.Tabs(LI).Image = LI > > > Next LI > > > > > > Onglets = tabstrip > > > Icons = imagelist > > > > > > Merci du temps que vous voudrez bien passer sur ce petit code > > > > > > > > > > > > > > > > > > > >
ouais ok c'est gentil c'était effectivement ca ! lol J'ai résolu le problème
mais c'est vrai que ca affiche de drole de truc ! A votre connaissance ce
controle est-il buggé ?
"Christophe QUEVAL" <queval.c@wanadoo.fr> a écrit dans le message de
news:u3N3qWUaDHA.1128@tk2msftngp13.phx.gbl...
Voir du côté des propriétés : TabWidthStyle, TabFixedWidth et Placement.
Si TabWidthStyle est à "TabFixed", alors on peut facilement générer des
affichages bizarres.
Christophe
"Bismark Prods" <xanaia@urbanet.ch> a écrit dans le message de
news:eJr0V$TaDHA.1832@TK2MSFTNGP10.phx.gbl...
> Merci Christophe de ta rapidité.
>
> J'ai un autre problème qui m'arrivais pas au début. L'image sur le tab
du
> tabstrip se chevauche avec le texte ! D'ou cela peut venir ? t'a une
idée
?
>
> Merci
>
> Je peux t'envoyer un printscreen si tu veux te représenter ?
>
>
> "Christophe QUEVAL" <queval.c@wanadoo.fr> a écrit dans le message de
> news:%23I7cWCTaDHA.2580@TK2MSFTNGP09.phx.gbl...
> > Bonjour,
> >
> > Chez moi cela fonctionne correctement (voir source joint).
> >
> > Cordialement,
> >
> > Christophe
> >
> > "Bismark Prods" <xanaia@urbanet.ch> a écrit dans le message de
> > news:urdNPNSaDHA.1748@TK2MSFTNGP12.phx.gbl...
> > > Bonjour tout le monde,
> > >
> > > Que de problèmes... lol
> > >
> > > Voila un code qui bug pourriez m'expliquer l'erreur ?
> > >
> > > Dim LI As Integer
> > > Dim PvIndex As Integer
> > > Set Onglets.ImageList = Nothing
> > >
> > > For LI = 1 To Onglets.Tabs.Count
> > > If Onglets.Tabs(LI).Key = frm.Name Then
> > > PvIndex = LI
> > > Exit For
> > > End If
> > > Next LI
> > > Icons.ListImages.Remove (PvIndex)
> > > Onglets.Tabs.Remove (PvIndex)
> > > Set Onglets.ImageList = Icons ....> BUG
> > > For LI = 1 To Onglets.Tabs.Count
> > > Onglets.Tabs(LI).Image = LI
> > > Next LI
> > >
> > > Onglets = tabstrip
> > > Icons = imagelist
> > >
> > > Merci du temps que vous voudrez bien passer sur ce petit code
> > >
> > >
> > >
> > >
> >
> >
> >
>
>
ouais ok c'est gentil c'était effectivement ca ! lol J'ai résolu le problème mais c'est vrai que ca affiche de drole de truc ! A votre connaissance ce controle est-il buggé ?
"Christophe QUEVAL" a écrit dans le message de news:
Voir du côté des propriétés : TabWidthStyle, TabFixedWidth et Placement.
Si TabWidthStyle est à "TabFixed", alors on peut facilement générer des affichages bizarres.
Christophe
"Bismark Prods" a écrit dans le message de news:eJr0V$ > Merci Christophe de ta rapidité. > > J'ai un autre problème qui m'arrivais pas au début. L'image sur le tab
du
> tabstrip se chevauche avec le texte ! D'ou cela peut venir ? t'a une
idée
? > > Merci > > Je peux t'envoyer un printscreen si tu veux te représenter ? > > > "Christophe QUEVAL" a écrit dans le message de > news:% > > Bonjour, > > > > Chez moi cela fonctionne correctement (voir source joint). > > > > Cordialement, > > > > Christophe > > > > "Bismark Prods" a écrit dans le message de > > news: > > > Bonjour tout le monde, > > > > > > Que de problèmes... lol > > > > > > Voila un code qui bug pourriez m'expliquer l'erreur ? > > > > > > Dim LI As Integer > > > Dim PvIndex As Integer > > > Set Onglets.ImageList = Nothing > > > > > > For LI = 1 To Onglets.Tabs.Count > > > If Onglets.Tabs(LI).Key = frm.Name Then > > > PvIndex = LI > > > Exit For > > > End If > > > Next LI > > > Icons.ListImages.Remove (PvIndex) > > > Onglets.Tabs.Remove (PvIndex) > > > Set Onglets.ImageList = Icons ....> BUG > > > For LI = 1 To Onglets.Tabs.Count > > > Onglets.Tabs(LI).Image = LI > > > Next LI > > > > > > Onglets = tabstrip > > > Icons = imagelist > > > > > > Merci du temps que vous voudrez bien passer sur ce petit code > > > > > > > > > > > > > > > > > > > >
Christophe QUEVAL
Non, à priori, ce contrôle fonctionne correctement. Je l'utilise sans souci dans mes applications.
Christophe
"Bismark Prods" a écrit dans le message de news:
ouais ok c'est gentil c'était effectivement ca ! lol J'ai résolu le
problème
mais c'est vrai que ca affiche de drole de truc ! A votre connaissance ce controle est-il buggé ?
"Christophe QUEVAL" a écrit dans le message de news: > Voir du côté des propriétés : TabWidthStyle, TabFixedWidth et Placement. > > Si TabWidthStyle est à "TabFixed", alors on peut facilement générer des > affichages bizarres. > > Christophe > > "Bismark Prods" a écrit dans le message de > news:eJr0V$ > > Merci Christophe de ta rapidité. > > > > J'ai un autre problème qui m'arrivais pas au début. L'image sur le tab du > > tabstrip se chevauche avec le texte ! D'ou cela peut venir ? t'a une idée > ? > > > > Merci > > > > Je peux t'envoyer un printscreen si tu veux te représenter ? > > > > > > "Christophe QUEVAL" a écrit dans le message de > > news:% > > > Bonjour, > > > > > > Chez moi cela fonctionne correctement (voir source joint). > > > > > > Cordialement, > > > > > > Christophe > > > > > > "Bismark Prods" a écrit dans le message de > > > news: > > > > Bonjour tout le monde, > > > > > > > > Que de problèmes... lol > > > > > > > > Voila un code qui bug pourriez m'expliquer l'erreur ? > > > > > > > > Dim LI As Integer > > > > Dim PvIndex As Integer > > > > Set Onglets.ImageList = Nothing > > > > > > > > For LI = 1 To Onglets.Tabs.Count > > > > If Onglets.Tabs(LI).Key = frm.Name Then > > > > PvIndex = LI > > > > Exit For > > > > End If > > > > Next LI > > > > Icons.ListImages.Remove (PvIndex) > > > > Onglets.Tabs.Remove (PvIndex) > > > > Set Onglets.ImageList = Icons ....> BUG > > > > For LI = 1 To Onglets.Tabs.Count > > > > Onglets.Tabs(LI).Image = LI > > > > Next LI > > > > > > > > Onglets = tabstrip > > > > Icons = imagelist > > > > > > > > Merci du temps que vous voudrez bien passer sur ce petit code > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > >
Non, à priori, ce contrôle fonctionne correctement. Je l'utilise sans souci
dans mes applications.
Christophe
"Bismark Prods" <xanaia@urbanet.ch> a écrit dans le message de
news:Ox8bAnUaDHA.2580@TK2MSFTNGP09.phx.gbl...
ouais ok c'est gentil c'était effectivement ca ! lol J'ai résolu le
problème
mais c'est vrai que ca affiche de drole de truc ! A votre connaissance ce
controle est-il buggé ?
"Christophe QUEVAL" <queval.c@wanadoo.fr> a écrit dans le message de
news:u3N3qWUaDHA.1128@tk2msftngp13.phx.gbl...
> Voir du côté des propriétés : TabWidthStyle, TabFixedWidth et Placement.
>
> Si TabWidthStyle est à "TabFixed", alors on peut facilement générer des
> affichages bizarres.
>
> Christophe
>
> "Bismark Prods" <xanaia@urbanet.ch> a écrit dans le message de
> news:eJr0V$TaDHA.1832@TK2MSFTNGP10.phx.gbl...
> > Merci Christophe de ta rapidité.
> >
> > J'ai un autre problème qui m'arrivais pas au début. L'image sur le tab
du
> > tabstrip se chevauche avec le texte ! D'ou cela peut venir ? t'a une
idée
> ?
> >
> > Merci
> >
> > Je peux t'envoyer un printscreen si tu veux te représenter ?
> >
> >
> > "Christophe QUEVAL" <queval.c@wanadoo.fr> a écrit dans le message de
> > news:%23I7cWCTaDHA.2580@TK2MSFTNGP09.phx.gbl...
> > > Bonjour,
> > >
> > > Chez moi cela fonctionne correctement (voir source joint).
> > >
> > > Cordialement,
> > >
> > > Christophe
> > >
> > > "Bismark Prods" <xanaia@urbanet.ch> a écrit dans le message de
> > > news:urdNPNSaDHA.1748@TK2MSFTNGP12.phx.gbl...
> > > > Bonjour tout le monde,
> > > >
> > > > Que de problèmes... lol
> > > >
> > > > Voila un code qui bug pourriez m'expliquer l'erreur ?
> > > >
> > > > Dim LI As Integer
> > > > Dim PvIndex As Integer
> > > > Set Onglets.ImageList = Nothing
> > > >
> > > > For LI = 1 To Onglets.Tabs.Count
> > > > If Onglets.Tabs(LI).Key = frm.Name Then
> > > > PvIndex = LI
> > > > Exit For
> > > > End If
> > > > Next LI
> > > > Icons.ListImages.Remove (PvIndex)
> > > > Onglets.Tabs.Remove (PvIndex)
> > > > Set Onglets.ImageList = Icons ....> BUG
> > > > For LI = 1 To Onglets.Tabs.Count
> > > > Onglets.Tabs(LI).Image = LI
> > > > Next LI
> > > >
> > > > Onglets = tabstrip
> > > > Icons = imagelist
> > > >
> > > > Merci du temps que vous voudrez bien passer sur ce petit code
> > > >
> > > >
> > > >
> > > >
> > >
> > >
> > >
> >
> >
>
>
Non, à priori, ce contrôle fonctionne correctement. Je l'utilise sans souci dans mes applications.
Christophe
"Bismark Prods" a écrit dans le message de news:
ouais ok c'est gentil c'était effectivement ca ! lol J'ai résolu le
problème
mais c'est vrai que ca affiche de drole de truc ! A votre connaissance ce controle est-il buggé ?
"Christophe QUEVAL" a écrit dans le message de news: > Voir du côté des propriétés : TabWidthStyle, TabFixedWidth et Placement. > > Si TabWidthStyle est à "TabFixed", alors on peut facilement générer des > affichages bizarres. > > Christophe > > "Bismark Prods" a écrit dans le message de > news:eJr0V$ > > Merci Christophe de ta rapidité. > > > > J'ai un autre problème qui m'arrivais pas au début. L'image sur le tab du > > tabstrip se chevauche avec le texte ! D'ou cela peut venir ? t'a une idée > ? > > > > Merci > > > > Je peux t'envoyer un printscreen si tu veux te représenter ? > > > > > > "Christophe QUEVAL" a écrit dans le message de > > news:% > > > Bonjour, > > > > > > Chez moi cela fonctionne correctement (voir source joint). > > > > > > Cordialement, > > > > > > Christophe > > > > > > "Bismark Prods" a écrit dans le message de > > > news: > > > > Bonjour tout le monde, > > > > > > > > Que de problèmes... lol > > > > > > > > Voila un code qui bug pourriez m'expliquer l'erreur ? > > > > > > > > Dim LI As Integer > > > > Dim PvIndex As Integer > > > > Set Onglets.ImageList = Nothing > > > > > > > > For LI = 1 To Onglets.Tabs.Count > > > > If Onglets.Tabs(LI).Key = frm.Name Then > > > > PvIndex = LI > > > > Exit For > > > > End If > > > > Next LI > > > > Icons.ListImages.Remove (PvIndex) > > > > Onglets.Tabs.Remove (PvIndex) > > > > Set Onglets.ImageList = Icons ....> BUG > > > > For LI = 1 To Onglets.Tabs.Count > > > > Onglets.Tabs(LI).Image = LI > > > > Next LI > > > > > > > > Onglets = tabstrip > > > > Icons = imagelist > > > > > > > > Merci du temps que vous voudrez bien passer sur ce petit code > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > >
Yves Boyer
Christophe,
<Chez moi cela fonctionne correctement (voir source joint).>
J'ai donc chargé Test.zip. Puis ouvert avec Winzip qui m'a donné les 4 fichiers Form1.frm + sa forme binaire Projet1.vbp et Projet1.vbw Impossible d'ouvrir Projet1 dans VB5 qui m'annonce : 'Retained' est une clé incorrecte. Le fichier '...Projet1.vbp' ne peut être chargé.
Que se passe-t-il ? Comment l'ouvrir ?
Yves Boyer
Christophe,
<Chez moi cela fonctionne correctement (voir source joint).>
J'ai donc chargé Test.zip.
Puis ouvert avec Winzip qui m'a donné les 4 fichiers
Form1.frm + sa forme binaire
Projet1.vbp et Projet1.vbw
Impossible d'ouvrir Projet1 dans VB5 qui m'annonce :
'Retained' est une clé incorrecte. Le fichier '...Projet1.vbp' ne peut être
chargé.
<Chez moi cela fonctionne correctement (voir source joint).>
J'ai donc chargé Test.zip. Puis ouvert avec Winzip qui m'a donné les 4 fichiers Form1.frm + sa forme binaire Projet1.vbp et Projet1.vbw Impossible d'ouvrir Projet1 dans VB5 qui m'annonce : 'Retained' est une clé incorrecte. Le fichier '...Projet1.vbp' ne peut être chargé.
Que se passe-t-il ? Comment l'ouvrir ?
Yves Boyer
Bismark Prods
ouais parce qu'on bosse avec vb6 ! et qu'il insère des clés speciale !
lol
"Yves Boyer" a écrit dans le message de news:
Christophe,
<Chez moi cela fonctionne correctement (voir source joint).>
J'ai donc chargé Test.zip. Puis ouvert avec Winzip qui m'a donné les 4 fichiers Form1.frm + sa forme binaire Projet1.vbp et Projet1.vbw Impossible d'ouvrir Projet1 dans VB5 qui m'annonce : 'Retained' est une clé incorrecte. Le fichier '...Projet1.vbp' ne peut
être
chargé.
Que se passe-t-il ? Comment l'ouvrir ?
Yves Boyer
ouais parce qu'on bosse avec vb6 ! et qu'il insère des clés speciale !
lol
"Yves Boyer" <yboyerNOSPAM@tiscali.ch> a écrit dans le message de
news:uaUxRdZaDHA.2304@TK2MSFTNGP10.phx.gbl...
Christophe,
<Chez moi cela fonctionne correctement (voir source joint).>
J'ai donc chargé Test.zip.
Puis ouvert avec Winzip qui m'a donné les 4 fichiers
Form1.frm + sa forme binaire
Projet1.vbp et Projet1.vbw
Impossible d'ouvrir Projet1 dans VB5 qui m'annonce :
'Retained' est une clé incorrecte. Le fichier '...Projet1.vbp' ne peut
ouais parce qu'on bosse avec vb6 ! et qu'il insère des clés speciale !
lol
"Yves Boyer" a écrit dans le message de news:
Christophe,
<Chez moi cela fonctionne correctement (voir source joint).>
J'ai donc chargé Test.zip. Puis ouvert avec Winzip qui m'a donné les 4 fichiers Form1.frm + sa forme binaire Projet1.vbp et Projet1.vbw Impossible d'ouvrir Projet1 dans VB5 qui m'annonce : 'Retained' est une clé incorrecte. Le fichier '...Projet1.vbp' ne peut
être
chargé.
Que se passe-t-il ? Comment l'ouvrir ?
Yves Boyer
Yves Boyer
<ouais parce qu'on bosse avec vb6 >
Alors tu te crois malin d'utiliser VB6 ? Eh bien, avec mon VB5, j'ai réussi à intégrer les frm de Christophe dans mon projet. Et celui-ci marche ! Alors elles servent à quoi vos "clés" de VB6 ?
Yves Boyer
<ouais parce qu'on bosse avec vb6 >
Alors tu te crois malin d'utiliser VB6 ? Eh bien, avec mon VB5, j'ai réussi
à intégrer les frm de Christophe dans mon projet. Et celui-ci marche !
Alors elles servent à quoi vos "clés" de VB6 ?
Alors tu te crois malin d'utiliser VB6 ? Eh bien, avec mon VB5, j'ai réussi à intégrer les frm de Christophe dans mon projet. Et celui-ci marche ! Alors elles servent à quoi vos "clés" de VB6 ?
