Faire une copie d'écran inversée

Soyez le premier à donner votre avis sur cette source.

Snippet vu 2 504 fois - Téléchargée 41 fois

Contenu du snippet

Ce code permet de faire une copie d'écran dans une feuille mais cette copie d'écran est inversée..
Je sais pas à quoi peut bien servir ce code mais bon .. je le met quand meme il pourrat peut être servir à quelqu'un

Ti£oi$

Source / Exemple :


'décarations API
Private Declare Function GetDesktopWindow Lib "user32" () As Long
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 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

Messages postés
3006
Date d'inscription
dimanche 14 avril 2002
Statut
Membre
Dernière intervention
31 décembre 2008

qq ch contre les belges toi ?? O_o viens y qu'on dialogue !!!! ;)
Messages postés
32
Date d'inscription
vendredi 13 décembre 2002
Statut
Membre
Dernière intervention
29 mars 2014

Ca peut servir si tu veux l'imprimer en diapositive et que t'as pas envie de retourner ta diapo pour la mettre dans le projecteur (C'est belge). mdr
Messages postés
127
Date d'inscription
mercredi 28 mars 2001
Statut
Membre
Dernière intervention
4 octobre 2004

ba oui ca peut servir si on veut faire une capture d'écran pas inversée lol

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.