以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]窗口菜单工具栏能放在分区面板中吗  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=86303)

--  作者:tongliaozyr
--  发布时间:2016/6/15 9:38:00
--  [求助]窗口菜单工具栏能放在分区面板中吗

[求助]窗口菜单工具栏能放在分区面板SplitContainer中吗?


如能用什么方法,如何操作

[此贴子已经被作者于2016/6/15 9:39:19编辑过]

--  作者:花开的声音
--  发布时间:2016/6/15 9:47:00
--  
呵呵,我也这样想,如能够的话就更方便了。
--  作者:大红袍
--  发布时间:2016/6/15 9:56:00
--  

参考代码

 

Dim obj = e.form.panel.controls("工具栏1")
e.form.controls("panel1").basecontrol.controls.add(obj)


--  作者:tongliaozyr
--  发布时间:2016/6/15 10:09:00
--  
十分感谢!
--  作者:花开的声音
--  发布时间:2016/6/15 11:44:00
--  
红袍老师,如想把这个工具栏放在分区面板的第一个分区里,是不是也可这样弄?我弄了下,好像不行呢
--  作者:大红袍
--  发布时间:2016/6/15 11:49:00
--  
Dim obj = e.form.panel.controls("工具栏1")
e.form.controls("SplitContainer1").panel1.basecontrol.controls.add(obj)

--  作者:tongliaozyr
--  发布时间:2016/6/22 20:08:00
--  
用代码生成的工具栏

Dim Strip As WinForm.Strip
Strip = e.Form.Strips.Add("工具栏1", StripTypeEnum.ToolBar)
Strip.Items.Add("New", "新建", "new.ico", StripItemTypeEnum.Button)
Strip.Items.Add("Open", "打开", "Open.ico", StripItemTypeEnum.Button)
Strip.Items.Add("Save", "保存", "Save.ico", StripItemTypeEnum.Button)
Strip.Items.Add("Print", "打印", "Print.ico", StripItemTypeEnum.Button)
Strip.Items.Add("Separator1", "分割条", "", StripItemTypeEnum.Separator)
Strip.Items.Add("Cut", "剪切", "Cut.ico", StripItemTypeEnum.Button)
Strip.Items.Add("Copy", "复制", "Copy.ico", StripItemTypeEnum.Button)
Strip.Items.Add("Brush", "格式刷", "Brush.ico", StripItemTypeEnum.Button)
Strip.Items.Add("Separator2", "分割条", "", StripItemTypeEnum.Separator)
Strip.Items.Add("Help", "帮助", "Help.ico", StripItemTypeEnum.Button)
 
 
用代码生成的工具栏用以下代码不能加入到SplitContainer中,请问如何将用代码生成的工具栏加入到SplitContainer中,谢谢!

Dim obj = e.form.panel.controls("工具栏1")
e.form.controls("SplitContainer1").panel1.basecontrol.controls.add(obj)

--  作者:大红袍
--  发布时间:2016/6/22 20:31:00
--  

代码要这样写

 

Dim obj = e.form.Strips("工具栏1")
e.form.controls("SplitContainer1").panel1.basecontrol.controls.add(obj.basecontrol)


--  作者:xuezxz
--  发布时间:2016/6/22 20:59:00
--  
学习
--  作者:tongliaozyr
--  发布时间:2016/6/23 6:33:00
--  
谢谢,辛苦了!