Sauvegarde d'une Image zoomée dans un fichier

Question

Bonjour,


Je souhaite agrandir une image à la taille de mon écran et sauvegarder cette image agrandie dans un fichier.
J'utilise pour cela, le code ci-dessous qui zoom parfaitement mon image à la taille voulue.

Ce que je n'arrive pas à faire c'est la sauvegarde l'image zoomée dans un fichier

Par avance merci pour votre aide.


Image1.Picture = LoadPicture(FNAMEIN)Call OnZoom                            ?  <--- Onsauvegarde sur le fichier FNAMEOUT'-------------------------------------------------------------------------------------' On zoom                                                                            ''-------------------------------------------------------------------------------------Sub OnZoom()Picture2.Visible = FalseIwidth = Screen.WidthImage1.Width = IwidthImage1.Height = Proportion((Iwidth), FNAMEIN)J1 = (Me.Width - Image1.Width) / 2J2 = (Me.Height - Image1.Height) / 2Image1.Move J1, J2Picture4.Move 0, 0, Screen.Width, Screen.HeightSet Picture4.Picture = Image1.PictureEnd Sub'-----------------------------------------------------------------------------------'' Calcul du coefficient d'ajustement de la Hauteur                                  ''-----------------------------------------------------------------------------------'Function Proportion(Parm1 As Integer, FNAME As String)Static J1, J2 As LongIf J1 = 0 Then    J1 = LoadPicture(FNAME).Width    J2 = LoadPicture(FNAME).HeightEnd IfProportion = Parm1 * (J2 / J1)End Function

JeuDuTaquin · Answer

Salut CPapy,

Moi, je veux faire le contraire... avec une sauvegarde d'un miniature d'image.

On peut sûrement trouver une API GDI qui modifie la taille d'une image... et qui la sauvegarde.

Mais, dans notre cas, pas besoin de se prendre la tête avec des routines compliquées!

Je te propose donc de faire une capture d'écran de la partie d'images zoomée.

Tu trouvera le fichier BAS et l'appelle de la routine dans le menu "capture écran"  du jeu "Taquin", posté dernièrement.

Sinon, il te faudra utiliser des routines graphiques si tu veux créer ces zooms en mode caché.

Mais, je pense qu'il y a plus simple, comme un savepicture en mode resize ou une picture rempile avec une image agrandie.

Je regarde pour mon cas, et je pourrai te confirmer la faisabilité de la chose sur un conteneur caché hors écran.... car le VB5 ou 6 pause parfois des problèmes de rafraichissement en mode silencieux!

JeuDuTaquin · Answer

Salut,

Je t'ai mis en ligne un exemple simple dans "API", à base de la fonction Paintpicture.

Il y a surement mieux et plus fiable, mais peut-être plus compliqué!

JeuDuTaquin · Answer

[sources déplacée dans "truques et Astuces"]

Sauvegarde d'une Image zoomée dans un fichier

3 réponses

Votre réponse

Discussions similaires