Discussion :

[Tofalu]

Bonjour je suis sous VBA Access

Je désire récupérer un imprim écran et le stocker dans un fichier bitmap.

J'arrive à envoyer la capture vers le presse papier.

A l'aide de l'api GetClipboardData, je récupere le handle. Mais à partir de là, pas moyen de stocker l'image.

Si une bonne ame charitable avait une idée

[mat.M]

Voilà j'ai trouvé ça dans le MSDN

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
HDC hdc; 
HDC hdcMem; 
RECT rc; 
//.....

        hdcMem = CreateCompatibleDC(hdc); 
                    if (hdcMem != NULL) 
                    { 
                        if (OpenClipboard(hwnd)) 
                        { 
                            hbm = (HBITMAP) 
                               GetClipboardData(CF_BITMAP); 
                            SelectObject(hdcMem, hbm); 
                            GetClientRect(hwnd, &rc); 
 
                            BitBlt(hdc, 0, 0, rc.right, rc.bottom, 
                                hdcMem, 0, 0, SRCCOPY); 
                            CloseClipboard(); 
                        } 
                        DeleteDC(hdcMem); 
                    }

C'est en C mais facilement transposable à VB ; il faut utiliser l'API Viewer.
Les PictureBox présentent des HDC et il est possible de faire un "BitBlt" dessus

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
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
Public Declare Function CreateCompatibleDC Lib "gdi32" Alias "CreateCompatibleDC" (ByVal hdc As Long) As Long

Public Declare Function OpenClipboard Lib "user32" Alias "OpenClipboard" (ByVal hwnd As Long) As Long

Public Declare Function GetClipboardData Lib "user32" Alias "GetClipboardDataA" (ByVal wFormat As Long) As Long

Public Declare Function SelectObject Lib "gdi32" Alias "SelectObject" (ByVal hdc As Long, ByVal hObject As Long) As Long

Public Declare Function GetClientRect Lib "user32" Alias "GetClientRect" (ByVal hwnd As Long, lpRect As RECT) As Long


Public Declare Function BitBlt Lib "gdi32" Alias "BitBlt" (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

Public Declare Function CloseClipboard Lib "user32" Alias "CloseClipboard" () As Long

Public Declare Function DeleteDC Lib "gdi32" Alias "DeleteDC" (ByVal hdc 

As Long) As Long
Public Const CF_BITMAP = 2

Public Type RECT
        Left As Long
        Top As Long
        Right As Long
        Bottom As Long
End Type

'...................
Dim hdc As Long
Dim hdcMem As Long
Dim hbm As Long  'HBitmap
Dim rc As RECT 


 hdcMem = CreateCompatibleDC(hdc)
If hdcMem<>0 Then  
   if OpenClipboard Me.Hwnd Then
                         
hbm=GetClipboardData CF_BITMAP 
                            SelectObject hdcMem, hbm 
                            GetClientRect Me.Hwnd,rc 
 
                            BitBlt hdc, 0, 0, rc.right, rc.bottom, 
                                hdcMem, 0, 0, SRCCOPY 
                            CloseClipboard 
                        End If 
                        DeleteDC hdcMem 
End If

[Tofalu]

Enfait ça c'est le bout de code que j'ai déja. Mais soucis... sous VBA :

Pas de picturebox, encore moins de HDC et pire les controles ne fournissent pas leur handle

Le souci est en fait bel et bien au niveau de la sauvegarde

[mat.M]

Pas de PictureBox ?
Mais sous Access , Word il ya ça non ?
Sinon il existe aussi des méthodes AUTOMATION il ya l'interface IPicture

Une autre solution c'est de sauvegarder ce qu'il ya dans le presse-papier en image BMP et de la recharger dans le formulaire Access par exemple qui contient une PictureBox

[Tofalu]

En fait je suis sous Access

Pas de PictureBox ?

Non, ce ne sont pas les mêmes objets qu'en VB

Sinon il existe aussi des méthodes AUTOMATION il ya l'interface IPicture

Au début, je m'étais tourner vers cette solution et notamment IPictDisp que je peut sauvegarder. Seul hic, impossible d'instancier un nouvel objet IpictDisp ni StdPicture valide pour pouvoir y rediriger la copie.

Une autre solution c'est de sauvegarder ce qu'il ya dans le presse-papier en image BMP et de la recharger dans le formulaire Access par exemple qui contient une PictureBox

Le clipboard n'est pas disponible non plus

[mat.M]

je crois que la seule solution c'est de développer un Active X avec Vb ou faire une dll en C

[Aurelien.Regat-Barrel]

Mais le code de mat.M tu peux l'utiliser ? C'est du Win32, rien de spécifique à VB(A) si ce n'est la syntaxe.
Normalement il te reste juste à l'enregistrer dans un fichier:
http://www.vb-helper.com/howto_memory_bitmap_save.html

[Tofalu]

Merci aurélien. C'est tout juste ce lien qui me manquait