- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助]添加菜单 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=121424)
-- 发布时间：2018/7/5 21:45:00
-- [求助]添加菜单
老师，
窗口同时添加 菜单StripTypeEnum.MainMenu 工具 StripTypeEnum.ToolBar菜单的顺序发生错误，发现StripTypeEnum.ToolBar 跑到 StripTypeEnum.MainMenu上面了 ，怎么调整顺序呢？
-- 发布时间：2018/7/5 21:56:00
--
置前，置后，参考
e.form.Controls("Table1").basecontrol.BringToFront \'置前
e.form.Controls("Table1").basecontrol.SendToBack \'置后
-- 发布时间：2018/7/5 22:24:00
--
还是那样怎么弄
-- 发布时间：2018/7/5 22:40:00
--
此主题相关图片如下：qq图片20180705223953.png
-- 发布时间：2018/7/5 22:42:00
--
老师，
有没有
Dim Striptab1 As WinForm.Strip
Striptab1.basecontrol.BringTotop\'置顶
-- 发布时间：2018/7/5 23:03:00
--
贴出你写的代码
-- 发布时间：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编辑过]
-- 发布时间：2018/7/6 9:18:00
--
加上代码
Striptab1.basecontrol.BringToFront
不会做上传实例测试。
-- 发布时间：2018/7/6 12:39:00
--
额 例子是顺序正确的 ，假如我想颠倒过来，楼上代码没有起作用。
[此贴子已经被作者于2018/7/6 12:38:52编辑过]
-- 发布时间：2018/7/6 12:45:00
--
按照你生成的顺序显示的。如果要倒过来，请修改你控件生成的次序。
或者生成以后，再倒过来的顺序设置。