VB 截取屏幕图像后画上鼠标位置,VB 截取屏幕图像画上鼠标位置,VB 截取屏幕图像后画上鼠标,VB 截取屏幕图像后鼠标位置,VB 截取屏幕图片后画上鼠标位置,VB 截取屏幕图片画上鼠标位置,VB 截取屏幕图片后画上鼠标,VB 截取屏幕图片后鼠标位置,VB 截取屏幕图片后画鼠标,VB 截取屏幕图片画鼠标,VB 截取屏幕图像后画鼠标,VB 截取屏幕图像画鼠标,VB 截取屏幕后画鼠标,VB 截屏画鼠标,VB 截屏鼠标,VB 截屏。

VB 截取屏幕图像/片后画上鼠标位置:

Type POINTAPI
    x     As Long
    y     As Long
End Type
Type ICONINFO
    fIcon As Long
    xHotspot As Long
    yHotspot As Long
    hbmMask As Long
    hbmColor As Long
End Type
Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long
Declare Function GetIconInfo Lib "user32" (ByVal hIcon As Long, piconinfo As ICONINFO) As Long

Dim pic As Picture, point As POINTAPI, info As ICONINFO
Set pic = LoadResPicture(101, 2)                                                '载入光标文件
GetCursorPos point                                                              '取得鼠标的位置
GetIconInfo pic.Handle, info                                                    '取得鼠标的HotSpot
picture1.PaintPicture pic(point.x - info.xHotspot) * 15, (point.y - info.yHotspot) * 15 '描绘鼠标