以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]菜单的Button的ToolTip属性  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=123631)
--  作者：blsu33
--  发布时间：2018/8/19 22:27:00
--  [求助]菜单的Button的ToolTip属性
老师，
Button的ToolTip属性为何不能使用呢？

StripItem

WinForm.StripItem表示菜单项目，MemuItem，Button，SplitButton和Label等菜单项目的类型同为WinForm.StripItem。
Strip有个Items属性，这是一个集合，包括该菜单中的所有项目，通过该集合，可以获取菜单中指定名称的项目，例如：

Dim sit As WinForm.StripItem = e.Form.Strips("工具栏1").Items("Print")
sit.Enabled = False

再例如，禁用工具栏1中除保存按钮之外的所有按钮：

For Each sit As WinForm.StripItem In e.Form.Strips("工具栏1").Items
    If sit.Name <> "Save" Then
        sit.Enabled = False
    End If
Next

StripItem的属性：

属性 说明

ToolTip 字符型，返回或设置项目的提示内容
--  作者：有点蓝
--  发布时间：2018/8/19 22:41:00
--  
测试没有问题，不明白你的不能用是指什么
--  作者：blsu33
--  发布时间：2018/8/19 23:18:00
--  
Dim mnu As Winform.Strip
Dim itm As WinForm.StripItem
mnu = e.Form.Strips.Add("主菜单",StripTypeEnum.MainMenu)
mnu.Items.Add("Home","主页","home.ico",StripItemTypeEnum.Button)
mnu.Items("Home").DisplayText = False
mnu.Items("Home").DockToRight = True \'靠右停放

\'==================================================下面的就没有提示了
mnu.Items("Home").ToolTip=mnu.Items("Home").name
应该是鼠标点上时，有提示啊
--  作者：有点蓝
--  发布时间：2018/8/20 8:46:00
--  
菜单里面尽量使用子菜单，不要使用按钮，貌似不是很兼容
--  作者：liufucan
--  发布时间：2021/12/19 15:34:00
--  
我也发现这个问题了，一级按钮有问题，子菜单里面的按钮没有问题
[此贴子已经被作者于2021/12/19 15:34:55编辑过]
--  作者：liufucan
--  发布时间：2021/12/22 10:42:00
--  
这个bug麻烦官方修复一下
--  作者：有点蓝
--  发布时间：2021/12/22 11:00:00
--  
这个是.net自己的问题。菜单里不要放按钮，使用子菜单