请教mousemove的使用问题

liumu

附件中的窗体上的按钮指向第一个后再指向第二个结果两个都是黄色了，因为他们靠得太近了，有很多这样的按钮，我要靠得恨近，怎么才能用最少的代码做到

[此贴子已经被作者于2005-3-14 22:54:24编辑过]

七叶一枝梅

我想——

按钮用数组，在form的mousemove中进行判断，每次只能有一个数组中的成员处于激活状态，其它的处于普通状态。

下面代码片段没有用数组，只举两个按钮为例，注意，说是按钮其实是两个重叠在一起的的Image控件(Image1与Image2)。

Private Sub UserForm_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single) Me.Image2.Visible = False Me.Image1.Visible = True End Sub

'上面代码，当UserForm_MouseMove发生时Image2（即本来藏着的、显示为“激活”的按钮）重新隐藏，而Image1（即显示为未激活状态的按钮）被激活。

Private Sub Image1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single) Image1.Visible = False Image2.Visible = True End Sub

'上面代码，当鼠标移到Image1（即未激活的按钮上）时，Image2（即显示为激活状态的按钮）显示出来。

你只须Image控件改为用数组控制即可。

如果发生了Image2的单击事件，则将Image2.Visible一直置为“true”，这样就一直显示为被单击的状态。

关于用image作按钮，我前段时间做的一个小界面，就是用的这个方法。地址如下：

http://club.excelhome.net/dispbbs.asp?BoardID=23&replyID=414104&id=81405&skin=0

可以看看。

[此贴子已经被作者于2005-3-14 23:52:14编辑过]