bonjour, j'ai grace à Laurent, résolu mon problème sur les images. Je remets
ci dessous sa réponse :
For I = 1 To 50
Feuil1.OLEObjects("Image" & I).Object.Picture =
LoadPicture("C:\toto.jpg")
Next I
qui permet de charger une image sur les 50 images : Image1 à Image50.
Je déplore ici l'absence du regroupement de controle de VB6 qui permet
d'avoir Image(i).
Je voudrai maintenant faire une action lorsque je clique sur une image. Par
exemple, donner un message "vous avez cliqué sur l'image n° i". Comment
faire ? Doit-on écrire ce qui suit pour les 50 images ?
Private Sub Image1_Click()
Msgbox "vous avez cliqué sur l'image n° 1"
End Sub
Ou peut-on trouver un code général qui récupère le numero de l'image en
fonction de l'image cliquée ?
Merci.
Olivier
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
Dude
N'ayant qu'une partie de ton code, je n'ai pas réellement pu le tester. Cependant essaie peut-être avec le code suivant :
Sub test() ' a faire tourner à chaque insertion d'image '
For Each image In Feuil1.OLEObjects image.OnAction = "'message """ & image.ZOrderPosition & """'" Next End Sub
Sub message(ByVal i As Integer) MsgBox "vous avez cliqué sur l'image n°" & i End Sub
"Olivier" wrote in message news:421e1545$0$312$
bonjour, j'ai grace à Laurent, résolu mon problème sur les images. Je remets ci dessous sa réponse : For I = 1 To 50 Feuil1.OLEObjects("Image" & I).Object.Picture > LoadPicture("C:toto.jpg") Next I qui permet de charger une image sur les 50 images : Image1 à Image50. Je déplore ici l'absence du regroupement de controle de VB6 qui permet d'avoir Image(i). Je voudrai maintenant faire une action lorsque je clique sur une image. Par exemple, donner un message "vous avez cliqué sur l'image n° i". Comment faire ? Doit-on écrire ce qui suit pour les 50 images ? Private Sub Image1_Click() Msgbox "vous avez cliqué sur l'image n° 1" End Sub Ou peut-on trouver un code général qui récupère le numero de l'image en fonction de l'image cliquée ? Merci. Olivier
N'ayant qu'une partie de ton code, je n'ai pas réellement pu le tester.
Cependant essaie peut-être avec le code suivant :
Sub test()
' a faire tourner à chaque insertion d'image
'
For Each image In Feuil1.OLEObjects
image.OnAction = "'message """ & image.ZOrderPosition & """'"
Next
End Sub
Sub message(ByVal i As Integer)
MsgBox "vous avez cliqué sur l'image n°" & i
End Sub
"Olivier" <oolivierr@free.fr> wrote in message
news:421e1545$0$312$7a628cd7@news.club-internet.fr...
bonjour, j'ai grace à Laurent, résolu mon problème sur les images. Je
remets
ci dessous sa réponse :
For I = 1 To 50
Feuil1.OLEObjects("Image" & I).Object.Picture > LoadPicture("C:toto.jpg")
Next I
qui permet de charger une image sur les 50 images : Image1 à Image50.
Je déplore ici l'absence du regroupement de controle de VB6 qui permet
d'avoir Image(i).
Je voudrai maintenant faire une action lorsque je clique sur une image.
Par
exemple, donner un message "vous avez cliqué sur l'image n° i". Comment
faire ? Doit-on écrire ce qui suit pour les 50 images ?
Private Sub Image1_Click()
Msgbox "vous avez cliqué sur l'image n° 1"
End Sub
Ou peut-on trouver un code général qui récupère le numero de l'image en
fonction de l'image cliquée ?
Merci.
Olivier
N'ayant qu'une partie de ton code, je n'ai pas réellement pu le tester. Cependant essaie peut-être avec le code suivant :
Sub test() ' a faire tourner à chaque insertion d'image '
For Each image In Feuil1.OLEObjects image.OnAction = "'message """ & image.ZOrderPosition & """'" Next End Sub
Sub message(ByVal i As Integer) MsgBox "vous avez cliqué sur l'image n°" & i End Sub
"Olivier" wrote in message news:421e1545$0$312$
bonjour, j'ai grace à Laurent, résolu mon problème sur les images. Je remets ci dessous sa réponse : For I = 1 To 50 Feuil1.OLEObjects("Image" & I).Object.Picture > LoadPicture("C:toto.jpg") Next I qui permet de charger une image sur les 50 images : Image1 à Image50. Je déplore ici l'absence du regroupement de controle de VB6 qui permet d'avoir Image(i). Je voudrai maintenant faire une action lorsque je clique sur une image. Par exemple, donner un message "vous avez cliqué sur l'image n° i". Comment faire ? Doit-on écrire ce qui suit pour les 50 images ? Private Sub Image1_Click() Msgbox "vous avez cliqué sur l'image n° 1" End Sub Ou peut-on trouver un code général qui récupère le numero de l'image en fonction de l'image cliquée ? Merci. Olivier
