以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  请教窗口中菜单  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=91819)
--  作者：hbhb
--  发布时间：2016/10/19 18:02:00
--  请教窗口中菜单
大师：设置一个窗口中的菜单，是否可以移动到到窗口中的不同控件中（多个）？
--  作者：hbhb
--  发布时间：2016/10/19 18:13:00
--  
比如工具栏，我要在一个窗口的不同tabcontrol的不同页面中都要有，怎么设置？
--  作者：有点蓝
--  发布时间：2016/10/19 20:31:00
--  
Dim tbr As object = e.Form.Strips("工具栏1").BaseControl
e.Form.Controls("panel1").basecontrol.Controls.Add(tbr)
--  作者：hbhb
--  发布时间：2016/10/19 20:47:00
--  
动态添加的窗口菜单，事件写在哪里？
--  作者：有点蓝
--  发布时间：2016/10/19 21:04:00
--  
一样的，在：http://www.foxtable.com/webhelp/scr/3222.htm
[此贴子已经被作者于2016/10/19 21:04:48编辑过]
--  作者：hbhb
--  发布时间：2016/10/19 21:05:00
--  
大师：请问实例为何点击窗口中的菜单按钮，不增加行？
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目16.zip
--  作者：有点蓝
--  发布时间：2016/10/19 21:23:00
--  
动态增加的e.Strip.name为空，直接判断e.StripItem.Name就好，这样就要求一个窗口的菜单项不能重名


Select Case e.StripItem.Name
    Case "new"
        
        Dim tb1 As WinForm.Table = e.Form.Controls("Table1")
        tb1.Table.AddNew
End Select
--  作者：hbhb
--  发布时间：2016/10/19 21:29:00
--  
谢谢！劳驾写一个用起来简单通用的函数如何？
--  作者：有点蓝
--  发布时间：2016/10/19 21:32:00
--  
劳驾就不要问这么幼稚的问题了
--  作者：hbhb
--  发布时间：2016/10/19 21:42:00
--  
没有办法的办法呀，摸着石头过河，总比淹死强吧！