怎么编写变色龙按钮？请高手指点！

来源：百度知道 编辑：UC知道 时间：2024/09/22 05:22:39
我想用VB编写一个类似于XP样式的按钮，鼠标移动到上面会变颜色，但在VB里怎么响应鼠标移动到上面的事件，用mouse move事件好象不行。
有没有鼠标移出控件的事件？
如果不去网上下，自己怎么实现这样的功能？？

Windows提供的鼠标移出消息有时候很有用，但是VB6中没有把这个事件封装给我们。
但是我们仍然可以使用子类化技术实现他，下面的代码就是一个简单的例子来处理Windows的
WM_MOUSELEAVE消息的，我演示的是鼠标移出一个Button时的情形。

1.加入一个模块，专门用来处理子类函数：

Option Explicit

'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'Copyright 2002 40Star, All Rights Reserved.
'
'E-Mail ：40Star@163.com
'Distributi