VB能抓图吗?

发布网友 发布时间：2024-10-23 23:06

我来回答

共3个回答

热心网友 时间：2024-10-25 19:07

你是不会抓屏，还是不会让它下次抓同一区域？

不会抓屏就去研究一下GetDC和BitBlt这两个API

让它下次抓同一区域，可以用VB自带的GetSetting和SaveSetting
用GetSetting从注册表中读出上次保存的位置，如果读不到说明是第一次运行，提示用户选择抓屏区域，读到了自然就是直接抓啦
窗体退出时或是用户选择抓屏区域时，把这个数据用SaveSetting写入注册表，以备下次读取

========================

简单的抓屏例子

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 Declare Function GetDC Lib "user32" (ByVal hwnd 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
Me.Show
End Sub

热心网友 时间：2024-10-25 19:06

可以,但怎么实现就不清楚了

热心网友 时间：2024-10-25 19:09

可以抓的。