4个回答
展开全部
只能用窗体的鼠标移动事件了!
画出一个按钮,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
画出一个按钮,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
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
用该按钮的mousemove事件,在过程中写出你要做的事情,不复杂
本回答被提问者采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
代码如下。
======
Private Sub Command1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
MsgBox "你的鼠标移动到按钮上了"
End Sub
======
Private Sub Command1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
MsgBox "你的鼠标移动到按钮上了"
End Sub
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
Private Sub Command1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
写你要的事件
End Sub
写你要的事件
End Sub
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询