Apercu d'une fenêtre en vb.net
Résolu
cs_lo4
Messages postés
33
Date d'inscription
vendredi 1 février 2002
Statut
Membre
Dernière intervention
7 mai 2007
-
21 sept. 2005 à 14:17
cs_lo4 Messages postés 33 Date d'inscription vendredi 1 février 2002 Statut Membre Dernière intervention 7 mai 2007 - 22 sept. 2005 à 10:27
cs_lo4 Messages postés 33 Date d'inscription vendredi 1 février 2002 Statut Membre Dernière intervention 7 mai 2007 - 22 sept. 2005 à 10:27
A voir également:
- Apercu d'une fenêtre en vb.net
- Vb.net instr ✓ - Forum VB.NET
- Vb.net doevents - Forum Visual Basic
- Vb.net pdf viewer ✓ - Forum VB.NET
- Vb.net substring ✓ - Forum VB.NET
- Vb.net timer ✓ - Forum VB.NET
2 réponses
cs_lo4
Messages postés
33
Date d'inscription
vendredi 1 février 2002
Statut
Membre
Dernière intervention
7 mai 2007
22 sept. 2005 à 10:27
22 sept. 2005 à 10:27
Merci beaucoup pour cette réponse qui m'a été très utile.
En fait, le gestionnaire de tâches n'est qu'une partie de mon programme
qui fera beaucoup plus de choses une fois qu'il sera finitmais
j'essaierai d'y penser à te faire signe une fois qu'il sera terminé .
Voici les lignes de code à mettre dans le projet pour obtenir l'apercu d'une fenêtre connaissant son handle :
Public Structure RECT
Public Left_renommé As Int32
Public Top As Int32
Public Right_renommé As Int32
Public Bottom As Int32
End Structure
<hr size="2" width="100%"> Public Declare Function GetWindowRect Lib "user32" Alias "GetWindowRect" (ByVal hwnd As Int32, ByRef lpRect As RECT) As Int32
<hr size="2" width="100%"> Public Declare Function PrintWindow Lib "user32" (ByVal hwnd As IntPtr, ByVal hDC As IntPtr, ByVal nFlags As UInteger) As IntPtr
<hr size="2" width="100%"> Private Function CaptureWindowPrint(ByVal hWnd As IntPtr, ByVal targetWidth As Integer, ByVal targetHeight As Integer) As Bitmap
Dim memoryImage As Bitmap = New Bitmap(targetWidth, targetHeight)
Dim memoryGraphics As Graphics = Graphics.FromImage(memoryImage)
Dim hDC As IntPtr = memoryGraphics.GetHdc()
PrintWindow(hWnd, hDC, 0)
memoryGraphics.ReleaseHdc()
memoryGraphics.Dispose()
Return memoryImage
End Function
<hr size="2" width="100%"> Private Function CaptureWindowPrint(ByVal hWnd As IntPtr) As Bitmap
Dim r As RECT
GetWindowRect(hWnd, r)
Return CaptureWindowPrint(hWnd, r.Right_renommé - r.Left_renommé, r.Bottom - r.Top)
End Function
Ensuite, il ne reste plus qu'à appeler la fonction CaptureWindowPrint
lo4
En fait, le gestionnaire de tâches n'est qu'une partie de mon programme
qui fera beaucoup plus de choses une fois qu'il sera finitmais
j'essaierai d'y penser à te faire signe une fois qu'il sera terminé .
Voici les lignes de code à mettre dans le projet pour obtenir l'apercu d'une fenêtre connaissant son handle :
Public Structure RECT
Public Left_renommé As Int32
Public Top As Int32
Public Right_renommé As Int32
Public Bottom As Int32
End Structure
<hr size="2" width="100%"> Public Declare Function GetWindowRect Lib "user32" Alias "GetWindowRect" (ByVal hwnd As Int32, ByRef lpRect As RECT) As Int32
<hr size="2" width="100%"> Public Declare Function PrintWindow Lib "user32" (ByVal hwnd As IntPtr, ByVal hDC As IntPtr, ByVal nFlags As UInteger) As IntPtr
<hr size="2" width="100%"> Private Function CaptureWindowPrint(ByVal hWnd As IntPtr, ByVal targetWidth As Integer, ByVal targetHeight As Integer) As Bitmap
Dim memoryImage As Bitmap = New Bitmap(targetWidth, targetHeight)
Dim memoryGraphics As Graphics = Graphics.FromImage(memoryImage)
Dim hDC As IntPtr = memoryGraphics.GetHdc()
PrintWindow(hWnd, hDC, 0)
memoryGraphics.ReleaseHdc()
memoryGraphics.Dispose()
Return memoryImage
End Function
<hr size="2" width="100%"> Private Function CaptureWindowPrint(ByVal hWnd As IntPtr) As Bitmap
Dim r As RECT
GetWindowRect(hWnd, r)
Return CaptureWindowPrint(hWnd, r.Right_renommé - r.Left_renommé, r.Bottom - r.Top)
End Function
Ensuite, il ne reste plus qu'à appeler la fonction CaptureWindowPrint
lo4
nhervagault
Messages postés
6063
Date d'inscription
dimanche 13 avril 2003
Statut
Membre
Dernière intervention
15 juillet 2011
37
21 sept. 2005 à 19:11
21 sept. 2005 à 19:11
Salut
Je penseque c'est possible
Telecharges les demos des rencontres windows form de juin
vas dans Solution2 - 1 - WinForms\winappMessages
Et tu trouveras les fonctions de caputure d'ecran.
Apres tu captures cette fenetre
Amuses toi bien.
Fais signes par MP quand ton programme est finis
Je penseque c'est possible
Telecharges les demos des rencontres windows form de juin
vas dans Solution2 - 1 - WinForms\winappMessages
Et tu trouveras les fonctions de caputure d'ecran.
Apres tu captures cette fenetre
Amuses toi bien.
Fais signes par MP quand ton programme est finis
