VB 模拟菜单问题

来源：百度知道 编辑：UC知道 时间：2024/05/29 14:15:21
我想用VB模拟做一个下拉式的滚动的菜单，但如何实现当鼠标移到相应的控件那儿的时候，实现背景颜色反转、文字反白显示呢？
菜单有很多项，请高手写出实现方法谢谢。

用mousemove事件

上面的回答也太草帅了...等会贴代码

代码如下，不光要想到移动到按钮上会发生事件，还要考虑到离开后，需要还原，使用mousemove只能搞定移动到上面的情况，不能把离开的也解决了的~

VB鼠标移出事件MOUSEEXIT,MOUSELEAVE
花好月圆 于 2008, January 18, 1:45 PM 发表在 经典资料 分类中

MouseDown、MouseUp、MouseMove

VB 提供了3种很棒的 Mouse 事件。

但好象还缺少了什么！

对！还差MouseExit（鼠标移出）事件。在 VB 中，我们要捕捉 MouseExit 事

件，必须用 API 函数：

Private Declare Function SetCapture Lib "user32" (ByVal hWnd As Long) As Long

Private Declare Function ReleaseCapture Lib "user32" () As Long

然后，我们可以在控件（以 Picture1 为例）的 MouseMove 事件上加上以下代码：

Dim MouseExit As Boolean

MouseOver = (0 <= X) And (X <=Picture1.Width And (0 <=Y) And (Y <=Picture1.Height)

If MouseExit Then

SetCapture Picture1.hWnd

Else

ReleaseCapture

End If

日志标签: vb

有不明白联系

试试这个办法吧。比方说，你在菜单编辑器里设定标题为“菜单”，名称为“mnuTest”，子菜