VB6标签集手形光标
VB6标签集手形光标
提问于 2013-06-19 19:12:59
如何在Visual Basic 6中为Label控件设置手形光标
我的标签应该像一个链接按钮。
我将ForeColor更改为vbBlue、下划线样式等。
现在，我必须为该标签设置手形光标。该怎么做呢？
回答 3
Stack Overflow用户
回答已采纳
发布于 2013-06-19 21:50:06
您可以使用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
Stack Overflow用户
发布于 2013-06-19 19:27:18
您将不得不执行自定义的MouseIcon。您将在Visual Studio 6安装的graphics文件夹中找到手形光标。下面是执行此操作的代码：
Private Sub Form_Load()
Label1.MousePointer = vbCustom
Label1.MouseIcon = LoadPicture("C:\Program Files\Microsoft Visual Studio\Common\Graphics\Cursors\H_POINT.cur")
End SubStack Overflow用户
发布于 2013-06-19 19:20:18
您必须有一个带有手形光标的ICO或CUR文件，然后在设计器中将其设置为自定义MouseIcon (也将MousePointer设置为99 - Custom)。
你可以在网上搜索一个免费版本的光标，如果你没有它。
页面原文内容由Stack Overflow提供。腾讯云小微IT领域专用引擎提供翻译支持
原文链接：
https://stackoverflow.com/questions/17189716
复制相关文章
相似问题
腾讯云开发者
