既然有人希望实现这种页面布局,那么我就把例子放出来吧.(更新关闭标签,自动靠拢) - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 既然有人希望实现这种页面布局,那么我就把例子放出来吧.(更新关闭标签,自动靠拢)

共有167690人关注过本帖树形打印复制链接主题：既然有人希望实现这种页面布局,那么我就把例子放出来吧.(更新关闭标签,自动靠拢)

嘉华

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

加好友

发短信

等级：婴狐帖子：53 积分：601 威望：0 精华：0 注册：2013/4/19 14:59:00

Post By：2013/10/9 20:42:00 [只看该作者]

怎么没大师回复下？

jianjingmaoyi

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

加好友

发短信

等级：三尾狐帖子：760 积分：4714 威望：0 精华：0 注册：2011/12/17 18:37:00

Post By：2013/10/9 20:52:00 [只看该作者]

你这样写太累了:

Dim ts As new Windows.Forms.ToolStrip

Dim tsi As new Windows.Forms.ToolStripDropDownButton("页面集合")
Dim tsi1 As new Windows.Forms.ToolStripButton("页面1")
Dim tsi2 As new Windows.Forms.ToolStripButton("页面2")
Dim tsi3 As new Windows.Forms.ToolStripButton("页面3")
Dim tsib As new Windows.Forms.ToolStripDropDownButton("商品管理")
Dim tsib1 As new Windows.Forms.ToolStripButton("销售")
Dim tsib2 As new Windows.Forms.ToolStripButton("入库")
Dim tsib3 As new Windows.Forms.ToolStripButton("退货")

tsi.DropDownItems.Add(tsi1)
tsi.DropDownItems.Add(tsi2)
tsi.DropDownItems.Add(tsi3)
tsib.DropDownItems.Add(tsib1)
tsib.DropDownItems.Add(tsib2)
tsib.DropDownItems.Add(tsib3)
ts.Items.Add(tsi)
ts.Items.Add(tsib)
e.Form.baseform.Controls.Add(ts)

高峰

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

加好友

发短信

等级：婴狐帖子：7 积分：101 威望：0 精华：0 注册：2013/10/19 9:50:00

谢谢分享

Post By：2013/10/19 22:04:00 [只看该作者]

谢谢分享

qujl

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

加好友

发短信

等级：婴狐帖子：78 积分：888 威望：0 精华：0 注册：2012/12/1 22:12:00

Post By：2013/10/19 22:09:00 [只看该作者]

谢谢分享！

cslike

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

加好友

发短信

等级：婴狐帖子：36 积分：349 威望：0 精华：0 注册：2013/1/4 18:45:00

Post By：2013/10/29 11:35:00 [只看该作者]

好厉害的样子

a2704b	小大 196楼 \| 信息 \| 搜索 \| 邮箱 \| 主页 \| UC
加好友发短信等级：一尾狐帖子：251 积分：4395 威望：0 精华：0 注册：2011/5/27 20:10:00	Post By：2013/11/14 23:32:00 [只看该作者] 用户已被锁定