vb.net获取window光标信息

最近在做一个Tooltip类型的控件，因为要追踪光标，但是由于提示不能遮住光标，所以需要获取光标的图标大小进行获取。用.net内置的cursor类获取的clip剪辑区域实在太不符合了，于是我尝试用winapi获取，做这个功能需要两个winapi,GetCursorInfo、GetIconInfo的配合使用。为使用方便我封装成了类型。

 Public Class 光标信息类
        Public Property 图标 As Bitmap
        Public Property 坐标 As Point
        Public Property 图标热点坐标 As Point
        Public Property 显示状态 As Boolean
        Public Sub 更新光标信息() '提供一个更新光标信息的操作，以便实时获取
            Dim cs As CURSORINFO
            Dim iconinfo As ICONINFO
            cs.cbsize = Marshal.SizeOf(GetType(CURSORINFO)) 

            GetCursorInfo(cs)

            GetIconInfo(cs.hCursor, iconinfo)
            图标 = Bitmap.FromHbitmap(iconinfo.hbmMask)
            坐标 = cs.ptScreenPos
            图标热点坐标 = New Point(iconinfo.xHotspot, iconinfo.yHotspot)
            显示状态 = cs.flags

        End Sub
         Public Overrides Function ToString() As String
            Return "光标坐标:" + 坐标.ToString + "图标热点坐标:" + 图标热点坐标.ToString
        End Function
        Public Sub New()
            更新光标信息()
        End Sub
    End Class
    ‘光标信息结构体’
    <StructLayout(LayoutKind.Sequential)>
    Public Structure CURSORINFO
        Dim cbsize As Integer
        Dim flags As Integer
        Dim hCursor As Integer
        Dim ptScreenPos As Point

    End Structure
    ‘图标信息结构体’
    <StructLayout(LayoutKind.Sequential)>
    Public Structure ICONINFO
        Dim fIcon As Boolean
        Dim xHotspot As Integer
        Dim yHotspot As Integer
        Dim hbmMask As Integer
        Dim hbmColor As Integer

    End Structure
    <DllImport("user32")>
    Public Function GetIconInfo(hcursor As Integer, ByRef icoinfo As ICONINFO) As Boolean

    End Function
    <DllImport("user32")>
    Public Function GetCursorInfo(ByRef curinfo As CURSORINFO) As Integer

    End Function

以上为封装的代码，接下来调用，也极其简单。比如

Dim gb As New 光标信息类 '实例化操作，同时初始化信息
    Dim btmp = gb.图标 '获取图标信息
    btmp.Save("./test.png") '保存光标图标
    Debug.WriteLine(gb.ToString) '输出坐标信息
    Debug.WriteLine(btmp.Size.ToString) '输出位图大小

得到效果如下：


你会发现有两张图，这两张图片大小相等，颜色相反，所以我在取图标大小时需要把它高度折半。你也可以发现，图标热点坐标是5，0对应的正是图标的手指尖的位置。这意味着我们在自己为程序 设置光标时可以模仿制作，将要指的地方放到图标的5,0的位置，这样在设置后光标显示的位置和真实的位置比较匹配。

OK代码分享完毕!!! 据说有个api在win7上运行失败，这里希望win7用户帮忙测试一下代码吧。