VB截图代码(超高质量)
来源:互联网 发布:王老菊宿舍知乎 编辑:程序博客网 时间:2024/05/02 16:44
Private Declare Function GetDC Lib "user32" (ByVal hwnd As Long) As Long
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
Private Sub Form_Load()
Me.Hide
Me.AutoRedraw = True
BitBlt Me.hDC, 0, 0, Screen.Width, Screen.Height, GetDC(0), 0, 0, vbSrcCopy
sFile$ = "C:\" & Format(Now, "yyyymmddhhmmss") & ".BMP"
SavePicture Me.Image, sFile
MsgBox "当前屏幕图像已经保存到" & sFile, 64
End
End Sub
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
Private Sub Form_Load()
Me.Hide
Me.AutoRedraw = True
BitBlt Me.hDC, 0, 0, Screen.Width, Screen.Height, GetDC(0), 0, 0, vbSrcCopy
sFile$ = "C:\" & Format(Now, "yyyymmddhhmmss") & ".BMP"
SavePicture Me.Image, sFile
MsgBox "当前屏幕图像已经保存到" & sFile, 64
End
End Sub
- VB截图代码(超高质量)
- vb屏幕截图压缩代码
- VB代码实现屏幕截图(Screenshot功能)
- VB程序VB代码:摄像头视频图像的监控,截图,录像(改进)
- VB实现抓屏/截图的代码
- 如何编写高质量的VB代码
- 如何编写高质量的VB代码
- 如何利用VB类提高代码质量
- 如何编写高质量的VB代码
- 如何编写高质量的VB代码
- 编写高质量的VB代码
- 如何编写高质量的VB代码
- 如何编写高质量的VB代码
- 编写高质量的vb代码(
- 如何编写高质量的VB代码
- VB精编:编写高质量的VB代码
- (转) VB精编:编写高质量的VB代码
- 基于HEVC 的UHD(超高清 4K)视频的主观质量评价
- hnu 12029 LCA问题
- TinyOS在MSP430F2618上移植(三)之LCD
- 在ubuntu中安装Skype命令行
- 好高兴,我的博客开通了!
- 封装jquery弹出窗口
- VB截图代码(超高质量)
- VB压缩图片(不失真)
- VB发送邮件代码(不使用任何控件)
- bug01_Ubuntu9.10:mount of filesystem failed解决办法
- poj2299 归并排序求逆序对
- VLAN的Hybrid和Trunk端口有何区别?
- 苹果和 Google 死磕专利:下一个目标 InterDigital
- Max Segment Live
- TMIE_WAIT