VB6标签设置手形光标

Question

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

我的标签应该像链接按钮.

我更改ForeColor为vbBlue,下划线样式等等.

现在我必须为该Label设置Hand光标..怎么做？

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