Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Développement Développement Visual Basic Syntaxe de PaintPicture

Syntaxe de PaintPicture

3 réponses
Avatar
JyM
Bonjour

J'essaye d'étirer une image pour remplir une Form.
Apparemment, il faut charger l'image , puis la redimensionner avec
PaintPicture ( ).
Malheureusement, ça marche pas pour le moment.

Où trouver un bout de code avec les bonnes syntaxes ???
Merci
Signaler un problème avec ce contenu

3 réponses

Supprimer
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
Avatar
ng
Salut,

Peut on voir ton code qui ne fonctionne pas ?
As-tu bien tes picturebox en Autoredraw = True ?

--
Nicolas G.
FAQ VB : http://faq.vb.free.fr
API Guide : http://www.allapi.net
Google Groups : http://groups.google.fr/
MZ-Tools : http://www.mztools.com/

JyM wrote:
Bonjour

J'essaye d'étirer une image pour remplir une Form.
Apparemment, il faut charger l'image , puis la redimensionner avec
PaintPicture ( ).
Malheureusement, ça marche pas pour le moment.

Où trouver un bout de code avec les bonnes syntaxes ???
Merci


Avatar
JyM
Merci pour ta réponse.
Oui, Autoredraw = true

Le bout de code:

Form3.Picture = LoadPicture(chempic$)
Form3.PaintPicture Form3.Picture, 0, hy, Form3.Width, Form3.Height - hy

L'image s'incrit dans le coin gauche de la fenetre, dans sa dimension
originelle.
Comment faire ??

Merci



"ng" a écrit dans le message de news:
#nnDF$
Salut,

Peut on voir ton code qui ne fonctionne pas ?
As-tu bien tes picturebox en Autoredraw = True ?

--
Nicolas G.
FAQ VB : http://faq.vb.free.fr
API Guide : http://www.allapi.net
Google Groups : http://groups.google.fr/
MZ-Tools : http://www.mztools.com/

JyM wrote:
> Bonjour
>
> J'essaye d'étirer une image pour remplir une Form.
> Apparemment, il faut charger l'image , puis la redimensionner avec
> PaintPicture ( ).
> Malheureusement, ça marche pas pour le moment.
>
> Où trouver un bout de code avec les bonnes syntaxes ???
> Merci




Avatar
Zoury
Salut!

qu'est-ce que hy ?

essai ceci :
'***
Option Explicit

Private Sub Form_Load()
Me.AutoRedraw = True
Set Me.Picture = LoadPicture(chempic$)
End Sub

Private Sub Form_Resize()
Call Me.PaintPicture(Me.Picture, 0, 0, Me.ScaleWidth, Me.ScaleHeight)
End Sub
'***

--
Cordialement
Yanick
MVP pour Visual Basic
"JyM" a écrit dans le message de
news:cufj13$gmt$
Merci pour ta réponse.
Oui, Autoredraw = true

Le bout de code:

Form3.Picture = LoadPicture(chempic$)
Form3.PaintPicture Form3.Picture, 0, hy, Form3.Width, Form3.Height - hy

L'image s'incrit dans le coin gauche de la fenetre, dans sa dimension
originelle.
Comment faire ??

Merci



"ng" a écrit dans le message de news:
#nnDF$
> Salut,
>
> Peut on voir ton code qui ne fonctionne pas ?
> As-tu bien tes picturebox en Autoredraw = True ?
>
> --
> Nicolas G.
> FAQ VB : http://faq.vb.free.fr
> API Guide : http://www.allapi.net
> Google Groups : http://groups.google.fr/
> MZ-Tools : http://www.mztools.com/
>
> JyM wrote:
> > Bonjour
> >
> > J'essaye d'étirer une image pour remplir une Form.
> > Apparemment, il faut charger l'image , puis la redimensionner avec
> > PaintPicture ( ).
> > Malheureusement, ça marche pas pour le moment.
> >
> > Où trouver un bout de code avec les bonnes syntaxes ???
> > Merci
>
>