Question

VB6.0中鼠标移动至一个按钮上后触发一个事件怎么实现

Answer 1

只能用窗体的鼠标移动事件了!
画出一个按钮,command1
Private
Sub
Form_MouseMove(Button
As
Integer,
Shift
As
Integer,
X
As
Single,
Y
As
Single)
If
X
>
Command1.Left
And
X
<
Command1.Left
+
Command1.Width
And
Y
>
Command1.Top
And
Y
<
Command1.Top
+
Command1.Height
Then
Command1.Visible
=
True
Else:
Command1.Visible
=
False
End
If
End
Sub

Answer 2

代码如下。
＝＝＝＝＝＝
Private
Sub
Command1_MouseMove(Button
As
Integer,
Shift
As
Integer,
X
As
Single,
Y
As
Single)
MsgBox
"你的鼠标移动到按钮上了"
End
Sub