CAPTURE D'ÉCRAN INVERSE..

Signaler
Messages postés
483
Date d'inscription
mardi 10 juillet 2001
Statut
Membre
Dernière intervention
12 juillet 2006
-
Messages postés
558
Date d'inscription
mardi 4 février 2003
Statut
Membre
Dernière intervention
18 février 2006
-
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.

https://codes-sources.commentcamarche.net/source/7260-capture-d-ecran-inverse

Messages postés
558
Date d'inscription
mardi 4 février 2003
Statut
Membre
Dernière intervention
18 février 2006

Merci, maintenant ça marche

Mathieu M-G
Messages postés
17286
Date d'inscription
mercredi 2 janvier 2002
Statut
Modérateur
Dernière intervention
23 décembre 2019
65
mais si !!!

l'origine en y est a modifier egalement, je n'avais pas essayer, mais ca prend 2s a voir......

Private Declare Function GetDC Lib "user32" (ByVal hwnd As Long) As Long
Private Declare Function StretchBlt Lib "gdi32" (ByVal hdc As Long, ByVal x As Long, ByVal y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal hSrcDC As Long, ByVal xSrc As Long, ByVal ySrc As Long, ByVal nSrcWidth As Long, ByVal nSrcHeight As Long, ByVal dwRop As Long) As Long

Private Declare Function GetDesktopWindow Lib "user32" () As Long




Private Sub Form_Load()
Form1.AutoRedraw = True
Form1.ScaleMode = vbPixels
a = GetDesktopWindow()
b = GetDC(a)
StretchBlt Form1.hdc, 0, "0", Screen.Width, Screen.Height, b, 0, 0, Screen.Width, Screen.Height, vbSrcCopy
End Sub
Messages postés
558
Date d'inscription
mardi 4 février 2003
Statut
Membre
Dernière intervention
18 février 2006

Renfield, ça marche pas ton truc pour mettre à l'endroit.

Merci

Mathieu M-G
Messages postés
17286
Date d'inscription
mercredi 2 janvier 2002
Statut
Modérateur
Dernière intervention
23 décembre 2019
65
pour remettre ca dans le bon sens , retire le signe négatif !!!

StretchBlt Form1.hdc, 0, 0, Screen.Width, Screen.Height, b, 0, Screen.Height, Screen.Width, "-"Screen.Height, vbSrcCopy

--------------

autre chose, piquer le code des copains, c'est amusant, pas top pour les garder, mais bon..... StretchBlit ne te sert a rien ici , un Blit simple aurait suffit, mais bon, encore faudrait 'il que tu situe une quelconque nuance.....

et venir ici au lieu du forum , c'est vraiment un truc de gangster !! lol
Messages postés
483
Date d'inscription
mardi 10 juillet 2001
Statut
Membre
Dernière intervention
12 juillet 2006

a vraiment des incultes sur terre !!!!!!!!!!!!!!!!
Ler source sont faite pour montrer ce qu'on sait faire (lol) ou faire part d'intéréssante chose aux autres ! MAIS PAS DE POSER UNE QUESTION YA LE FORUM POUR CA !!!!
ABE César
A+