Dessiner sur l'écran

Soyez le premier à donner votre avis sur cette source.

Snippet vu 4 707 fois - Téléchargée 44 fois

Commenter

Contenu du snippet

Cette routine permet de copier une picture box sur l'écran ou sur un programme. Elle dessine sur tous les programmes.
Attention: Le bouton démarrer et la barre des tâches s'auto rafraichissent souvent donc les images que vous y copirez ne resteront pas en place. Cela ne fonctionne pas non plus lorsque le programme est minimisé.

Ti£oi$

Source / Exemple : 


'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

A voir également

Ajouter un commentaire Commentaires
DarkBoss Messages postés 154 Date d'inscription samedi 3 août 2002 Statut Membre Dernière intervention 12 décembre 2008
29 déc. 2002 à 16:20
tu fai chier ca ne marche pas
gg00xiv Messages postés 656 Date d'inscription mercredi 22 août 2001 Statut Membre Dernière intervention 11 mars 2005 13
16 août 2002 à 13:00
la fonction API GetDesktopWindow() renvoi le HWND du bureau , dans ton exemple cela t'economiserait un appel.
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)