Je veux associer un imagelist =E0 un toolbar, quand je lance=20
l'appli les icones des boutons n'apparaissent pas, voici=20
mon code :
'affichage des boutons
tbToolBar.ImageList =3D ImlToolbarIcons
Dim I As Long
If Me Is Nothing Then
For I =3D 1 To 13
tbToolBar.Buttons(I).Value =3D tbrUnpressed
tbToolBar.Buttons(I).Enabled =3D False
Next
End If
Pouvez-vous me dire ou est l'erreur
Merci d'avance 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
Pascal B.
Bonjour Jean-Claude,
Il faut utiliser la propriété Image du bouton pour lui attribuer une image.
'Exemple: For I = 1 To tbToolBar.Buttons.Count tbToolBar.Buttons(I).Image = I Next
Mais tu peux associer des images au ToolBar en Design Time (double-clic sur Custom dans la liste des propriétés du control)
Cela dit, à quoi sert "If Me is Nothing Then ..." ???????????
Pascal B.
"Jean claude" wrote in message news:0e5e01c4995c$f0c30490$ Bonjoure à tous
Je veux associer un imagelist à un toolbar, quand je lance l'appli les icones des boutons n'apparaissent pas, voici mon code : 'affichage des boutons tbToolBar.ImageList = ImlToolbarIcons Dim I As Long If Me Is Nothing Then For I = 1 To 13 tbToolBar.Buttons(I).Value = tbrUnpressed tbToolBar.Buttons(I).Enabled = False Next End If
Pouvez-vous me dire ou est l'erreur Merci d'avance pour vos réponses Cordialement Jean claude
Bonjour Jean-Claude,
Il faut utiliser la propriété Image du bouton pour lui attribuer une image.
'Exemple:
For I = 1 To tbToolBar.Buttons.Count
tbToolBar.Buttons(I).Image = I
Next
Mais tu peux associer des images au ToolBar en Design Time (double-clic sur Custom dans la liste des propriétés du control)
Cela dit, à quoi sert "If Me is Nothing Then ..." ???????????
Pascal B.
"Jean claude" <jean-claude.mansion@wanadoo.fr> wrote in message news:0e5e01c4995c$f0c30490$a301280a@phx.gbl...
Bonjoure à tous
Je veux associer un imagelist à un toolbar, quand je lance
l'appli les icones des boutons n'apparaissent pas, voici
mon code :
'affichage des boutons
tbToolBar.ImageList = ImlToolbarIcons
Dim I As Long
If Me Is Nothing Then
For I = 1 To 13
tbToolBar.Buttons(I).Value = tbrUnpressed
tbToolBar.Buttons(I).Enabled = False
Next
End If
Pouvez-vous me dire ou est l'erreur
Merci d'avance pour vos réponses
Cordialement
Jean claude
Il faut utiliser la propriété Image du bouton pour lui attribuer une image.
'Exemple: For I = 1 To tbToolBar.Buttons.Count tbToolBar.Buttons(I).Image = I Next
Mais tu peux associer des images au ToolBar en Design Time (double-clic sur Custom dans la liste des propriétés du control)
Cela dit, à quoi sert "If Me is Nothing Then ..." ???????????
Pascal B.
"Jean claude" wrote in message news:0e5e01c4995c$f0c30490$ Bonjoure à tous
Je veux associer un imagelist à un toolbar, quand je lance l'appli les icones des boutons n'apparaissent pas, voici mon code : 'affichage des boutons tbToolBar.ImageList = ImlToolbarIcons Dim I As Long If Me Is Nothing Then For I = 1 To 13 tbToolBar.Buttons(I).Value = tbrUnpressed tbToolBar.Buttons(I).Enabled = False Next End If
Pouvez-vous me dire ou est l'erreur Merci d'avance pour vos réponses Cordialement Jean claude
Jean claude
Salut Pascal
Merci pour la réponse, maintenant c'est OK
Cordialement jean claude
-----Message d'origine----- Bonjour Jean-Claude,
Il faut utiliser la propriété Image du bouton pour lui
attribuer une image.
'Exemple: For I = 1 To tbToolBar.Buttons.Count tbToolBar.Buttons(I).Image = I Next
Mais tu peux associer des images au ToolBar en Design
Time (double-clic sur Custom dans la liste des propriétés du control)
Cela dit, à quoi sert "If Me is Nothing
Then ..." ???????????
Pascal B.
"Jean claude" wrote in
message news:0e5e01c4995c$f0c30490$
Bonjoure à tous
Je veux associer un imagelist à un toolbar, quand je lance l'appli les icones des boutons n'apparaissent pas, voici mon code : 'affichage des boutons tbToolBar.ImageList = ImlToolbarIcons Dim I As Long If Me Is Nothing Then For I = 1 To 13 tbToolBar.Buttons(I).Value = tbrUnpressed tbToolBar.Buttons(I).Enabled = False Next End If
Pouvez-vous me dire ou est l'erreur Merci d'avance pour vos réponses Cordialement Jean claude
.
Salut Pascal
Merci pour la réponse, maintenant c'est OK
Cordialement
jean claude
-----Message d'origine-----
Bonjour Jean-Claude,
Il faut utiliser la propriété Image du bouton pour lui
attribuer une image.
'Exemple:
For I = 1 To tbToolBar.Buttons.Count
tbToolBar.Buttons(I).Image = I
Next
Mais tu peux associer des images au ToolBar en Design
Time (double-clic sur Custom dans la liste des propriétés
du control)
Cela dit, à quoi sert "If Me is Nothing
Then ..." ???????????
Pascal B.
"Jean claude" <jean-claude.mansion@wanadoo.fr> wrote in
Je veux associer un imagelist à un toolbar, quand je lance
l'appli les icones des boutons n'apparaissent pas, voici
mon code :
'affichage des boutons
tbToolBar.ImageList = ImlToolbarIcons
Dim I As Long
If Me Is Nothing Then
For I = 1 To 13
tbToolBar.Buttons(I).Value = tbrUnpressed
tbToolBar.Buttons(I).Enabled = False
Next
End If
Pouvez-vous me dire ou est l'erreur
Merci d'avance pour vos réponses
Cordialement
Jean claude
Il faut utiliser la propriété Image du bouton pour lui
attribuer une image.
'Exemple: For I = 1 To tbToolBar.Buttons.Count tbToolBar.Buttons(I).Image = I Next
Mais tu peux associer des images au ToolBar en Design
Time (double-clic sur Custom dans la liste des propriétés du control)
Cela dit, à quoi sert "If Me is Nothing
Then ..." ???????????
Pascal B.
"Jean claude" wrote in
message news:0e5e01c4995c$f0c30490$
Bonjoure à tous
Je veux associer un imagelist à un toolbar, quand je lance l'appli les icones des boutons n'apparaissent pas, voici mon code : 'affichage des boutons tbToolBar.ImageList = ImlToolbarIcons Dim I As Long If Me Is Nothing Then For I = 1 To 13 tbToolBar.Buttons(I).Value = tbrUnpressed tbToolBar.Buttons(I).Enabled = False Next End If
Pouvez-vous me dire ou est l'erreur Merci d'avance pour vos réponses Cordialement Jean claude
