一些 Windows 系统不常见的 鼠标光标常数

一些 Windows  系统不常见的 鼠标光标常数

Private Declare Function SetCursor Lib "user32" (ByVal hCursor As Long) As Long
Const IDC_HAND As Long = 32649&  '光标Hand

 If X Mod 2000 > 1700 Then

   SetCursor 191 '65581
   ' TabStrip1.Tabs.Item(CurTab).Image = 3
Else
    Screen.MousePointer = vbDefault
    ' TabStrip1.Tabs.Item(CurTab).Image = 0
End If

 

posted @ 2016-07-26 23:23 whchensir 阅读(...) 评论(...) 编辑 收藏