VB6标签设置手形光标

Question

如何在 Visual Basic 6 中设置标签控件的手形光标

我的标签应该像链接按钮一样。

我将 ForeColor 更改为 vbBlue 、下划线样式等。

现在我必须为该标签设置手形光标..该怎么做？

Answer 1

您可以使用API​​调用来获取系统手形光标

将以下代码放入模块中

Public Const IDC_HAND = 32649&
Public Declare Function SetCursor Lib "user32" (ByVal hCursor As Long) As Long
Public Declare Function LoadCursor Lib "user32" Alias "LoadCursorA" (ByVal hInstance As Long, ByVal lpCursorName As Long) As Long

并在标签的MouseMove事件中，输入以下代码

SetCursor LoadCursor(0, IDC_HAND)

其他游标常量:http://msdn.microsoft.com/en-us/library/windows/desktop/ms648391%28v=vs.85%29.aspx