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


  共有167681人关注过本帖树形打印复制链接

主题：既然有人希望实现这种页面布局,那么我就把例子放出来吧.(更新关闭标签,自动靠拢)
帅哥哟，离线，有人找我吗？
Bin
 小大  181楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：贵宾 帖子：35433 积分：178524 威望：0 精华：3 注册：2013/3/30 16:36:00 		  发帖心情 Post By：2013/10/8 9:41:00 [只看该作者]

以下是引用嘉华在2013-10-8 9:35:00的发言：
请问大师 ，在 ToolStripDropDownButton("页面集合")的右边    再增加个  比如”商品管理“  代码该如何修改


再ADD多一个就好了,你参考窗口的AlterLoad事件,自己动手试一试就明白了.

 回到顶部
帅哥哟，离线，有人找我吗？
嘉华
 小大  182楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：婴狐 帖子：53 积分：601 威望：0 精华：0 注册：2013/4/19 14:59:00 		  发帖心情 Post By：2013/10/8 11:34: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  tsb As new Windows.Forms.ToolStrip
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("退货")

AddHandler tsi1.Click, AddressOf Button_Click
AddHandler tsi2 .Click, AddressOf Button_Click
AddHandler tsi3 .Click, AddressOf Button_Click

AddHandler tsib1.Click, AddressOf Button_Click
AddHandler tsib2 .Click, AddressOf Button_Click
AddHandler tsib3 .Click, AddressOf Button_Click
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)
tsb.Items.Add(tsib)
e.Form.baseform.Controls.Add(ts)
e.Form.baseform.Controls.Add(tsb)


函数代码doclick、 
Dim tab As WinForm.TabControl = Forms("窗口1").Controls("TabControl1")
Select Case args(0).Text
    Case "页面1"
        tab.SelectedIndex=0
    Case "页面2"
        tab.SelectedIndex=1
    Case "页面3"
        tab.SelectedIndex=2
    Case "销售"
        tab.SelectedIndex=3
    Case "入库"
        tab.SelectedIndex=4
    Case "退货"
        tab.SelectedIndex=5
End Select
Functions.Execute("AddPanel",args(0).Text,tab.SelectedIndex)


红色字体部分是我增加的  可是下来菜单按钮怎么变成上下的排列，如何变成左右排列？请教大师
图片点击可在新窗口打开查看
 回到顶部
帅哥哟，离线，有人找我吗？
andy
 小大  183楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：童狐 帖子：215 积分：1855 威望：0 精华：0 注册：2011/4/19 9:49:00 		  发帖心情 Post By：2013/10/8 12:43:00 [只看该作者]

图片点击可在新窗口打开查看

 回到顶部
帅哥哟，离线，有人找我吗？
嘉华
 小大  184楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：婴狐 帖子：53 积分：601 威望：0 精华：0 注册：2013/4/19 14:59:00 		  发帖心情 Post By：2013/10/8 13:03:00 [只看该作者]

自己再顶下  求解

 回到顶部
帅哥哟，离线，有人找我吗？
blackzhu
 小大  185楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 一级勋章
等级：狐仙 帖子：9875 积分：57590 威望：0 精华：15 注册：2008/9/1 9:45:00 		  发帖心情 Post By：2013/10/8 13:10:00 [只看该作者]

Dim  tsb As new Windows.Forms.ToolStrip  去掉

 回到顶部
帅哥哟，离线，有人找我吗？
lhlxl
 小大  186楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：143 积分：1208 威望：0 精华：0 注册：2012/2/3 9:33:00 		  发帖心情 Post By：2013/10/8 13:53:00 [只看该作者]

顶一下
 回到顶部
帅哥哟，离线，有人找我吗？
嘉华
 小大  187楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：婴狐 帖子：53 积分：601 威望：0 精华：0 注册：2013/4/19 14:59:00 		  发帖心情 Post By：2013/10/8 14:07:00 [只看该作者]

以下是引用blackzhu在2013-10-8 13:10:00的发言：
Dim  tsb As new Windows.Forms.ToolStrip  去掉
报警错误！图片点击可在新窗口打开查看
 回到顶部
帅哥哟，离线，有人找我吗？
嘉华
 小大  188楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：婴狐 帖子：53 积分：601 威望：0 精华：0 注册：2013/4/19 14:59:00 		  发帖心情 Post By：2013/10/8 15:42:00 [只看该作者]

还是搞不定 自己顶一下  求师傅们甚解

 回到顶部
帅哥哟，离线，有人找我吗？
嘉华
 小大  189楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：婴狐 帖子：53 积分：601 威望：0 精华：0 注册：2013/4/19 14:59:00 		  发帖心情 Post By：2013/10/9 11:35:00 [只看该作者]

以下是引用嘉华在2013-10-8 11:34: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  tsb As new Windows.Forms.ToolStrip
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("退货")

AddHandler tsi1.Click, AddressOf Button_Click
AddHandler tsi2 .Click, AddressOf Button_Click
AddHandler tsi3 .Click, AddressOf Button_Click

AddHandler tsib1.Click, AddressOf Button_Click
AddHandler tsib2 .Click, AddressOf Button_Click
AddHandler tsib3 .Click, AddressOf Button_Click
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)
tsb.Items.Add(tsib)
e.Form.baseform.Controls.Add(ts)
e.Form.baseform.Controls.Add(tsb)


函数代码doclick、 
Dim tab As WinForm.TabControl = Forms("窗口1").Controls("TabControl1")
Select Case args(0).Text
    Case "页面1"
        tab.SelectedIndex=0
    Case "页面2"
        tab.SelectedIndex=1
    Case "页面3"
        tab.SelectedIndex=2
    Case "销售"
        tab.SelectedIndex=3
    Case "入库"
        tab.SelectedIndex=4
    Case "退货"
        tab.SelectedIndex=5
End Select
Functions.Execute("AddPanel",args(0).Text,tab.SelectedIndex)


红色字体部分是我增加的  可是下来菜单按钮怎么变成上下的排列，如何变成左右排列？请教大师
图片点击可在新窗口打开查看
bin  大师 ，帮忙 将这个问题解决下，不胜感激！
 回到顶部
帅哥哟，离线，有人找我吗？
嘉华
 小大  190楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：婴狐 帖子：53 积分：601 威望：0 精华：0 注册：2013/4/19 14:59:00 		  发帖心情 Post By：2013/10/9 14:00:00 [只看该作者]

再顶一下 
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.04688 秒, 4 次数据查询