Capturer un form long dans une image

Version imprimable

11/03/2009, 23h58
Nikkobass

Capturer un form long dans une image

Bonjour,

je cherche à enregistrer un formulaire dans une image.jpg. Jusqu'a présent j'ai réussi à trouver des sources réalisant une capture d'écran de mon form. Le pb, cest que ce dernier est bien plus haut que l'écran et possède donc une barre de scroll verticale: ainsi avec ces méthodes, je n'arrive qu'à capturer la zone du haut, présente à l'écran.

Existe t-il une méthode simple qui me permettrait de capturer l'ensemble de mon formulaire, y compris la zone qui n'est actuellement pas affichée à l'écran?
12/03/2009, 16h11
Pol63

me.invokepaint sur un graphics fromimage puis save peut etre
(dans le pire des cas un for each ctrl in me.controls récursif)
12/03/2009, 18h17
Nikkobass

oula,

est ce que tu pourrais être un peu plus clair stp?
Ce que j'ai fait pour l'instant, cest creer des labels invisibles tout le long de mon form, et en leur donnant successivement le focus, j'arrive a faire plusieurs captures d'écran de tout le form.
Le pb, cest que justement j'obtiens plusieurs captures et que j'aimerais au final une seule grande image...

il y a en effet plein de chose pour faire une capture simple, mais avec le scrollbar je n'ai rien trouvé de simple

j'ai quand meme trouvé une parade, à savoir que si ton form à une image de fond il manque une ligne qui la dessine sur le buffer avant d'appeler la sub récursive

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
 
  Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Me.VerticalScroll.Value = 0
        Dim img As New Bitmap(Me.Width, Me.VerticalScroll.Maximum, Imaging.PixelFormat.Format32bppArgb)
        Dim g As Graphics = Graphics.FromImage(img)
        Dim buffer As BufferedGraphics = BufferedGraphicsManager.Current.Allocate(g, New System.Drawing.Rectangle(0, 0, Me.Width, Me.VerticalScroll.Maximum))
 
        buffer.Graphics.Clear(Me.BackColor)
        DessineCtrl(Me, buffer)
 
        buffer.Render(g)
        img.Save("c:\img.png", Imaging.ImageFormat.Png)
    End Sub
 
    Private Sub DessineCtrl(ByVal ctrldepart As Control, ByVal buffertotal As BufferedGraphics)
        For Each ctrl As Control In ctrldepart.Controls
            Dim imgCtrl As New Bitmap(ctrl.Width, ctrl.Height, Imaging.PixelFormat.Format32bppArgb)
            Dim g As Graphics = Graphics.FromImage(imgCtrl)
            Dim b As BufferedGraphics = BufferedGraphicsManager.Current.Allocate(g, New System.Drawing.Rectangle(0, 0, ctrl.Width, ctrl.Height))
 
 
            Dim p As New PaintEventArgs(b.Graphics, New System.Drawing.Rectangle(ctrl.Left, ctrl.Top, ctrl.Width, ctrl.Height))
            Me.InvokePaintBackground(ctrl, p)
            Me.InvokePaint(ctrl, p)
            b.Render(g)
 
            buffertotal.Graphics.DrawImage(imgCtrl, ctrl.Left, ctrl.Top)
 
            DessineCtrl(ctrl, buffertotal)
        Next
    End Sub