1. Accueil
  2. Tous les snippets
  3. Snippets Visual Basic / VB.NET
  4. Faire une copie d'écran inversée

Faire une copie d'écran inversée

Soyez le premier à donner votre avis sur cette source.

Snippet vu 2 650 fois - Téléchargée 43 fois

Commenter

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
cs_Kirua
Messages postés
3006
Date d'inscription
dimanche 14 avril 2002
Statut
Membre
Dernière intervention
31 décembre 2008
11 janv. 2003 à 12:27
qq ch contre les belges toi ?? O_o viens y qu'on dialogue !!!! ;)
Technix59
Messages postés
32
Date d'inscription
vendredi 13 décembre 2002
Statut
Membre
Dernière intervention
29 mars 2014
10 janv. 2003 à 14:47
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
Setaou
Messages postés
127
Date d'inscription
mercredi 28 mars 2001
Statut
Membre
Dernière intervention
4 octobre 2004
8 août 2002 à 12:26
ba oui ca peut servir si on veut faire une capture d'écran pas inversée lol
S'inscrire maintenant

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.

Du même auteur (Tilois)