Discussion :

[sjprm]

bonjour,
je voulais savoir si quelqu'un peut m'indiquer comment réaliser une "capture" (type capture d'écran) de la fenêtre active .
Merci et à bientot,
lionel

[ouskel'n'or]

Dans VBA Excel, on fait :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Worksheets("Feuil1").Range("A1:D4").CopyPicture xlScreen, xlBitmap
Worksheets("Feuil1").Paste Destination:=Worksheets("Feuil1").Range("E6")

C'est dans l'aide à "Copie d'écran"

A+

[dbozec]

En utilisant quel outil (VBS, VB6, VB.NET...)

[sjprm]

J'ai oublié de préciser que j'utilise VB6. J'ai vu dans le faq comment réaliser une copie d'écran mais c'est la methode pour faire une copie de fenêtre que je recherche...

[ridan]

salut,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
Private Declare Function BitBlt Lib "gdi32.dll" ( _
     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
 
Private Sub Command1_Click()
    Dim sDC As Long
    With Picture1
        .ScaleMode = vbPixels
        .Visible = False
        Refresh
        .Move ScaleLeft, ScaleTop, ScaleWidth, ScaleHeight
        .AutoRedraw = False
        sDC = .hDC
        .AutoRedraw = True
        BitBlt .hDC, 0, 0, .ScaleWidth, .ScaleHeight, sDC, 0, 0, vbSrcCopy
        SavePicture .Image, "C:\capture.bmp"
    End With
End Sub

[sjprm]

génial, merci !