Capture d'écran inverse..

Soyez le premier à donner votre avis sur cette source.

Snippet vu 3 750 fois - Téléchargée 36 fois

Contenu du snippet

Capture d'écran inverse, mais j'aimerais la rendre droite!
merci

Source / Exemple :


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, _
                 Screen.Height, Screen.Width, -Screen.Height, vbSrcCopy
End Sub

A voir également

Ajouter un commentaire

Commentaires

mathieumg
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
Renfield
Messages postés
17280
Date d'inscription
mercredi 2 janvier 2002
Statut
Modérateur
Dernière intervention
21 juillet 2019
58 -
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
mathieumg
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
Renfield
Messages postés
17280
Date d'inscription
mercredi 2 janvier 2002
Statut
Modérateur
Dernière intervention
21 juillet 2019
58 -
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
Cyberdevil
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+

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.