Discussion :

[Ric500]

Bonjour,

Comme dit dans le titre, je souhaite positionner une image sur une autre à un emplacement donné en utilisant GDI+.

J'ai bien cherché mais il existe plusieurs méthodes et je reconnais que GDI ne m'est pas familier.

Les fonctions "DrawImg, DrawBitmap" semblent s'imposer mais je ne sais pas comment les mettre en œuvre.

Les copies d'écran ci-après pour voir le contexte: après affichage d'une carte, j'ai pu afficher un texte libre (en fond vert). Je souhaiterais faire la même chose avec une image prise sur le disque.



Je reste à votre disposition pour tout renseignement, merci.

[User]

Bonjour,

Je tente quelque chose bien que je ne sois pas le mieux placé pour te répondre. :

Si tu as déjà créé un 1er objet oImg1 de la classe clGdiPlus pour dessiner la carte par exemple.

Il me semble qu'il faut ensuite créer un 2e objet oImg2 de la classe clGdiPlus, puis charger l'image dans l'objet à l'aide de la méthode LoadFile(cheminImage) :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Set oImg2 = New clGdiPlus ' création du 2e objet de la classe clGdiPlus
' Set oImg2 = oImg1.ImgNew ' autre possibilité
 
' on charge l'image dans l'objet
oImg2.LoadFile ('c:\Mes Images\Image2.png")

Ensuite, tu utilises la méthode drawImg de ton 1er objet clGdiPlus (oImg1) pour dessiner l'image dans cette objet :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
' on dessine l'image n°2 sur l'image n°1
oImg1.DrawImg oImg2, 100, 100

Enfin, on dessine l'image dans le contrôle :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
' on affiche l'image n°1 dans le contrôle Me.Image1
oImg1.Repaint Me.Image1, False, False

Dans l'ancien module, on aurait fait :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
oImg1.ImageListAdd "image2", "c:\Mes images\image2.png"
oImg1.DrawImage "image2", 100, 100

[Ric500]

Merci User,

Je vais essayer d'implémenter ta solution et je ne doute pas que je devrai revenir vers toi.

Je précise que ce développement, je n'aurais pas pu le mener à bout sans l'expertise d'Arkham46 injoignable pour le moment.

Bon weekend !

Note: une question cependant:
Bien que je me limite volontairement à la surimposition d'une seule image sur la carte, l'opération devrait pouvoir être réitérée plusieurs fois de suite.
Est-qu'un "ImageListAdd " écrase le précédant ou est-il obligatoire de passer d'abord par son effacement de la collection?

[User]

Je précise que ce développement, je n'aurais pas pu le mener à bout sans l'expertise d'Arkham46 injoignable pour le moment.

On est d'accord, c'est précisément de lui dont je voulais parler

[User]

Bonjour,

Note: une question cependant:
Bien que je me limite volontairement à la surimposition d'une seule image sur la carte, l'opération devrait pouvoir être réitérée plusieurs fois de suite.
Est-qu'un "ImageListAdd " écrase le précédant ou est-il obligatoire de passer d'abord par son effacement de la collection?

Tu peux utiliser oImg1.ImageKeep pour enregistrer l'image d'origine avec la carte, et pour revenir à la carte d'origine après avoir superposé ton image, tu peux faire un oImg1.ImageReset :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
'...
 
oImg1.ImageKeep ' enregistre l'image d'origine
 
Set oImg2 = oImg1.ImgNew ' créé l'objet pour la nouvelle image
 
' on charge l'image dans l'objet
oImg2.LoadFile ('c:\Mes Images\Image2.png")
 
on dessine l'image2 sur l'image1
oImg1.DrawImg oImg2, 100, 100
 
' on affiche l'image1 dans le contrôle me.Image1
oImg1.Repaint Me.Image1, False, False
 
oImg1.ImageReset ' on revient à l'image d'origine
 
' etc...

[Ric500]

Merci encore User,

çà commence à payer les efforts:

[User]