vb.net 如何把窗口内容作为图元(Meta)格式拷贝到剪切板中?

2025-02-24 21:29:20
推荐回答(1个)
回答1:

Dim p1 As New Point(0, 0)
Dim p2 As New Point(My.Computer.Screen.WorkingArea.Width, My.Computer.Screen.WorkingArea.Height) '除工具栏全屏

Dim pic As New Bitmap(p2.X, p2.Y)

Using g As Graphics = Graphics.FromImage(pic)
g.CopyFromScreen(p1, p1, p2)
PictureBox1.Image = pic
End Using
Clipboard.SetImage(PictureBox1.Image)

截图到PictureBox1中显示,然后在把PictureBox1.image放到剪切板中