j'ai un toolbar associ=E9 a un ImageList qui comprend 15=20
images ind=E9x=E9es de 1 a 15
quand je lance l'appli j'ai un message d'erreur :"Index=20
hors limite", je ne vois d'ou vient cette erreur, voici le=20
code, pouvez-vous m'aider :
'affichage des boutons
tbToolBarCarto.TabIndex =3D 15
tbToolBarCarto.ImageList =3D ImlToolbarIconsCarto
Dim I As Long
For I =3D 1 To 15
tbToolBarCarto.Buttons(I).Value =3D tbrUnpressed
tbToolBarCarto.Buttons(I).Enabled =3D True
tbToolBarCarto.Buttons(I).Visible =3D True
tbToolBarCarto.Buttons(I).Image =3D I
Next
Merci pour vos r=E9ponses
Cordialement
jean claude
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
[-LT-]
Salut,
tu as 15 boutons dans la toolbar ? ils sont bien indexés à partir de 1 ? ou 0 ?
"Jean claude" a écrit dans le message de news:1d3801c49a34$51d18900$ Bonjour
j'ai un toolbar associé a un ImageList qui comprend 15 images indéxées de 1 a 15
quand je lance l'appli j'ai un message d'erreur :"Index hors limite", je ne vois d'ou vient cette erreur, voici le code, pouvez-vous m'aider :
'affichage des boutons tbToolBarCarto.TabIndex = 15 tbToolBarCarto.ImageList = ImlToolbarIconsCarto
Dim I As Long For I = 1 To 15 tbToolBarCarto.Buttons(I).Value = tbrUnpressed tbToolBarCarto.Buttons(I).Enabled = True tbToolBarCarto.Buttons(I).Visible = True tbToolBarCarto.Buttons(I).Image = I Next
Merci pour vos réponses Cordialement jean claude
Salut,
tu as 15 boutons dans la toolbar ?
ils sont bien indexés à partir de 1 ? ou 0 ?
"Jean claude" <jean-claude.mansion@wanadoo.fr> a écrit dans le message de
news:1d3801c49a34$51d18900$a401280a@phx.gbl...
Bonjour
j'ai un toolbar associé a un ImageList qui comprend 15
images indéxées de 1 a 15
quand je lance l'appli j'ai un message d'erreur :"Index
hors limite", je ne vois d'ou vient cette erreur, voici le
code, pouvez-vous m'aider :
'affichage des boutons
tbToolBarCarto.TabIndex = 15
tbToolBarCarto.ImageList = ImlToolbarIconsCarto
Dim I As Long
For I = 1 To 15
tbToolBarCarto.Buttons(I).Value = tbrUnpressed
tbToolBarCarto.Buttons(I).Enabled = True
tbToolBarCarto.Buttons(I).Visible = True
tbToolBarCarto.Buttons(I).Image = I
Next
tu as 15 boutons dans la toolbar ? ils sont bien indexés à partir de 1 ? ou 0 ?
"Jean claude" a écrit dans le message de news:1d3801c49a34$51d18900$ Bonjour
j'ai un toolbar associé a un ImageList qui comprend 15 images indéxées de 1 a 15
quand je lance l'appli j'ai un message d'erreur :"Index hors limite", je ne vois d'ou vient cette erreur, voici le code, pouvez-vous m'aider :
'affichage des boutons tbToolBarCarto.TabIndex = 15 tbToolBarCarto.ImageList = ImlToolbarIconsCarto
Dim I As Long For I = 1 To 15 tbToolBarCarto.Buttons(I).Value = tbrUnpressed tbToolBarCarto.Buttons(I).Enabled = True tbToolBarCarto.Buttons(I).Visible = True tbToolBarCarto.Buttons(I).Image = I Next
Merci pour vos réponses Cordialement jean claude
jean claude
Salut
Oui j'ai 15 boutons indéxés à partir de 1
Cordialement Jean claude
-----Message d'origine----- Salut,
tu as 15 boutons dans la toolbar ? ils sont bien indexés à partir de 1 ? ou 0 ?
"Jean claude" a écrit
dans le message de
news:1d3801c49a34$51d18900$ Bonjour
j'ai un toolbar associé a un ImageList qui comprend 15 images indéxées de 1 a 15
quand je lance l'appli j'ai un message d'erreur :"Index hors limite", je ne vois d'ou vient cette erreur, voici le code, pouvez-vous m'aider :
'affichage des boutons tbToolBarCarto.TabIndex = 15 tbToolBarCarto.ImageList = ImlToolbarIconsCarto
Dim I As Long For I = 1 To 15 tbToolBarCarto.Buttons(I).Value = tbrUnpressed tbToolBarCarto.Buttons(I).Enabled = True tbToolBarCarto.Buttons(I).Visible = True tbToolBarCarto.Buttons(I).Image = I Next
Merci pour vos réponses Cordialement jean claude
.
Salut
Oui j'ai 15 boutons indéxés à partir de 1
Cordialement
Jean claude
-----Message d'origine-----
Salut,
tu as 15 boutons dans la toolbar ?
ils sont bien indexés à partir de 1 ? ou 0 ?
"Jean claude" <jean-claude.mansion@wanadoo.fr> a écrit
j'ai un toolbar associé a un ImageList qui comprend 15
images indéxées de 1 a 15
quand je lance l'appli j'ai un message d'erreur :"Index
hors limite", je ne vois d'ou vient cette erreur, voici le
code, pouvez-vous m'aider :
'affichage des boutons
tbToolBarCarto.TabIndex = 15
tbToolBarCarto.ImageList = ImlToolbarIconsCarto
Dim I As Long
For I = 1 To 15
tbToolBarCarto.Buttons(I).Value = tbrUnpressed
tbToolBarCarto.Buttons(I).Enabled = True
tbToolBarCarto.Buttons(I).Visible = True
tbToolBarCarto.Buttons(I).Image = I
Next
tu as 15 boutons dans la toolbar ? ils sont bien indexés à partir de 1 ? ou 0 ?
"Jean claude" a écrit
dans le message de
news:1d3801c49a34$51d18900$ Bonjour
j'ai un toolbar associé a un ImageList qui comprend 15 images indéxées de 1 a 15
quand je lance l'appli j'ai un message d'erreur :"Index hors limite", je ne vois d'ou vient cette erreur, voici le code, pouvez-vous m'aider :
'affichage des boutons tbToolBarCarto.TabIndex = 15 tbToolBarCarto.ImageList = ImlToolbarIconsCarto
Dim I As Long For I = 1 To 15 tbToolBarCarto.Buttons(I).Value = tbrUnpressed tbToolBarCarto.Buttons(I).Enabled = True tbToolBarCarto.Buttons(I).Visible = True tbToolBarCarto.Buttons(I).Image = I Next
Merci pour vos réponses Cordialement jean claude
.
[-LT-]
J'ai refait un bout de code avec 4 images et c ok et j'ai une erreur "Index hors limite" si le "I" dépasse le tableau soit des imges de l'ImageList soit du tableau des boutons de la ToolBar.
?
"jean claude" a écrit dans le message de news:265301c49aeb$885d8980$ Salut
Oui j'ai 15 boutons indéxés à partir de 1
Cordialement Jean claude
-----Message d'origine----- Salut,
tu as 15 boutons dans la toolbar ? ils sont bien indexés à partir de 1 ? ou 0 ?
"Jean claude" a écrit
dans le message de
news:1d3801c49a34$51d18900$ Bonjour
j'ai un toolbar associé a un ImageList qui comprend 15 images indéxées de 1 a 15
quand je lance l'appli j'ai un message d'erreur :"Index hors limite", je ne vois d'ou vient cette erreur, voici le code, pouvez-vous m'aider :
'affichage des boutons tbToolBarCarto.TabIndex = 15 tbToolBarCarto.ImageList = ImlToolbarIconsCarto
Dim I As Long For I = 1 To 15 tbToolBarCarto.Buttons(I).Value = tbrUnpressed tbToolBarCarto.Buttons(I).Enabled = True tbToolBarCarto.Buttons(I).Visible = True tbToolBarCarto.Buttons(I).Image = I Next
Merci pour vos réponses Cordialement jean claude
.
J'ai refait un bout de code avec 4 images et c ok et j'ai une erreur "Index
hors limite" si le "I" dépasse le tableau soit des imges de l'ImageList soit
du tableau des boutons de la ToolBar.
?
"jean claude" <jean-claude.mansion@wanadoo.fr> a écrit dans le message de
news:265301c49aeb$885d8980$a501280a@phx.gbl...
Salut
Oui j'ai 15 boutons indéxés à partir de 1
Cordialement
Jean claude
-----Message d'origine-----
Salut,
tu as 15 boutons dans la toolbar ?
ils sont bien indexés à partir de 1 ? ou 0 ?
"Jean claude" <jean-claude.mansion@wanadoo.fr> a écrit
j'ai un toolbar associé a un ImageList qui comprend 15
images indéxées de 1 a 15
quand je lance l'appli j'ai un message d'erreur :"Index
hors limite", je ne vois d'ou vient cette erreur, voici le
code, pouvez-vous m'aider :
'affichage des boutons
tbToolBarCarto.TabIndex = 15
tbToolBarCarto.ImageList = ImlToolbarIconsCarto
Dim I As Long
For I = 1 To 15
tbToolBarCarto.Buttons(I).Value = tbrUnpressed
tbToolBarCarto.Buttons(I).Enabled = True
tbToolBarCarto.Buttons(I).Visible = True
tbToolBarCarto.Buttons(I).Image = I
Next
J'ai refait un bout de code avec 4 images et c ok et j'ai une erreur "Index hors limite" si le "I" dépasse le tableau soit des imges de l'ImageList soit du tableau des boutons de la ToolBar.
?
"jean claude" a écrit dans le message de news:265301c49aeb$885d8980$ Salut
Oui j'ai 15 boutons indéxés à partir de 1
Cordialement Jean claude
-----Message d'origine----- Salut,
tu as 15 boutons dans la toolbar ? ils sont bien indexés à partir de 1 ? ou 0 ?
"Jean claude" a écrit
dans le message de
news:1d3801c49a34$51d18900$ Bonjour
j'ai un toolbar associé a un ImageList qui comprend 15 images indéxées de 1 a 15
quand je lance l'appli j'ai un message d'erreur :"Index hors limite", je ne vois d'ou vient cette erreur, voici le code, pouvez-vous m'aider :
'affichage des boutons tbToolBarCarto.TabIndex = 15 tbToolBarCarto.ImageList = ImlToolbarIconsCarto
Dim I As Long For I = 1 To 15 tbToolBarCarto.Buttons(I).Value = tbrUnpressed tbToolBarCarto.Buttons(I).Enabled = True tbToolBarCarto.Buttons(I).Visible = True tbToolBarCarto.Buttons(I).Image = I Next
Merci pour vos réponses Cordialement jean claude
.
jean claude
Salut
merci pour ta reponse, effectivement je n'avais pas inseré les boutons dans le toolbar. Erreur de débutant
Merci encore et pardonnes mon ignorance Cordialement Jean claude
-----Message d'origine----- J'ai refait un bout de code avec 4 images et c ok et j'ai
une erreur "Index
hors limite" si le "I" dépasse le tableau soit des imges
de l'ImageList soit
du tableau des boutons de la ToolBar.
?
"jean claude" a écrit
dans le message de
news:265301c49aeb$885d8980$ Salut
Oui j'ai 15 boutons indéxés à partir de 1
Cordialement Jean claude
-----Message d'origine----- Salut,
tu as 15 boutons dans la toolbar ? ils sont bien indexés à partir de 1 ? ou 0 ?
"Jean claude" a écrit
dans le message de
news:1d3801c49a34$51d18900$ Bonjour
j'ai un toolbar associé a un ImageList qui comprend 15 images indéxées de 1 a 15
quand je lance l'appli j'ai un message d'erreur :"Index hors limite", je ne vois d'ou vient cette erreur, voici
le
code, pouvez-vous m'aider :
'affichage des boutons tbToolBarCarto.TabIndex = 15 tbToolBarCarto.ImageList = ImlToolbarIconsCarto
Dim I As Long For I = 1 To 15 tbToolBarCarto.Buttons(I).Value = tbrUnpressed tbToolBarCarto.Buttons(I).Enabled = True tbToolBarCarto.Buttons(I).Visible = True tbToolBarCarto.Buttons(I).Image = I Next
Merci pour vos réponses Cordialement jean claude
.
.
Salut
merci pour ta reponse, effectivement je n'avais pas inseré
les boutons dans le toolbar. Erreur de débutant
Merci encore et pardonnes mon ignorance
Cordialement
Jean claude
-----Message d'origine-----
J'ai refait un bout de code avec 4 images et c ok et j'ai
une erreur "Index
hors limite" si le "I" dépasse le tableau soit des imges
de l'ImageList soit
du tableau des boutons de la ToolBar.
?
"jean claude" <jean-claude.mansion@wanadoo.fr> a écrit
j'ai un toolbar associé a un ImageList qui comprend 15
images indéxées de 1 a 15
quand je lance l'appli j'ai un message d'erreur :"Index
hors limite", je ne vois d'ou vient cette erreur, voici
le
code, pouvez-vous m'aider :
'affichage des boutons
tbToolBarCarto.TabIndex = 15
tbToolBarCarto.ImageList = ImlToolbarIconsCarto
Dim I As Long
For I = 1 To 15
tbToolBarCarto.Buttons(I).Value = tbrUnpressed
tbToolBarCarto.Buttons(I).Enabled = True
tbToolBarCarto.Buttons(I).Visible = True
tbToolBarCarto.Buttons(I).Image = I
Next
merci pour ta reponse, effectivement je n'avais pas inseré les boutons dans le toolbar. Erreur de débutant
Merci encore et pardonnes mon ignorance Cordialement Jean claude
-----Message d'origine----- J'ai refait un bout de code avec 4 images et c ok et j'ai
une erreur "Index
hors limite" si le "I" dépasse le tableau soit des imges
de l'ImageList soit
du tableau des boutons de la ToolBar.
?
"jean claude" a écrit
dans le message de
news:265301c49aeb$885d8980$ Salut
Oui j'ai 15 boutons indéxés à partir de 1
Cordialement Jean claude
-----Message d'origine----- Salut,
tu as 15 boutons dans la toolbar ? ils sont bien indexés à partir de 1 ? ou 0 ?
"Jean claude" a écrit
dans le message de
news:1d3801c49a34$51d18900$ Bonjour
j'ai un toolbar associé a un ImageList qui comprend 15 images indéxées de 1 a 15
quand je lance l'appli j'ai un message d'erreur :"Index hors limite", je ne vois d'ou vient cette erreur, voici
le
code, pouvez-vous m'aider :
'affichage des boutons tbToolBarCarto.TabIndex = 15 tbToolBarCarto.ImageList = ImlToolbarIconsCarto
Dim I As Long For I = 1 To 15 tbToolBarCarto.Buttons(I).Value = tbrUnpressed tbToolBarCarto.Buttons(I).Enabled = True tbToolBarCarto.Buttons(I).Visible = True tbToolBarCarto.Buttons(I).Image = I Next
Merci pour vos réponses Cordialement jean claude
.
.
jean claude
Re Salut
j'ai encore deux problèmes :
1- les images des boutons ne s'affichent uniquement quand l'appli est lancée, je voudrais les afficher en mode programmation
2- les images sont en 16x16, je voudrais les mettre en 32x32, et cela n'est pas possible de modifier dans le imageList, dois-je le refaire en indiquant au départ 32x32 ?
Merci pour tes réponses Cordialement Jean claude
-----Message d'origine----- J'ai refait un bout de code avec 4 images et c ok et j'ai
une erreur "Index
hors limite" si le "I" dépasse le tableau soit des imges
de l'ImageList soit
du tableau des boutons de la ToolBar.
?
"jean claude" a écrit
dans le message de
news:265301c49aeb$885d8980$ Salut
Oui j'ai 15 boutons indéxés à partir de 1
Cordialement Jean claude
-----Message d'origine----- Salut,
tu as 15 boutons dans la toolbar ? ils sont bien indexés à partir de 1 ? ou 0 ?
"Jean claude" a écrit
dans le message de
news:1d3801c49a34$51d18900$ Bonjour
j'ai un toolbar associé a un ImageList qui comprend 15 images indéxées de 1 a 15
quand je lance l'appli j'ai un message d'erreur :"Index hors limite", je ne vois d'ou vient cette erreur, voici
le
code, pouvez-vous m'aider :
'affichage des boutons tbToolBarCarto.TabIndex = 15 tbToolBarCarto.ImageList = ImlToolbarIconsCarto
Dim I As Long For I = 1 To 15 tbToolBarCarto.Buttons(I).Value = tbrUnpressed tbToolBarCarto.Buttons(I).Enabled = True tbToolBarCarto.Buttons(I).Visible = True tbToolBarCarto.Buttons(I).Image = I Next
Merci pour vos réponses Cordialement jean claude
.
.
Re Salut
j'ai encore deux problèmes :
1- les images des boutons ne s'affichent uniquement quand
l'appli est lancée, je voudrais les afficher en mode
programmation
2- les images sont en 16x16, je voudrais les mettre en
32x32, et cela n'est pas possible de modifier dans le
imageList, dois-je le refaire en indiquant au départ
32x32 ?
Merci pour tes réponses
Cordialement
Jean claude
-----Message d'origine-----
J'ai refait un bout de code avec 4 images et c ok et j'ai
une erreur "Index
hors limite" si le "I" dépasse le tableau soit des imges
de l'ImageList soit
du tableau des boutons de la ToolBar.
?
"jean claude" <jean-claude.mansion@wanadoo.fr> a écrit
j'ai un toolbar associé a un ImageList qui comprend 15
images indéxées de 1 a 15
quand je lance l'appli j'ai un message d'erreur :"Index
hors limite", je ne vois d'ou vient cette erreur, voici
le
code, pouvez-vous m'aider :
'affichage des boutons
tbToolBarCarto.TabIndex = 15
tbToolBarCarto.ImageList = ImlToolbarIconsCarto
Dim I As Long
For I = 1 To 15
tbToolBarCarto.Buttons(I).Value = tbrUnpressed
tbToolBarCarto.Buttons(I).Enabled = True
tbToolBarCarto.Buttons(I).Visible = True
tbToolBarCarto.Buttons(I).Image = I
Next
1- les images des boutons ne s'affichent uniquement quand l'appli est lancée, je voudrais les afficher en mode programmation
2- les images sont en 16x16, je voudrais les mettre en 32x32, et cela n'est pas possible de modifier dans le imageList, dois-je le refaire en indiquant au départ 32x32 ?
Merci pour tes réponses Cordialement Jean claude
-----Message d'origine----- J'ai refait un bout de code avec 4 images et c ok et j'ai
une erreur "Index
hors limite" si le "I" dépasse le tableau soit des imges
de l'ImageList soit
du tableau des boutons de la ToolBar.
?
"jean claude" a écrit
dans le message de
news:265301c49aeb$885d8980$ Salut
Oui j'ai 15 boutons indéxés à partir de 1
Cordialement Jean claude
-----Message d'origine----- Salut,
tu as 15 boutons dans la toolbar ? ils sont bien indexés à partir de 1 ? ou 0 ?
"Jean claude" a écrit
dans le message de
news:1d3801c49a34$51d18900$ Bonjour
j'ai un toolbar associé a un ImageList qui comprend 15 images indéxées de 1 a 15
quand je lance l'appli j'ai un message d'erreur :"Index hors limite", je ne vois d'ou vient cette erreur, voici
le
code, pouvez-vous m'aider :
'affichage des boutons tbToolBarCarto.TabIndex = 15 tbToolBarCarto.ImageList = ImlToolbarIconsCarto
Dim I As Long For I = 1 To 15 tbToolBarCarto.Buttons(I).Value = tbrUnpressed tbToolBarCarto.Buttons(I).Enabled = True tbToolBarCarto.Buttons(I).Visible = True tbToolBarCarto.Buttons(I).Image = I Next
Merci pour vos réponses Cordialement jean claude
.
.
jean claude
Salut
toujours des problèmes quand je veux personnaliser mon toolbar sur la fenetre propriété, onglet général quand je selectionne sur le combo ImageList, mon IMageList et je fais OK il ne reste pas affiché
sur l'onglet bouton quand je veux indiquer le n° d'image sur le textbox image, c'est impossible ele est grisée
Vois-tu pouquoi ? Cordialement jean claude
-----Message d'origine----- J'ai refait un bout de code avec 4 images et c ok et j'ai
une erreur "Index
hors limite" si le "I" dépasse le tableau soit des imges
de l'ImageList soit
du tableau des boutons de la ToolBar.
?
"jean claude" a écrit
dans le message de
news:265301c49aeb$885d8980$ Salut
Oui j'ai 15 boutons indéxés à partir de 1
Cordialement Jean claude
-----Message d'origine----- Salut,
tu as 15 boutons dans la toolbar ? ils sont bien indexés à partir de 1 ? ou 0 ?
"Jean claude" a écrit
dans le message de
news:1d3801c49a34$51d18900$ Bonjour
j'ai un toolbar associé a un ImageList qui comprend 15 images indéxées de 1 a 15
quand je lance l'appli j'ai un message d'erreur :"Index hors limite", je ne vois d'ou vient cette erreur, voici
le
code, pouvez-vous m'aider :
'affichage des boutons tbToolBarCarto.TabIndex = 15 tbToolBarCarto.ImageList = ImlToolbarIconsCarto
Dim I As Long For I = 1 To 15 tbToolBarCarto.Buttons(I).Value = tbrUnpressed tbToolBarCarto.Buttons(I).Enabled = True tbToolBarCarto.Buttons(I).Visible = True tbToolBarCarto.Buttons(I).Image = I Next
Merci pour vos réponses Cordialement jean claude
.
.
Salut
toujours des problèmes
quand je veux personnaliser mon toolbar
sur la fenetre propriété, onglet général
quand je selectionne sur le combo ImageList, mon IMageList
et je fais OK il ne reste pas affiché
sur l'onglet bouton quand je veux indiquer le n° d'image
sur le textbox image, c'est impossible ele est grisée
Vois-tu pouquoi ?
Cordialement
jean claude
-----Message d'origine-----
J'ai refait un bout de code avec 4 images et c ok et j'ai
une erreur "Index
hors limite" si le "I" dépasse le tableau soit des imges
de l'ImageList soit
du tableau des boutons de la ToolBar.
?
"jean claude" <jean-claude.mansion@wanadoo.fr> a écrit
j'ai un toolbar associé a un ImageList qui comprend 15
images indéxées de 1 a 15
quand je lance l'appli j'ai un message d'erreur :"Index
hors limite", je ne vois d'ou vient cette erreur, voici
le
code, pouvez-vous m'aider :
'affichage des boutons
tbToolBarCarto.TabIndex = 15
tbToolBarCarto.ImageList = ImlToolbarIconsCarto
Dim I As Long
For I = 1 To 15
tbToolBarCarto.Buttons(I).Value = tbrUnpressed
tbToolBarCarto.Buttons(I).Enabled = True
tbToolBarCarto.Buttons(I).Visible = True
tbToolBarCarto.Buttons(I).Image = I
Next
toujours des problèmes quand je veux personnaliser mon toolbar sur la fenetre propriété, onglet général quand je selectionne sur le combo ImageList, mon IMageList et je fais OK il ne reste pas affiché
sur l'onglet bouton quand je veux indiquer le n° d'image sur le textbox image, c'est impossible ele est grisée
Vois-tu pouquoi ? Cordialement jean claude
-----Message d'origine----- J'ai refait un bout de code avec 4 images et c ok et j'ai
une erreur "Index
hors limite" si le "I" dépasse le tableau soit des imges
de l'ImageList soit
du tableau des boutons de la ToolBar.
?
"jean claude" a écrit
dans le message de
news:265301c49aeb$885d8980$ Salut
Oui j'ai 15 boutons indéxés à partir de 1
Cordialement Jean claude
-----Message d'origine----- Salut,
tu as 15 boutons dans la toolbar ? ils sont bien indexés à partir de 1 ? ou 0 ?
"Jean claude" a écrit
dans le message de
news:1d3801c49a34$51d18900$ Bonjour
j'ai un toolbar associé a un ImageList qui comprend 15 images indéxées de 1 a 15
quand je lance l'appli j'ai un message d'erreur :"Index hors limite", je ne vois d'ou vient cette erreur, voici
le
code, pouvez-vous m'aider :
'affichage des boutons tbToolBarCarto.TabIndex = 15 tbToolBarCarto.ImageList = ImlToolbarIconsCarto
Dim I As Long For I = 1 To 15 tbToolBarCarto.Buttons(I).Value = tbrUnpressed tbToolBarCarto.Buttons(I).Enabled = True tbToolBarCarto.Buttons(I).Visible = True tbToolBarCarto.Buttons(I).Image = I Next
