[VB.Net] Capture écran

Version imprimable

29/01/2007, 19h52
Fullmetal82

[VB.Net] Capture écran

Salut,
voilà j'aimerai savoir si ça serait possible de faire un capture écran à partir d'une commande enfin voilà ce que j'aimerai avoir ^^ :
Quand timer1.tick
me."capture écran" (on fait un capture écran de la form ^^)

Quand timer2.tick
me."capture écran" = picturebox1.backgroundimage

Voilà j'aimerai déjà savoir si c'est possible ^^
Merci :)
29/01/2007, 22h35
olsimare

Bonjour.

Comme ça m'interessai aussi pour la culture ...

http://www.planet-source-code.com/vb...=309&lngWId=10

Ca marche bien.

Cdt.
30/01/2007, 18h46
Fullmetal82

Merci beaucoup pour le lien ça marche bien ^^
Mais en faite ce code me fait un capture écran du bureau sous ma form ^^
J'aimerai savoir si tu sais ^^ coment faire pour faire "un imprime écran" de la ma 2ème form par exemple mais just de la form et pas de tout l'écran ^^

Merci :)
30/01/2007, 18h53
The_badger_man

Ici je pense : http://www.c-sharpcorner.com/UploadF...ringaForm.aspx
30/01/2007, 20h38
Fullmetal82

excuse moi je n'ai pas compris le lien que tu m'a donné :?
Peut-tu m'expliquer ou me donner le code ? ^^

C'est ecrit, il suffit de recopier le code.

Code:

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
 
        [System.Runtime.InteropServices.DllImportAttribute("gdi32.dll")]
        private static extern bool BitBlt(
            IntPtr hdcDest, // handle to destination DC
            int nXDest,  // x-coord of destination upper-left corner
            int nYDest,  // y-coord of destination upper-left corner
            int nWidth,  // width of destination rectangle
            int nHeight, // height of destination rectangle
            IntPtr hdcSrc,  // handle to source DC
            int nXSrc,   // x-coordinate of source upper-left corner
            int nYSrc,   // y-coordinate of source upper-left corner
            System.Int32 dwRop  // raster operation code
            );
        private void button2_Click(object sender, EventArgs e)
        {
            Graphics g1 = this.CreateGraphics();
            Image MyImage = new Bitmap(this.ClientRectangle.Width, this.ClientRectangle.Height, g1);
            Graphics g2 = Graphics.FromImage(MyImage);
            IntPtr dc1 = g1.GetHdc();
            IntPtr dc2 = g2.GetHdc();
            BitBlt(dc2, 0, 0, this.ClientRectangle.Width, this.ClientRectangle.Height, dc1, 0, 0, 13369376);
            g1.ReleaseHdc(dc1);
            g2.ReleaseHdc(dc2);
            MyImage.Save(@"c:\Captured.jpg", System.Drawing.Imaging.ImageFormat.Jpeg);
            MessageBox.Show("Finished Saving Image");
        }

02/02/2007, 18h56
Fullmetal82

Oui mais ce code ne marche pas chez moi désolé ^^
02/02/2007, 20h19
The_badger_man

J"ai testé ça marche très bien....où est le probleme ?
03/02/2007, 04h04
Bob Langlade

Pour VB 2005, le composant PrintForm à télécharger : http://msdn2.microsoft.com/en-us/vbasic/aa701261.aspx
03/02/2007, 11h36
Fullmetal82

Le problème ce que enfaite je travaille en .Net et pas en C# ^^
03/02/2007, 12h26
The_badger_man

Citation:

Envoyé par Fullmetal82

Le problème ce que enfaite je travaille en .Net et pas en C# ^^

Et C# c'est pas du .Net peut etre ? :roll:

La conversion en VB.NET n'est pas insurmontable

:) Voilà ce que je suis arivé à faire ^^ :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
 Public Class Form1
    Inherits System.Windows.Forms.Form
    Private Declare Function BitBlt Lib "GDI32" (ByVal srchDC As Integer, ByVal srcX As Integer, ByVal srcY As Integer, ByVal srcW As Integer, ByVal srcH As Integer, ByVal desthDC As Integer, ByVal destX As Integer, ByVal destY As Integer, ByVal op As Integer) As Integer
 
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim maform2 As New Form2
        Dim dc1, dc2 As Integer
        Dim myimage As Bitmap
 
        maform2.CreateGraphics()
        myimage = New Bitmap(maform2.ClientRectangle.Width, maform2.ClientRectangle.Height)
        Graphics.FromImage(myimage)
        BitBlt(dc2, 0, 0, maform2.ClientRectangle.Width, maform2.ClientRectangle.Height, dc1, 0, 0, 13369376)
        myimage.Save("c:\Captured.jpg")
    End Sub
End class

Cela permet de créer une image aux dimensions de la form2 mais toute blanche hélas :) En faite ça ne m'avance pas trop ^^

05/02/2007, 19h36
Fullmetal82

Désolé pour ceux qui m'aide je suis toujours dans mon problème on dira que j'ai comencé à programmé il y a pas très longtemps ^^

En convertissant le code C# de Badger Man et en cherchant sur le site Pinvoke http://www.pinvoke.net/default.aspx/gdi32/BitBlt.html, voilà le résultat en vb :

Code:

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
Enum TernaryRasterOperations As Integer
        SRCCOPY = 13369376     'dest = source
        SRCPAINT = 15597702    'dest = source OR dest
        SRCAND = 8913094       'dest = source AND dest
        SRCINVERT = 6684742    'dest = source XOR dest
        SRCERASE = 4457256     'dest = source AND (NOT dest )
        NOTSRCCOPY = 3342344   'dest = (NOT source)
        NOTSRCERASE = 1114278  'dest = (NOT src) AND (NOT dest) 
        MERGECOPY = 12583114   'dest = (source AND pattern)
        MERGEPAINT = 12255782  'dest = (NOT source) OR dest
        PATCOPY = 15728673     'dest = pattern
        PATPAINT = 16452105    'dest = DPSnoo
        PATINVERT = 5898313    'dest = pattern XOR dest
        DSTINVERT = 5570569    'dest = (NOT dest)
        BLACKNESS = 66     'dest = BLACK
        WHITENESS = 16711778   'dest = WHITE
    End Enum
 
    Public Declare Function BitBlt Lib "gdi32.dll" (ByVal hdc As IntPtr, ByVal nXDest As Integer, ByVal nYDest As Integer, ByVal nWidth As Integer, ByVal nHeight As Integer, ByVal hdcSrc As IntPtr, ByVal nXSrc As Integer, ByVal nYSrc As Integer, ByVal dwRop As TernaryRasterOperations) As Boolean
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim G1 As Graphics = Me.CreateGraphics
        Dim MyImage As Image = New Bitmap(Me.ClientRectangle.Width, Me.ClientRectangle.Height, G1)
        Dim G2 As Graphics = Graphics.FromImage(MyImage)
        Dim dc1 As IntPtr = G1.GetHdc()
        Dim dc2 As IntPtr = G2.GetHdc()
        BitBlt(dc2, 0, 0, Me.ClientRectangle.Width, Me.ClientRectangle.Height, dc1, 0, 0, TernaryRasterOperations.SRCCOPY)
        G1.ReleaseHdc(dc1)
        G2.ReleaseHdc(dc2)
        MyImage.Save("c:\Captured.jpg", System.Drawing.Imaging.ImageFormat.Jpeg)
        MessageBox.Show("Finished Saving Image")
    End Sub

07/02/2007, 06h56
Fullmetal82

Merci beaucoup :)