Titre: Capture d'écran.
Description:
Capture la totalité de l'écran et enregistre la capture dans un fichier image au format bmp.
Le code:
Private Sub Ccommand1_Click()
Dim Vr1
Vr1 = EnrgActiveFen("capture ecran.bmp")
End Sub |
Dans le module:
Option Explicit Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long) Public Function EnrgActiveFen(ByVal Fichier As String) As Boolean On Error GoTo SortieErreur 'Test de la présence du fichier If Dir(Fichier) <> "" Then Exit Function 'Pour Capturer La fentêtre Active Call keybd_event(vbKeySnapshot, 0, 0, 0) SavePicture Clipboard.GetData(vbCFBitmap), Fichier EnrgActiveFen = True Exit Function SortieErreur: MsgBox "Erreur dans le Module EnrgActiveFen. Erreur #: " & Err.Number & ", " & Err.Description End Function |