Gambas France BETA


Pas de compte ? Incription

Création d'image

Ce sujet est résolu.

1
AuteurMessages
décapode#1 Posté le 11/12/2013 à 08:33:27
Salut la Classe !!! :cheers:

Un ptit dessin valant mieux qu'un grand discours, voilà ce que je veux faire.



Il est beau mon dessin, hein...?

Et en plus je voudrais savoir où trouver des infos sur Cairo...

Et pis c'est tout !!! :lol!:
Foromus#2 Posté le 11/12/2013 à 08:51:03
Bonjour,

Voilà qui ne me paraît pas vraiment compliqué, ou alors, je n'ai pas bien compris le problème..
Je crée un contrôle panel (en vert couleur de fond), dedans, je crée un contrôle image, et il est rempli, soit directement, soit par le code avec : Image.picture = Picture[Application.Path & "repertoireimages/MonImage.jpg"]. Il suffit de remplacer l'image dans le fichier pour la changer. On peut aussi affecter un numéro, MonImage1, MonImage2, etc, ensuite, il suffira de créer une variable : NumImage, et de l'insérer, genre : Image.picture = Picture[Application.Path & "repertoireimages/MonImage" & NumImage" & ".jpg"] pour afficher l'image de son choix.
décapode#3 Posté le 11/12/2013 à 08:57:19
Salut
Bon je n'est pas été très clair, je m'explique :

Je récupère un png et je veux au final retourner une image de ce même png avec un cadre. ( voir un cadre transparent )
vuott#4 Posté le 11/12/2013 à 12:48:44
Ne cedere ineluctabili possimus...by using .DrawImage() method of Class Image:

1
2
3
4
5
6
7
8
9
10
11
12
PUBLIC SUB Form_Open()

DIM i, e AS Image

i = Image.Load("/path/of/first/image.png")
e = Image.Load("/path/of/second/image.png")

i = i.DrawImage(e, where_you_want, where_you_want)

PictureBox1.Picture = i.Picture

END
« Vita non suavis esse potest, nec Mors amara. »
décapode#5 Posté le 11/12/2013 à 12:51:21
Merci j'essaie çà.
décapode#6 Posté le 12/12/2013 à 07:56:34
Ca marche presque.
Ca à fonctionné puis j'ai eu ce message ;Stretching images is not implemented in gb.image

Puis ça à refonctionné et à nouveau, rebelote.

Un coup j'tvois, un coup j'tvois pas
vuott#7 Posté le 12/12/2013 à 17:09:36
Ne cedere ineluctabili possimusIf you don't need to stretch your image, you can you can omit the parameters related to the size (W, H).

If you want to stretch the immage, you can use .DrawImage() method of Class Paint:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
PUBLIC SUB Form_Open()

DIM i, e AS Image

i = Image.Load("/path/of/first/image.png")
e = Image.Load("/path/of/second/image.png")

WITH Paint
.Begin(i)
.DrawImage(e, 10, 10, 20, 20)
.End
END WITH

PictureBox1.Picture = i.Picture

END

However also in this case, you can omit some parameters.

« Vita non suavis esse potest, nec Mors amara. »
décapode#8 Posté le 12/12/2013 à 17:13:51
Salut
c'est bien ce que j'ai fait

1
imag1 = imag1.DrawImage(imag2, 8, 8, 16, 16)


Mon imag1 est de 32x32

Et là je ne comprend pas je n'ai rien fait depuis sur mon programme, et ça refonctionne.

Sauf que j'ai eu un freeze de LM16... Encore.. :(
vuott#9 Posté le 12/12/2013 à 17:23:13
Ne cedere ineluctabili possimus(Pardonnez-moi si je ne sais pas écrire dans votre belle langue, la sœur de ma langue néo-latine.)


...so that your code-line generated the stretching problem...
Now, try the example with class Paint. :silent:
« Vita non suavis esse potest, nec Mors amara. »
décapode#10 Posté le 12/12/2013 à 17:34:27
Désolé, j'avais mal compris...

(Merci Monsieur Trad Google :lol: )
Je fais comme ça. Là cela fonctionne.

Qui vivra, verra.

Merci pour l'aide, j’attends un peu avant de passer en résolu... avec la chance que j'ai...
décapode#11 Posté le 14/12/2013 à 12:44:13
Salut
J'ai passé plus temps sur mes plantages LM16 que sur mes programmes.
Pour le peu cela semble fonctionner.

Je passe en résolu, on verra bien...

Si tu repasses par là, question:

Tu es d'où ?
vuott#12 Posté le 14/12/2013 à 17:52:30
Ne cedere ineluctabili possimus
Salut
Tu es d'où ?


Je suis un Européen de l'Italie.
« Vita non suavis esse potest, nec Mors amara. »
1