Comment puis-je copier le Bureau dans mon Formulaire ?
Mettez ce code dans un Module :
Source / Exemple :
Declare Function BitBlt Lib "gdi32" (ByVal hDestDC As Integer, ByVal x As Integer, ByVal y As Integer, ByVal nWidth As Integer, ByVal nHeight As Integer, ByVal hSrcDC As Integer, ByVal xSrc As Integer, ByVal ySrc As Integer, ByVal dwRop As Long) As Integer
Declare Function GetDesktopWindow Lib "user32" () As Long
Declare Function GetDC Lib "user32" (ByVal hwnd As Long) As Long
Public Const SRCCOPY = &HCC0020
Public Const SRCAND = &H8800C6
Public Const SRCINVERT = &H660046
' Créez un Formulaire (Form1) et configurez-le comme ceci :
' AutoRedraw => True
' BorderStyle => 0 - None
' WindowState => 2 - Maximized
' Puis mettez ce code dans votre Formulaire dans le Form_Load par exemple :
Private Sub Form_Load()
Dim BureauhWnd As Long
Dim BureauDC As Long
BureauhWnd& = GetDesktopWindow()
BureauDC& = GetDC(BureauhWnd&)
BitBlt Form1.hDC, 0&, 0&, Screen.Width, Screen.Height, BureauDC&, 0&, 0&, SRCCOPY
End Sub
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.