以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]窗口菜单的提示不出来  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=94072)
--  作者：lzzhx
--  发布时间：2016/12/14 17:46:00
--  [求助]窗口菜单的提示不出来
在窗口菜单里设置了菜单项的提示，但鼠标放上去提示不显示，请问是什么原因？
--  作者：有点蓝
--  发布时间：2016/12/14 17:49:00
--  
测试没有问题，上例子看看
--  作者：lzzhx
--  发布时间：2017/4/11 13:41:00
--  
确实出不来提示，请老师看看
--  作者：lzzhx
--  发布时间：2017/4/11 13:57:00
--  
只有下级菜单才能出来提示，上面的出不来
--  作者：有点色
--  发布时间：2017/4/11 14:03:00
--  
以下是引用lzzhx在2017/4/11 13:57:00的发言：
只有下级菜单才能出来提示，上面的出不来

 

是的，目前就是这种情况。
--  作者：有点色
--  发布时间：2017/4/11 14:47:00
--  

 ItemMouseEnter 事件

 

If e.StripItem.ParentItem Is Nothing Then
    Dim lbl As WinForm.Label
    If e.form.Controls.contains("test") = False Then
        lbl = e.Form.CreateControl("test", ControlTypeEnum.Label)
        lbl.visible = False
        lbl.width = 0
        e.Form.AddControl(lbl)
    Else
        lbl = e.Form.controls("test")
    End If
    Dim point As Point = e.StripItem.BaseControl.Bounds.Location
    lbl.left = point.x
    lbl.Top = point.y
    lbl.ShowToolTip(e.StripItem.ToolTip)
End If

 

 ItemMouveLeave事件

 

If e.StripItem.ParentItem Is Nothing Then
    Dim lbl As WinForm.Label = e.Form.controls("test")
    lbl.HideToolTip()
End If