[求助]窗口菜单工具栏能放在分区面板中吗 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]窗口菜单工具栏能放在分区面板中吗

共有3541人关注过本帖树形打印复制链接主题：[求助]窗口菜单工具栏能放在分区面板中吗

大红袍

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2016/6/15 9:56:00 [显示全部帖子]

参考代码

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

大红袍

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2016/6/15 11:49:00 [显示全部帖子]

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

大红袍

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2016/6/22 20:31:00 [显示全部帖子]

代码要这样写

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

大红袍

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2016/6/23 22:13:00 [显示全部帖子]

这句代码，没问题

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

如果提示，说明你没有添加对应名称的工具栏。

大红袍

小大 5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2016/6/23 22:15:00 [显示全部帖子]

以下是引用xuezxz在2016/6/23 21:39:00的发言：

还有是不是插入的标准控件不能显示标题啊？下面的写法有问题吗？

日期控件，本来就是没有标题的。

大红袍

小大 6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2016/6/23 23:34:00 [显示全部帖子]

以下是引用xuezxz在2016/6/23 23:17:00的发言：

照着帮助写的啊

不可能吧？做个实例发上来看看

大红袍

小大 7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2016/6/24 11:55:00 [显示全部帖子]

以下是引用花开的声音在2016/6/24 11:53:00的发言：
红袍老师，如想把工具栏放到TabControl的某个页面里，可以不？

Dim tab = e.Form.Controls("TabControl1").BaseControl

tab.TabPages("page1").Controls.Add(你工具栏)

下一主题 >> << 上一主题

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