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


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

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


加好友 发短信
等级：婴狐 帖子：53 积分：601 威望：0 精华：0 注册：2013/4/19 14:59:00 		  发帖心情 Post By：2013/8/15 22:07:00 [显示全部帖子]

真是需要  强帖要顶
 回到顶部
帅哥哟，离线，有人找我吗？
嘉华
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：婴狐 帖子：53 积分：601 威望：0 精华：0 注册：2013/4/19 14:59:00 		  发帖心情 Post By：2013/10/7 23:18:00 [显示全部帖子]

以下是引用Bin在2013-8-9 11:00:00的发言：

增加一个标签页4,并且在点击代码中设置好对应选中页面. 
请问大师 ，在 ToolStripDropDownButton("页面集合")的右边    再增加个  比如”商品管理“  代码该如何修改
 回到顶部
帅哥哟，离线，有人找我吗？
嘉华
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：婴狐 帖子：53 积分：601 威望：0 精华：0 注册：2013/4/19 14:59:00 		  发帖心情 Post By：2013/10/8 9:35:00 [显示全部帖子]

请问大师 ，在 ToolStripDropDownButton("页面集合")的右边    再增加个  比如”商品管理“  代码该如何修改

 回到顶部
帅哥哟，离线，有人找我吗？
嘉华
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | 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)


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


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

自己再顶下  求解

 回到顶部
帅哥哟，离线，有人找我吗？
嘉华
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | 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  去掉
报警错误！图片点击可在新窗口打开查看
 回到顶部
帅哥哟，离线，有人找我吗？
嘉华
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

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

 回到顶部
帅哥哟，离线，有人找我吗？
嘉华
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | 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  大师 ，帮忙 将这个问题解决下，不胜感激！
 回到顶部
帅哥哟，离线，有人找我吗？
嘉华
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

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


加好友 发短信
等级：婴狐 帖子：53 积分：601 威望：0 精华：0 注册：2013/4/19 14:59:00 		  发帖心情 Post By：2013/10/9 20:42:00 [显示全部帖子]

怎么没大师回复下？
 回到顶部
总数 11 1 2 下一页
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.05469 秒, 5 次数据查询