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

Answer 2

您必须自定义MouseIcon。您将在Visual Studio 6安装的图形文件夹中找到手形光标。这是代码：

Private Sub Form_Load()
     Label1.MousePointer = vbCustom
     Label1.MouseIcon = LoadPicture("C:\Program Files\Microsoft Visual Studio\Common\Graphics\Cursors\H_POINT.cur")
End Sub

Answer 3

您必须拥有带手形光标的ICO或CUR文件，然后在设计器中将其设置为自定义MouseIcon（同时将MousePointer设置为99 - Custom）。

如果您没有光标，可以在网上搜索免费版本的光标。