全屏截图保存为文件_VisualFreeBasic源码

最新推荐文章于 2023-10-18 11:05:23 发布

VisualFreeBasic

最新推荐文章于 2023-10-18 11:05:23 发布

阅读量896

点赞数 1

分类专栏： VisualFreeBasic

本文链接：https://blog.csdn.net/yfvb2010/article/details/108298975

版权

这篇博客分享了如何使用VisualFreeBasic进行全屏截图并将其保存为不同文件格式的源码，包括 BMP, GIF, JPEG, PNG 和 TIFF。通过创建内存DC并拷贝屏幕DC，然后利用库函数实现图像的保存。" 113067900,10541157,Dubbo通讯协议解析：从Protocol到Netty,"['dubbo', '协议', 'Netty', '服务消费', '通信']

摘要由CSDN通过智能技术生成

截取屏幕图像，这点很简单，大家都会，但要保存为文件，就不一定人人都会了，下面是经典源码，复制去用即可。

      '截图--------------
      Dim nDC As HDC = GetDC(null) '获取屏幕DC
      Dim memBM As HBITMAP, j_Bmp As HBITMAP
      Dim As Long cw=GetSystemMetrics(SM_CXSCREEN) ,ch = GetSystemMetrics(SM_CYSCREEN) '获取主屏幕尺寸（多显示器时不在此内，当然也有方法获取多显示器时全部或某个显示器内容）
      memBM = CreateCompatibleBitmap(nDC, cw, ch)  ' 创建一个内存位图
      Dim memDC As HDC = CreateCompatibleDC(nDC) ' 创建内存DC
      SelectObject(memDC, memBM)  ' 将内存位图关联到内存DC中
      BitBlt memDC, 0, 0, cw, ch, nDC, 0, 0, SrcCopy '复制屏幕图到内存DC
      AfxGdipSaveHBITMAPToFile(memBM, App.Path & NowString(1) & ".jpg", "image/jpeg") '保存文件，NowString(1) 是获取当前日期和时间
      DeleteDC memDC  '用后句柄需要销毁，减少对系统资源占用。
      DeleteObject memBM
      ReleaseDC null, nDC

原理，创建个内存DC，然后就有个图像句柄，