在Label标签上怎样让鼠标移上后变为手状？移出后又恢复？

Question

因为Label没有hwnd的，所以在移出以后没办法释放的？各位高手怎么做的？
我是在Form_MouseMove事件中加的代码，但是这样又有问题，就是在Label上按住鼠标以后再移出来，鼠标还是手指状。谢谢了！

Answer 1

有这样的方法：
在Label1.Parent的（Form1或者Picture1什么的）MouseMove事件中恢复Label1的颜色
或者判断鼠标指针位置（GetCursorPos API）是否在Label1的范围内。推荐后一种，但前一种简单些。

Answer 2

但是这样以后，Label好象没有办法响应Click事件啊！

Answer 3

怎么可能呢，这和Label的Click没有关联。

Answer 4

你试试看http://sharedavid.nease.net/Binkplay/Binkinst.zip
里面的关于中那个链接就是这么做的，丝毫没问题。

Answer 5

设置lavel的属性
:
 MousePointer=99 '自定义
 MouseIcon="c:\winnt\cursor\cusi.cur"'指定鼠标形状的位置 
这样就可以了！

Answer 6

 MouseIcon="c:\winnt\cursors\harrow.cur"'这个应该有吧！只是指定一个位置而已，在系统里有的

Answer 7

这段代码就可以实现。最简单！
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
   Me.MousePointer = vbDefault
End SubPrivate Sub Label1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    Label1.MousePointer = 2
End Sub

Answer 8

选中Label标签，在它的属性窗口中把MouseIcon设置成所要的鼠标形状(具体路径上面已给出)然后把MousePointer属性选为99即可。

Answer 9

把label的MousePointer属性设为99(custom)，把MouseIcon属性设为手状的图标。就可以了。