Dim p1 As New Point(0, 0)
10年积累的做网站、网站设计经验,可以快速应对客户对网站的新想法和需求。提供各种问题对应的解决方案。让选择我们的客户得到更好、更有力的网络服务。我虽然不认识你,你也不认识我。但先网站设计后付款的网站建设流程,更有建阳免费网站建设让你可以放心的选择与我们合作。
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放到剪切板中
drawpanel是什么东东,自定义控件吗?如果类似于picturebox,使用
'自动重绘要设为True,如果有这个属性的话
DrawPanel.AutoRedraw = True
'保存到变量
Image img = DrawPanel.Image
'直接设置Image属性即可
PictureBox1.Image = img
先把"Form1.vb 的副本"改成"Form2",然后右击“Form2”---查看代码---把类名改成“Form2”就可以了