- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 设计的窗口菜单单击执行后菜单不消失 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=134026)
-- 发布时间：2019/4/25 16:21:00
-- 设计的窗口菜单单击执行后菜单不消失
请问老师，设计的窗口菜单单击后菜单不消失，是什么原因？
此主题相关图片如下：}2nz3gda{}qn_93id$cbuz6.png
下面图片是设计的菜单样式：
此主题相关图片如下：1556180376(1).png
-- 发布时间：2019/4/25 16:50:00
--
我测试没有问题，请上传具体实例测试
-- 发布时间：2019/4/25 17:59:00
--
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:测试.rar |
此主题相关图片如下：imya.png
-- 发布时间：2019/4/25 20:44:00
--
Select Case e.StripItem.Name
Case "ylprint1"
e.StripItem.ParentItem.BaseControl.HideDropDown
Application.Doevents
Dim Book As New XLS.Book(ProjectPath & "Attachments\\测试表.xls")
Dim fl As String = ProjectPath & "Reports\\测试表.xls"
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
End Select
-- 发布时间：2019/4/26 9:08:00
--
加上代码后，单击执行的子菜单退出了，可是上层菜单却没有退出。
[此贴子已经被作者于2019/4/26 9:39:16编辑过]
-- 发布时间：2019/4/26 10:28:00
--
e.Form.Strips("主菜单").Items("Print").BaseControl.HideDropDown
-- 发布时间：2019/4/26 10:51:00
--
谢谢老师！就用这一句代码就可以了。