- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助]窗口菜单提示显示问题 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=126218)
-- 发布时间：2018/10/16 19:17:00
-- [求助]窗口菜单提示显示问题
今设计窗口菜单栏（状态栏），每个button设计了“提示”内容，但在鼠标进入等时无显示，如何编写代码？我的思路是：
1. 首先判断“状态栏”中的控件是否是“button”
2. 如果是“button”类控件，在发生“itemmousehover”事件时，显示“提示”内容
我的代码是：
For Each sit As WinForm.StripItem In e.Form.Strips("状态栏").Items
sit.ShowToolTip(e.StripItem.ToolTip)
Next
提示下述问题。
此主题相关图片如下：360截图18720115295226.png
-- 发布时间：2018/10/16 20:23:00
--
菜单没有ShowToolTip这种用法。
窗口afterload放入以下代码
Dim Strip As WinForm.Strip = e.Form.Strips("状态栏")
Strip.BaseControl.ShowItemToolTips = True
菜单设计中填入提示文字即可
此主题相关图片如下：1.png