Foxtable(狐表)用户栏目专家坐堂 → [求助]窗口菜单提示显示问题


  共有2488人关注过本帖树形打印复制链接

主题:[求助]窗口菜单提示显示问题

帅哥哟,离线,有人找我吗?
cqlwsam
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:五尾狐 帖子:1022 积分:7598 威望:0 精华:0 注册:2010/4/12 12:23:00
[求助]窗口菜单提示显示问题  发帖心情 Post By: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
图片点击可在新窗口打开查看

 回到顶部
帅哥,在线噢!
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:110527 积分:562519 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2018/10/16 20:23:00 [只看该作者]

菜单没有ShowToolTip这种用法。

窗口afterload放入以下代码

Dim Strip As WinForm.Strip = e.Form.Strips("状态栏")
Strip.BaseControl.ShowItemToolTips = True

菜单设计中填入提示文字即可

图片点击可在新窗口打开查看此主题相关图片如下:1.png
图片点击可在新窗口打开查看


 回到顶部