- 'Declarations API
- Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
- Private Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hWnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As String) As Long
-
- Private Declare Function GetWindowDC Lib "user32" (ByVal hwnd As Long) As Long
- Private Declare Function ReleaseDC Lib "user32" (ByVal hwnd As Long, ByVal hdc As Long) As Long
-
- Private Declare Function BitBlt Lib "gdi32" (ByVal hDestDC 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 dwRop As Long) As Long
-
- 'Votre feuille devra se composer d'un bouton et d'une picture box
-
- 'code a mettre dans la source du bouton de commande
- Private Sub Command1_Click()
- Dim hParent As Long, hHandle As Long, hHDC As Long
-
- 'Trouve le handle
- 'vous pouvez mettre n'importe quel handle
- hParent = FindWindow("Progman", "")
- hHandle = FindWindowEx(hParent, 0, "SHELLDLL_DefView", vbNullString)
-
- 'convertit le handle en HDC (obligatoire, pour que cela fonctionne)
- hHDC = GetWindowDC(hHandle)
-
- 'dessiner le contenu de picture1 sur le bureau
- BitBlt hHDC, 0, 0, Picture1.ScaleWidth / 15, Picture1.ScaleHeight / 15, Picture1.hdc, 0, 0, vbSrcCopy
-
- 'ne surtout pas supprimer cette ligne
- ReleaseDC hHandle, hHDC
- End Sub
'Declarations API
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hWnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As String) As Long
Private Declare Function GetWindowDC Lib "user32" (ByVal hwnd As Long) As Long
Private Declare Function ReleaseDC Lib "user32" (ByVal hwnd As Long, ByVal hdc As Long) As Long
Private Declare Function BitBlt Lib "gdi32" (ByVal hDestDC 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 dwRop As Long) As Long
'Votre feuille devra se composer d'un bouton et d'une picture box
'code a mettre dans la source du bouton de commande
Private Sub Command1_Click()
Dim hParent As Long, hHandle As Long, hHDC As Long
'Trouve le handle
'vous pouvez mettre n'importe quel handle
hParent = FindWindow("Progman", "")
hHandle = FindWindowEx(hParent, 0, "SHELLDLL_DefView", vbNullString)
'convertit le handle en HDC (obligatoire, pour que cela fonctionne)
hHDC = GetWindowDC(hHandle)
'dessiner le contenu de picture1 sur le bureau
BitBlt hHDC, 0, 0, Picture1.ScaleWidth / 15, Picture1.ScaleHeight / 15, Picture1.hdc, 0, 0, vbSrcCopy
'ne surtout pas supprimer cette ligne
ReleaseDC hHandle, hHDC
End Sub