Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]添加菜单


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

主题：[求助]添加菜单
帅哥哟，离线，有人找我吗？
blsu33
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：九尾狐 帖子：2928 积分：20184 威望：0 精华：0 注册：2012/2/3 17:45:00 		[求助]添加菜单  发帖心情 Post By：2018/7/5 21:45:00 [显示全部帖子]

老师，
  窗口同时添加 菜单StripTypeEnum.MainMenu  工具 StripTypeEnum.ToolBar菜单的顺序发生错误，发现StripTypeEnum.ToolBar 跑到 StripTypeEnum.MainMenu上面了 ，怎么调整顺序呢？
 回到顶部
帅哥哟，离线，有人找我吗？
blsu33
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：九尾狐 帖子：2928 积分：20184 威望：0 精华：0 注册：2012/2/3 17:45:00 		  发帖心情 Post By：2018/7/5 22:24:00 [显示全部帖子]

还是那样怎么弄
 回到顶部
帅哥哟，离线，有人找我吗？
blsu33
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：九尾狐 帖子：2928 积分：20184 威望：0 精华：0 注册：2012/2/3 17:45:00 		  发帖心情 Post By：2018/7/5 22:40:00 [显示全部帖子]


图片点击可在新窗口打开查看此主题相关图片如下：qq图片20180705223953.png
图片点击可在新窗口打开查看
 回到顶部
帅哥哟，离线，有人找我吗？
blsu33
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：九尾狐 帖子：2928 积分：20184 威望：0 精华：0 注册：2012/2/3 17:45:00 		  发帖心情 Post By：2018/7/5 22:42:00 [显示全部帖子]

老师，
  有没有

Dim Striptab1 As WinForm.Strip
Striptab1.basecontrol.BringTotop'置顶
 回到顶部
帅哥哟，离线，有人找我吗？
blsu33
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：九尾狐 帖子：2928 积分：20184 威望：0 精华：0 注册：2012/2/3 17:45:00 		  发帖心情 Post By：2018/7/5 23:12:00 [显示全部帖子]

大概就是这样，为啥 findpnl 总是跑到toolpnl顶上去 ，后加的应该在后面啊

Dim e =args(0)
Dim frm As String=args(1)
Forms(frm).StopRedraw
Dim tab As WinForm.TabControl = Forms(frm).Controls("tbl_jd_" & frm & "_" & frm)
Dim pg As WinForm.TabPage
pg=tab.SelectedPage
If Forms(frm).ExistControl(pg.name.Replace("pg_","pnl_xs_")) Then
    Forms(frm).RemoveControl(pg.name.Replace("pg_","pnl_xs_"))
End If

Dim pmxs As WinForm.Panel=Forms(frm).CreateControl(pg.name.Replace("pg_","pnl_xs_"),ControlTypeEnum.Panel)
pmxs.Visible=False
pmxs.Dock=System.Windows.Forms.DockStyle.fill
pmxs.Height=22
pg.AddControl(pmxs)

