当鼠标移到标签框时是手形指针是怎么实现的？

yangzn

当鼠标移到标签框时是手形指针是怎么实现的？我反复看了它的属性没看到有什么特别的，到底是设了那个属性？

huanghai

Private Declare Function apiLoadCursorFromFile Lib "user32" _
                                               Alias "LoadCursorFromFileA" _
                                               (ByVal lpFileName As String) _
                                               As Long

Private Declare Function apiSetCursor Lib "user32" _
                                      Alias "SetCursor" _
                                      (ByVal hCursor As Long) _
                                      As Long


Public Sub ChangeCursor(strCursorName As String)
    Dim lngRet As Long
    If Len(Dir(strCursorName)) > 0 Then
        lngRet = apiLoadCursorFromFile(strCursorName)
        lngRet = apiSetCursor(lngRet)
    End If
End Sub

yangzn

谢谢回答。但我是看本站ftp上(/juta/库存管理.rar)的这个文件的主界面上看到的。我如果把它的标签复制到我的程序（不复制代码部分），我的程序也有这种功能(有点像指超级链接)。不用插入你说的代码，这是为什么？

huanghai

做成超链接也可以，但是有一点，就是点击后会出现WEB菜单（除非去掉），不好看。