js怎样让鼠标放到弹出的二级菜单上时不消失呢？

Posted 2023-04-16

我的代码如下 鼠标滑过时就消失 求问怎么办？

把 onmouseout 处理程序注册到 #menu1，不要注册在 li > a 上（这样做不完美，但能解决你的问题）。

这个功能用纯 CSS 实现也许会更好一些。

假设上层 li 为 #li，

#menu1 
  display: none;


#li:hover #menu1 
  display: block;


#menu1:hover 
  display: block;

参考技术A 你可以把a标签里的onmouseout事件注释掉

然后在id为menu1的ul中加上onclick="menu_yincang()"

这样鼠标放上去二级菜单显示，然后你点击二级菜单就隐藏追问

可是我需要的是 鼠标移出的

追答

那你到底是要的什么效果，我都懵圈了
那你是要移出又不让二级菜单消失还是咋地呀

追问

就是onmouseover的时候移除。不要onclick

追答

那你现在的代码不就是实现的onmouseover放上去二级菜单显示，onmouseout移出去二级菜单隐藏了吗

并没有没什么问题呀...

追问

你看下我的代码 还是没有实现啊

v4.v-meng.net/new/index.html

本回答被提问者和网友采纳

VB里怎样让鼠标指针移动到按钮上时弹出提示对话框

就是弹出提示信息对话框，，离开按钮后信息提示消失

新建一个工程，再添加一个窗体。在Form2上添加一个标签。在form1上添加一个按钮，将下面代码复制到form1的代码窗口
Dim Bj As Boolean
Private Sub Command1_Click()
Unload Form2
End Sub
Private Sub Command1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Bj = False Then
MyMsgbox "怎么样，我弹出来了！", "弹出窗口"
Bj = True
End If
End Sub
Private Sub Form_Load()
Bj = False
End Sub
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Bj = False
End Sub
Private Sub MyMsgbox(Optional Ts As String, Optional Bt As String)
On Error Resume Next
Form2.Label1 = Ts
Form2.Caption = Bt
Form2.Show
End Sub 参考技术A 设置这个按钮的 ToolTiptext 的值为提示内容即可。
如：command1.tooltiptext="提示信息" 参考技术B 按钮有个GotFocus事件
在这个事件里写个弹出信息就可以了。追问

能具体点吗？ 我是初学者哈。。谢谢！！

追答

找到按钮的事件

private sub command1_GotFocus

msgbox "test"

end sub

参考技术C 如果你用的是标准控件，那里控件里面有一个参数是用来干这个活的，你自己找一下吧，我不记得是哪个了