VB中如何捕捉到鼠标光标形状的改变

Private Declare Function GetCursor Lib "user32" () As Long

Private Declare Function CopyIcon Lib "user32" (ByVal hIcon As Long) As Long

Private Declare Function DrawIcon Lib "user32" (ByVal hdc As Long, ByVal x As Long, ByVal y As Long, ByVal hIcon As Long) As Long

Private Sub Command1_Click()

Dim x As Long

Dim h As Long

x = GetCursor

h = CopyIcon(x)

DrawIcon Mehdc, 10, 10, h

Timer1Enabled = True

Timer1Interval = 1000

End Sub

Private Sub Timer1_Timer()

Call Command1_Click

End Sub

实例代码：

// Load a cursor of the type that should be checked

// The clue: The handle to the cursor is unique, so we can use it for comparison

HCURSOR hHelpCursor = LoadCursor(NULL, IDC_HELP);

 

// Use GetCursorInfo() to get information about the current (global) cursor

CURSORINFO ci;

cicbSize = sizeof(ci);

if(GetCursorInfo(&ci))

{

  if(cihCursor == hHelpCursor)

    cout << "Context help cursor active!" << endl;

}

不可以是的Shape1 Shape2 在这里是鼠标的特征码(好像就是当前鼠标的句柄) 你可以抓取鼠标的特征码 在"抓点抓色"窗口上按Ctrl+alt+Q (或WE)抓取当前鼠标的特征码

点击桌面左下角的开始（Windows图标），然后点击“控制面板”选项。进入控制面板窗口后，点击“鼠标”选项。如果是以类别显示的，则先需要切换到大图标显示。打开鼠标设置窗口后，首先点击窗口上方的“指针”选项卡。从指针选项卡中选择需要修改的

在Windows应用程序中，通过设置控件的Cursor属性可以定义鼠标的显示形状。控件（如Button控件）的Cursor属性用于设置鼠标指针的类型，默认为Default。C#鼠标指针语法：public virtual Cursor Cursor { get; set; }属性值：一个Cursor，表示当鼠标指针位于控件上时显示的光标。Cursor：是一个值，该属性值如表所示。表　 Cursor属性的值　 值说明AppStarting获取在应用程序启动时显示的光标Arrow获取箭头光标Cross获取十字线光标Default获取默认光标，它通常为箭头光标Hand获取手形光标，当悬停在Web链接上时通常使用该光标Help获取“帮助”光标，它是箭头和问号的组合HSplit获取当鼠标定位在水平拆分条上时显示的光标。IBeam获取I型光标，该光标用于显示单击鼠标时文本光标出现的位置No获取指示某个特定区域对当前 *** 作无效的光标NoMove2D获取滚轮 *** 作过程中鼠标不动，但是该窗口可以同时在水平和垂直方向上滚动时显示的光标NoMoveHoriz获取滚轮 *** 作过程中鼠标不动，但是该窗口可以在水平方向上滚动时显示的光标NoMoveVert获取滚轮 *** 作过程中鼠标不动，但是该窗口可以在垂直方向上滚动时显示的光标PanEast获取滚轮 *** 作过程中鼠标移动，并且该窗口水平向右滚动时显示的光标PanNE获取滚轮 *** 作过程中鼠标移动，并且该窗口水平、垂直向上和向右滚动时显示的光标PanNorth获取滚轮 *** 作过程中鼠标移动，并且该窗口垂直向上滚动时显示的光标PanNW获取滚轮 *** 作过程中鼠标移动，并且该窗口水平、垂直向上和向左滚动时显示的光标PanSE获取滚轮 *** 作过程中鼠标移动，并且该窗口水平、垂直向下和向右滚动时显示的光标PanSouth获取滚轮 *** 作过程中鼠标移动，并且该窗口垂直向下滚动时显示的光标PanSW获取滚轮 *** 作过程中鼠标移动，并且该窗口水平、垂直向下和向左滚动时显示的光标。PanWest获取滚轮 *** 作过程中鼠标移动，并且该窗口水平向左滚动时显示的光SizeAll获取4向大小调整光标源码天空，该光标由相联接的、分别指向东南西北的四个箭头组成SizeNESW获取双向对角线（东北/西南）大小调整光标SizeNS获取双向垂直（北/南）大小调整光标SizeNWSE获取双向对角线（西北/东南）大小调整光标SizeWE获取双向水平（西/东）大小调整光标UpArrow获取上箭头光标，该光标通常用来标识插入点VSplit获取当鼠标定位在垂直拆分条上时显示的光标WaitCursor获取等待光标，通常是沙漏形状

MousePointer属性用来显示鼠标箭头的形状的。 可在C:/WINDOWS/Cursors找到这些形状。

常数 值 描述

vbDefault 0 缺省值

vbArrow 1 箭头

vbCrosshair 2 十字线

vbIbeam 3 I 型标

vbIconPointer 4 图标

vbSizePointer 5 尺寸线

vbSizeNESW 6 上-左下尺寸线

vbSizeNS 7 垂-直尺寸线

vbSizeNWSE 8 左上-右下尺寸线

vbSizeWE 9 水-平尺寸线

vbUpArrow 10 向上箭头

vbHourglass 11 沙漏

vbNoDrop 12 不允许放下

vbArrowHourglass 13 箭头和沙漏；（仅在 32 位 Visual Basic 50 中使用）

vbArrowQuestion 14 箭头和问号；（仅在 32 位 Visual Basic 50 中使用）

vbSizeAll 15 四向尺寸线；（仅在 32 位 Visual Basic 50 中使用）

vbCustom 99 通过 MouseIcon 属性所指定的自定义图标

以上就是关于VB中如何捕捉到鼠标光标形状的改变全部的内容，包括:VB中如何捕捉到鼠标光标形状的改变、vc mfc编程，请问如何判断当前的鼠标形状是箭头还是手形，麻烦给下代码，谢谢了、请按键精灵高手帮下忙，谢谢了等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！