以文本方式查看主题 - Foxtable(狐表) (http://foxtable.net/bbs/index.asp) -- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2) ---- 多级菜单代码如何设置 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=140288) |
-- 作者:zyxhx -- 发布时间:2019/9/2 20:41:00 -- 多级菜单代码如何设置 请老师:我用以下代码对二级菜单有效,对三级菜单就无效了,请老师修改一下代码: Select Case e.StripItem.Name \'特殊大病门诊慢性病补偿初审表 Case "print1" e.Form.Strips("主菜单").Items("printgxy").BaseControl.HideDropDown \'退出主菜单下的项目菜单"printgxy" Dim Book As New XLS.Book(ProjectPath & "Attachments\\特殊大病门诊慢性病补偿初审表.xlsx") Dim fl As String = ProjectPath & "Reports\\特殊大病门诊慢性病补偿初审表.xlsx" Book.Build() Book.Save(fl) Dim App As New MSExcel.Application Dim Wb As MSExcel.WorkBook = App.WorkBooks.Open(fl) Dim Ws As MSExcel.WorkSheet = Wb.WorkSheets(1) Ws.PrintOut App.Quit Case "PrintPreview1" \' e.StripItem.ParentItem.BaseControl.HideDropDown \' Application.Doevents \'退出子菜单项目 e.Form.Strips("主菜单").Items("printgxy").BaseControl.HideDropDown \'\'退出主菜单下的项目菜单"printgxy" Dim Book As New XLS.Book(ProjectPath & "Attachments\\特殊大病门诊慢性病补偿初审表.xlsx") Dim fl As String = ProjectPath & "Reports\\特殊大病门诊慢性病补偿初审表.xlsx" Book.Build() Book.Save(fl) Dim App As New MSExcel.Application Dim Wb As MSExcel.WorkBook = App.WorkBooks.Open(fl) Dim Ws As MSExcel.WorkSheet = Wb.WorkSheets(1) App.Visible = True ShowAppWindow("特殊大病门诊慢性病补偿初审表",2) Ws.PrintPreview App.Quit Case "edit1" e.Form.Strips("主菜单").Items("printgxy").BaseControl.HideDropDown \'\'退出主菜单下的项目菜单"printgxy" Dim Book As New XLS.Book(ProjectPath & "Attachments\\特殊大病门诊慢性病补偿初审表.xlsx") Dim fl As String = ProjectPath & "Reports\\特殊大病门诊慢性病补偿初审表.xlsx" Book.Build() Book.Save(fl) Dim Proc As New Process Proc.File = fl Proc.Start() End Select 菜单如图所示: |
-- 作者:有点蓝 -- 发布时间:2019/9/2 21:27:00 -- 肯定有效的,我测试没有问题。所有菜单的名称都不要有相同的即可,不管是否同级 |
-- 作者:zyxhx -- 发布时间:2019/9/2 22:38:00 -- 谢谢老师! |