Soyez le premier à donner votre avis sur cette source.
Snippet vu 3 927 fois - Téléchargée 36 fois
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
Mathieu M-G
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
Merci
Mathieu M-G
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
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.