vb6 - 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

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）。

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