If pg IsNot Nothing Then
    Dim dt As DataTable=Functions.Execute("tablloading","usformset")
    Dim dr As DataRow=dt.find("id='"& pg.name.Replace("pg_" & frm & "_","") &"' And parentfrmid='"& pg.name.split("_")(1) &"'")
    If dr IsNot Nothing Then
        For Each dc As DataCol In dt.DataCols
            Select Case dc.name
                                Case "toolpnl"
                    If dr(dc.name)=True Then
                        If Forms(frm).Strips.Contains(dc.name & "_" & frm & "_" & pg.name.split("_")(2)) Then
                            Forms(frm).Strips.Remove(dc.name & "_" & frm & "_" & pg.name.split("_")(2))
                        End If
                        Dim Striptab1 As WinForm.Strip
                        Select Case frm
                            Case "serevmain"
                                Striptab1=Forms(frm).Strips.Add(dc.name & "_" & frm & "_" & pg.name.split("_")(2), StripTypeEnum.MainMenu)
                                Striptab1.Items.Add(pg.name.replace("pg","exit"),"","Tools_exit.png",StripItemTypeEnum.Button)
                                Striptab1.Items(pg.name.replace("pg","exit")).DisplayText = False
                                Striptab1.Items(pg.name.replace("pg","exit")).DockToRight = True '靠右停放
                            Case Else
                                Striptab1=Forms(frm).Strips.Add(dc.name & "_" & frm & "_" & frm, StripTypeEnum.MainMenu)
                                Striptab1.Items.Add("exit_" & frm & "_" & frm,"","Tools_exit.png",StripItemTypeEnum.Button)
                                Striptab1.Items("exit_" & frm & "_" & frm).DisplayText = False
                                Striptab1.Items("exit_" & frm & "_" & frm).DockToRight = True '靠右停放
                        End Select
                        Functions.Execute("za_nb_stripafterload",e,Striptab1,pmxs,frm)
                    End If
                    
                Case "findpnl"
                    If dr(dc.name)=True Then
                        If Forms(frm).Strips.Contains(dc.name & "_" & frm & "_"  & pg.name.split("_")(2)) Then
                            Forms(frm).Strips.Remove(dc.name & "_" & frm & "_"  & pg.name.split("_")(2))
                        End If
                        Dim Striptab2 As WinForm.Strip
                        Select Case frm
                            Case "serevmain"
                                Striptab2= Forms(frm).Strips.Add(dc.name & "_" & frm & "_"  & pg.name.split("_")(2), StripTypeEnum.ToolBar)
                            Case Else
                                Striptab2= Forms(frm).Strips.Add(dc.name & "_" & frm & "_"  & frm, StripTypeEnum.ToolBar)
                        End Select
                        Functions.Execute("za_nb_stripafterload",e,Striptab2,pmxs,frm)
                    End If
                    
               
                
            End Select
        Next
    End If
End If
If frm="serevmain" Then
    pmxs.Visible=True
    pmxs.topmost=True
End If
Forms(frm).ResumeRedraw
[此贴子已经被作者于2018/7/5 23:13:44编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
blsu33
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：九尾狐 帖子：2928 积分：20184 威望：0 精华：0 注册：2012/2/3 17:45:00 		  发帖心情 Post By：2018/7/6 12:39:00 [显示全部帖子]

额 例子是顺序正确的 ，假如我想颠倒过来，楼上代码没有起作用。
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:菜单顺序.table


[此贴子已经被作者于2018/7/6 12:38:52编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
blsu33
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：九尾狐 帖子：2928 积分：20184 威望：0 精华：0 注册：2012/2/3 17:45:00 		  发帖心情 Post By：2018/7/6 13:21:00 [显示全部帖子]

for each  这样顺序生成的 如何 排列顺序呢？
 回到顶部
帅哥哟，离线，有人找我吗？
blsu33
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：九尾狐 帖子：2928 积分：20184 威望：0 精华：0 注册：2012/2/3 17:45:00 		  发帖心情 Post By：2018/7/6 21:21:00 [显示全部帖子]

老师，
 页面上有菜单，希望页面关闭时，将菜单全部删除，怎么写？
 回到顶部
帅哥哟，离线，有人找我吗？
blsu33
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：九尾狐 帖子：2928 积分：20184 威望：0 精华：0 注册：2012/2/3 17:45:00 		  发帖心情 Post By：2018/7/6 22:15:00 [显示全部帖子]

老师，
  我这个两个菜单顺序不对，如4楼，调整了一下午，还是不对，怎么调整才好呢。


[此贴子已经被作者于2018/7/6 23:20:06编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
blsu33
 小大  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：九尾狐 帖子：2928 积分：20184 威望：0 精华：0 注册：2012/2/3 17:45:00 		  发帖心情 Post By：2018/7/6 23:04:00 [显示全部帖子]

图片点击可在新窗口打开查看不科学啊  但结果正确
[此贴子已经被作者于2018/7/6 23:04:36编辑过]
 回到顶部
总数 13 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.08984 秒, 6 次数据查询