- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 关于窗口菜单的问题请进 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=106359)
-- 发布时间：2017/9/7 11:06:00
-- 关于窗口菜单的问题请进
窗口通过代码添加了一个工具栏ToolBar1，并通过代码增加一个命令按钮Button1
另在窗口增加一个winform.button按钮Button1，希望通过点击此按钮，来模拟点击ToolBar1中的Button1
但是发现，如果ToolBar1中的命令按钮Button1如果处于隐藏状态，则不会被索引到。
Dim m As WinForm.Strip = e.Form.Strips("ToolBar1")
If m.Items.Contains(e.Sender.Name) Then
m.Items(e.Sender.Name).PerformClick()
End If
为防止是代码存在问题，又重新在窗口设计器里面手工添加上述控件并设置代码，发现依旧报错。提示：给定关键字不在字典中。
当前使用版本20170819
请帮忙看下是否存在此问题？
-- 发布时间：2017/9/7 11:08:00
--
Demo见附件
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目9.rar |
[此贴子已经被作者于2017/9/7 11:08:59编辑过]
-- 发布时间：2017/9/7 11:15:00
--
汗
Dim m As WinForm.Strip = e.Form.Strips("工具栏1")
If m.Items.Contains(e.Sender.Name) Then
m.Items(e.Sender.Name).PerformClick()
End If
-- 发布时间：2017/9/7 11:15:00
--
2、不要隐藏
Dim b = e.Form.Strips("工具栏1").basecontrol
\'b.CanOverFlow = False
b.LayoutStyle = 3
-- 发布时间：2017/9/7 11:19:00
--
这个demo是后做的，前面用代码生成并隐藏的为啥出错呢
-- 发布时间：2017/9/7 11:20:00
--
我只是隐藏了菜单中的Button1
-- 发布时间：2017/9/7 11:44:00
--
Demo测试没问题。做具体例子发上来测试。
如果是菜单按钮太多溢出的问题，看4楼代码。
-- 发布时间：2017/9/7 12:02:00
--
感谢提醒,是代码问题，已解决