以文本方式查看主题

-  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自己的问题。菜单里不要放按钮,使用子菜单