Discussion :

[Fullmetal82]

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

[olsimare]

Bonjour.

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

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

Ca marche bien.

Cdt.

[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

[The_badger_man]

Ici je pense : http://www.c-sharpcorner.com/UploadF...ringaForm.aspx

[Fullmetal82]

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

[The_badger_man]

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

Code C# :

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
 
        [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");
        }

[Fullmetal82]

Oui mais ce code ne marche pas chez moi désolé ^^

[The_badger_man]

J"ai testé ça marche très bien....où est le probleme ?

[Bob Langlade]

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

[Fullmetal82]

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

[The_badger_man]

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

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

La conversion en VB.NET n'est pas insurmontable

[Fullmetal82]

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

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
 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 ^^

[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 ^^

[Bob Langlade]

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 :

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
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

[Fullmetal82]

Merci beaucoup