荆门子陵菜市场:VB截屏（拷贝屏幕图像）代码

来源：百度文库 编辑：偶看新闻 时间：2024/04/25 01:04:44

 

一时对图片处理特别感兴趣.....下面就来转一篇有关于截屏的文章.
本文转自:http://im0518.blog.163.com/blog/static/2655641720071022101445585/

  1. 两种方法：感觉第一种方法来得直接一些

  3. 方法一：

  5. Private Declare Function GetDesktopWindow Lib "user32" () As Long
  6. Private Declare Function GetDC Lib "user32" (ByVal hWnd As Long) As Long
  7. Private Declare Function ReleaseDC Lib "user32" (ByVal hWnd As Long, ByVal hdc As Long) As Long
  8. Private Declare Function BitBlt Lib "gdi32" (ByVal hDestDC As Long, ByVal X As Long, ByVal Y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal hSrcDC As Long, ByVal xSrc As Long, ByVal ySrc As Long, ByVal dwRop As Long) As Long
  9. Private Const SRCCOPY = &HCC0020

  11. Sub saveMyScreen(filePath As String)
  12. 'filePath为截屏要保存的路径
  13. Picture1.Width = Screen.Width
  14. Picture1.Height = Screen.Height
  15. Picture1.Visible = False

  17. Dim lngDesktopHwnd As Long
  18. Dim lngDesktopDC As Long

  20. Picture1.AutoRedraw = True
  21. Picture1.ScaleMode = vbPixels
  22. lngDesktopHwnd = GetDesktopWindow
  23. lngDesktopDC = GetDC(lngDesktopHwnd)

  25. Call BitBlt(Picture1.hdc, 0, 0, Screen.Width, Screen.Height, lngDesktopDC, 0, 0, SRCCOPY)
  26. Picture1.Picture = Picture1.Image
  27. Call ReleaseDC(lngDesktopHwnd, lngDesktopDC)
  28. SavePicture Picture1, filePath '保存图片
  29. End Sub

  31. 方法二：

  33. 'form中放一个按钮和一个图片框

  35. Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)
  36. Const theScreen = 0
  37. Const theForm = 1

  39. Private Sub Command1_Click()
  40. Call keybd_event(vbKeySnapshot, theScreen, 0, 0)
  41. DoEvents
  42. Picture1.Picture = Clipboard.GetData(vbCFBitmap)
  43. End Sub

  45. 方法一修改后：

  47. Private Declare Function GetDesktopWindow Lib "user32" () As Long
  48. Private Declare Function GetDC Lib "user32" (ByVal hWnd As Long) As Long
  49. Private Declare Function ReleaseDC Lib "user32" (ByVal hWnd As Long, ByVal hdc As Long) As Long
  50. Private Declare Function BitBlt Lib "gdi32" (ByVal hDestDC As Long, ByVal X As Long, ByVal Y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal hSrcDC As Long, ByVal xSrc As Long, ByVal ySrc As Long, ByVal dwRop As Long) As Long
  51. Private Const SRCCOPY = &HCC0020

  53. Sub saveMyScreen(filePath As String)

  55. Dim lngDesktopHwnd As Long
  56. Dim lngDesktopDC As Long

  58. Picture1.AutoRedraw = True
  59. Picture1.ScaleMode = vbPixels
  60. lngDesktopHwnd = GetDesktopWindow
  61. lngDesktopDC = GetDC(lngDesktopHwnd)

  63. 'filePath为截屏要保存的路径
  64. Me.Visible = False
  65. Me.WindowState = 2
  66. Picture1.Width = Screen.Width
  67. Picture1.Height = Screen.Height
  68. ' Picture1.Visible = False
  69. Call BitBlt(Picture1.hdc, 0, 0, Screen.Width, Screen.Height, lngDesktopDC, 0, 0, SRCCOPY)
  70. Picture1.Picture = Picture1.Image
  71. Call ReleaseDC(lngDesktopHwnd, lngDesktopDC)
  72. Me.Visible = True
  73. ' SavePicture Picture1, filePath '保存图片
  74. End Sub


  77. Private Sub Command1_Click()
  78. saveMyScreen "filePath"
  79. End Sub
复制代码
vb中怎样实现图像拷贝功能? 怎样制作当前屏幕图像的拷贝? 怎样制作当前屏幕图像的拷贝? 防止拷贝屏幕的HTML代码 跟随屏幕移动的图像代码？ 求vb（picture控件上动态生成的图像）的打印代码 VB编程中的分段函数及其图像代码 求代码网页不被保存到临时文件夹和屏幕拷贝屏蔽代码 屏幕拷贝软件连续拷贝 VB中获得屏幕中鼠标坐标代码 用vb编三维文字屏幕保护的代码 vxworks 目标屏幕 拷贝 关于屏幕拷贝软件 VB代码。。。 VB代码。 vb 图像保存问题 如何屏幕拷贝?具体一点.什么窗口能屏幕拷贝? vb代码 网页代码 怎么样保存屏幕图像?? 请问苹果电脑怎样拷贝屏幕？ 屏幕拷贝的快捷键是什么? VB代码（医院管理）课程设计 怎样用VB生成DLL？（有源代码） vb中怎样制做动画演示函数图像（如正弦）?图像结果怎样保存？