Office中国论坛/Access中国论坛

标题: 当鼠标移到标签框时是手形指针是怎么实现的？ [打印本页]

作者: yangzn 时间: 2003-10-18 21:44
标题: 当鼠标移到标签框时是手形指针是怎么实现的？
当鼠标移到标签框时是手形指针是怎么实现的？我反复看了它的属性没看到有什么特别的，到底是设了那个属性？

作者: huanghai 时间: 2003-10-18 23:16
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 时间: 2003-10-18 23:30
谢谢回答。但我是看本站ftp上(/juta/库存管理.rar)的这个文件的主界面上看到的。我如果把它的标签复制到我的程序（不复制代码部分），我的程序也有这种功能(有点像指超级链接)。不用插入你说的代码，这是为什么？

作者: huanghai 时间: 2003-10-19 16:24
做成超链接也可以，但是有一点，就是点击后会出现WEB菜单（除非去掉），不好看。

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)