保存多个屏幕截图
Save multiple screenshots
我正在使用此代码通过我的 VB 应用截取屏幕截图:
Dim bounds As Rectangle
Dim screenshot As System.Drawing.Bitmap
Dim graph As Graphics
bounds = Screen.PrimaryScreen.Bounds
screenshot = New System.Drawing.Bitmap(bounds.Width, bounds.Height, System.Drawing.Imaging.PixelFormat.Format32bppRgb)
graph = Graphics.FromImage(screenshot)
graph.CopyFromScreen(0, 0, 0, 0, bounds.Size, CopyPixelOperation.SourceCopy)
screenshot.Save("c:\Screenshot.png", Imaging.ImageFormat.Png)
End Sub
如何在同一张地图中保存多个屏幕截图? (例如 screenshot1.png、screenshot2.png、....)
再次感谢。
PS: 如果有 2 个显示器,有没有办法截取 'fullscreen' 屏幕截图?
由于周转时间原因发布答案
即使您发布的原始代码无法在我的系统上编译,
根据我的评论以及 Pro Grammers 评论,这应该可以解决问题。
Dim bounds As Rectangle
Dim screenshot As System.Drawing.Bitmap
Dim graph As Graphics
Dim TimeStamp = DateTime.Now.ToLongTimeString & "_" & DateTime.Now.ToShortDateString()
Label1.Text = TimeStamp
bounds = Screen.PrimaryScreen.Bounds
screenshot = New System.Drawing.Bitmap(bounds.Width, bounds.Height, System.Drawing.Imaging.PixelFormat.Format32bppRgb)
graph = Graphics.FromImage(screenshot)
graph.CopyFromScreen(0, 0, 0, 0, bounds.Size, CopyPixelOperation.SourceCopy)
screenshot.Save("c:\Screenshot_" & TimeStamp & ".png", Imaging.ImageFormat.Png)
尝试一下时间戳,看看哪种方法适合您。
我正在使用此代码通过我的 VB 应用截取屏幕截图:
Dim bounds As Rectangle
Dim screenshot As System.Drawing.Bitmap
Dim graph As Graphics
bounds = Screen.PrimaryScreen.Bounds
screenshot = New System.Drawing.Bitmap(bounds.Width, bounds.Height, System.Drawing.Imaging.PixelFormat.Format32bppRgb)
graph = Graphics.FromImage(screenshot)
graph.CopyFromScreen(0, 0, 0, 0, bounds.Size, CopyPixelOperation.SourceCopy)
screenshot.Save("c:\Screenshot.png", Imaging.ImageFormat.Png)
End Sub
如何在同一张地图中保存多个屏幕截图? (例如 screenshot1.png、screenshot2.png、....)
再次感谢。
PS: 如果有 2 个显示器,有没有办法截取 'fullscreen' 屏幕截图?
由于周转时间原因发布答案
即使您发布的原始代码无法在我的系统上编译,
根据我的评论以及 Pro Grammers 评论,这应该可以解决问题。
Dim bounds As Rectangle
Dim screenshot As System.Drawing.Bitmap
Dim graph As Graphics
Dim TimeStamp = DateTime.Now.ToLongTimeString & "_" & DateTime.Now.ToShortDateString()
Label1.Text = TimeStamp
bounds = Screen.PrimaryScreen.Bounds
screenshot = New System.Drawing.Bitmap(bounds.Width, bounds.Height, System.Drawing.Imaging.PixelFormat.Format32bppRgb)
graph = Graphics.FromImage(screenshot)
graph.CopyFromScreen(0, 0, 0, 0, bounds.Size, CopyPixelOperation.SourceCopy)
screenshot.Save("c:\Screenshot_" & TimeStamp & ".png", Imaging.ImageFormat.Png)
尝试一下时间戳,看看哪种方法适合您。