Capture d'écran inverse..

Soyez le premier à donner votre avis sur cette source.

Snippet vu 4 047 fois - Téléchargée 38 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

29 mai 2003 à 23:05
Merci, maintenant ça marche

Mathieu M-G
Renfield
Messages postés
17287
Date d'inscription
mercredi 2 janvier 2002
Statut
Modérateur
Dernière intervention
27 septembre 2021
71
29 mai 2003 à 15:05
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

29 mai 2003 à 12:52
Renfield, ça marche pas ton truc pour mettre à l'endroit.

Merci

Mathieu M-G
Renfield
Messages postés
17287
Date d'inscription
mercredi 2 janvier 2002
Statut
Modérateur
Dernière intervention
27 septembre 2021
71
28 mai 2003 à 22:21
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

28 mai 2003 à 19:57
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.