打印WinForm窗体，复制窗体。

来源：互联网发布：新疆网络为什么这么差编辑：程序博客网时间：2024/05/16 08:20

参考：http://www.cnblogs.com/tuyile006/archive/2007/07/16/815843.html

可以利用Graphics类的CopyFromScreen方法来实现屏幕截取，舍弃了比较麻烦的API函数，只要几句代码就能实现了，修改一下，几行代码就可以把一个winform的窗体界面复制出来。可以供打印，保存为图片。

Form1.vb

Public Class Form1

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

Me.Location = New Point(0, 0)

Form2.Show()

End Sub

Private Sub Button1_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Me.Close()

End Sub

End Class

form2.vb

Imports System.Drawing

Public Class Form2

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Me.Hide()
        Dim r As Rectangle = Form1.Bounds
        Dim img = New Bitmap(r.Width, r.Height)
        Dim g As Graphics = Graphics.FromImage(img)
        g.CopyFromScreen(New Point(0, 0), New Point(0, 0), r.Size)
        Me.Show()
        Picbox.Image = img
    End Sub

    Private Sub Button2_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button2.Click
        Me.Close()
    End Sub

End Class