打印WinForm窗体，复制窗体。

最新推荐文章于 2022-04-23 22:19:41 发布

沐NeMo

最新推荐文章于 2022-04-23 22:19:41 发布

阅读量1.7k

点赞数

分类专栏： 2.VB.Net 文章标签： winform button class object api

本文链接：https://blog.csdn.net/linjimu/article/details/1931828

版权

2.VB.Net 专栏收录该内容

120 篇文章

订阅专栏

本文介绍了一种简单的方法来实现屏幕截图，通过VB.NET的Graphics类CopyFromScreen方法，仅需几行代码即可轻松捕获窗口界面并保存为图片。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

参考：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