Capture d'écran

Question

Bonjour &#224; Tous,

je cherche mon bonheur deouis quelques temps mais je ne trouve pas ce
qu'il me faut...alors je me suis d&#233;cid&#233; &#224; &#233;crire ce petit message.



Je d&#233;sire capturer une partie d'&#233;cran, l'enregistrer en fichier image
(soit jpeg ou bmp) et l'ins&#233;rer dans une picturebox dans une autre
feuille...



J'ai essay&#233; ce code mais je ne sais pas si avec celui ci il est possible de ne s&#233;lectionner qu'une partie de mon &#233;cran :



Private Declare Function GetDC Lib "user32" (ByVal hwnd As Long) As Long

Private Declare Function StretchBlt Lib "gdi32" (ByVal hdc 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 nSrcWidth As Long, ByVal nSrcHeight As Long, ByVal dwRop As Long)
As Long



Private Declare Function GetDesktopWindow Lib "user32" () As Long



Private Sub Command1_Click()

    Dim a As String

    Dim b As String

    Form5.Show

    form5.Picture1.AutoRedraw = True

    Form5.Picture1.ScaleMode = vbPixels

    a = GetDesktopWindow()

    b = GetDC(a)

    StretchBlt Form5.Picture1.hdc, 0, "0", Screen.Width,
Screen.Height, b, 0, 0,        
        Screen.Width, Screen.Height,
vbSrcCopy

End Sub



Merci &#224; tous ceux qui pourront m'aider.

cs_DARKSIDIOUS · Answer

La solution est dans ton code : la fonction StretchBlt te permet de d&#233;finir le rectangle &#224; copier : 
StretchBlt Form5.Picture1.hdc, 0, "0", Screen.Width, Screen.Height, b, XSrc, YSrc, WidthSrc, HeightSrc, vbSrcCopy



Il te suffit donc de remplacer les 4 avant-derniers param&#232;tres pour d&#233;finir le rectangle &#224; copier.


DarK Sidious

Un API Viewer (pour le VB, VB.NET, C, C# et Delphi) : www.ProgOtoP.com/popapi/

cs_allfab · Answer

Oui c'est justement l&#224; mon probl&#232;me, je ne sais pas trop par quoi les remplacer pour obtenir la fen&#234;tre que je veux capturer....



Merci.

cs_DARKSIDIOUS · Answer

Et bien r&#233;cup&#232;re les coordonn&#233;es de la fen&#234;tre que tu veux en utilisant
la fonction de l'API Windows GetWindowRect par exemple (il te faut
conna&#238;tre le hWnd de celle-ci).

DarK Sidious

Un API Viewer (pour le VB, VB.NET, C, C# et Delphi) : www.ProgOtoP.com/popapi/

cs_allfab · Answer

Mes comp&#233;tences en VB &#233;tant assez limit&#233; je suis assez perdu et je
n'arrive pas &#224; voir comment utiliser cette fonction pour r&#233;cup&#233;rer les
coordonn&#233;es de cette fen&#234;tre et la capturer.



PS :  la partie que je souhaite capturer est statique, ce sera toujours les m&#234;mes coordonn&#233;es.



Encore Merci

cs_DARKSIDIOUS · Answer

Ben &#224; ce moment l&#224;, fixe les coordonn&#233;es une fois pour toute, si tu es s&#251;r que la fen&#234;tre est toujours au m&#234;me endroit.

DarK Sidious

Un API Viewer (pour le VB, VB.NET, C, C# et Delphi) : www.ProgOtoP.com/popapi/

Capture d'écran

5 réponses

Discussions similaires