从品牌网站建设到网络营销策划,从策略到执行的一站式服务
Dim p1 As New Point(0, 0)
成都创新互联长期为超过千家客户提供的网站建设服务,团队从业经验10年,关注不同地域、不同群体,并针对不同对象提供差异化的产品和服务;打造开放共赢平台,与合作伙伴共同营造健康的互联网生态环境。为北流企业提供专业的成都网站建设、成都网站制作,北流网站改版等技术服务。拥有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放到剪切板中
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
System.Windows.Forms.SendKeys.Send("%{PRTSC}")
Delay(0.1)
Dim bmp As Bitmap = CType(Clipboard.GetDataObject().GetData(DataFormats.Bitmap), Bitmap)
bmp.Save("c:\test1.jpg", System.Drawing.Imaging.ImageFormat.Jpeg)
End Sub
Private Sub Delay(ByVal tim As Single)
Dim t As Single = Microsoft.VisualBasic.Timer + tim
While t Microsoft.VisualBasic.Timer
My.Application.DoEvents()
End While
End Sub
不会卡的,体一显示已经加载到内存了,所以最小化还原是一定不会卡的
不过窗体内容太多会导致以后修改时查找不方便
建议把不同项目分别写在模块中
成都网站建设公司地址:成都市青羊区太升南路288号锦天国际A座10层 建设咨询028-86922220
成都快上网科技有限公司-四川网站建设设计公司 | 蜀ICP备19037934号 Copyright 2020,ALL Rights Reserved cdkjz.cn | 成都网站建设 | © Copyright 2020版权所有.
专家团队为您提供成都网站建设,成都网站设计,成都品牌网站设计,成都营销型网站制作等服务,成都建网站就找快上网! | 成都网站建设哪家好? | 网站建设地图