右键菜单都在哪些事件上中写？ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 右键菜单都在哪些事件上中写？

共有2493人关注过本帖树形打印复制链接主题：右键菜单都在哪些事件上中写？

有点甜

小大 11楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2018/7/16 16:11:00 [只看该作者]

以下是引用xxfoxtable在2018/7/16 12:33:00的发言：
执行完命令，右键菜单不消失？老师怎么处理一下？

我测试点击菜单后，菜单会消失的啊。

请做一个例子发上来测试，说明你要做什么效果。

xxfoxtable

小大 12楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：七尾狐帖子：1696 积分：15873 威望：0 精华：0 注册：2017/6/1 23:12:00

Post By：2018/7/16 16:16:00 [只看该作者]

下载信息 [文件大小：下载次数： ]
点击浏览该文件:制作饼状图.table

执行项目1

有点甜

小大 13楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2018/7/16 17:06:00 [只看该作者]

e.strip.Visible = False
Select Case e.StripItem.Name
    Case "项目1"
        Dim Chart As WinForm.Chart
        Chart= Forms("窗口1").Controls("Chart1")
        Chart.Print(True, True)
    Case "Save"
        '保存代码
    Case "New"
        '新建代码
    Case "Print"
        '打印代码
    Case "Exit"
        '退出代码
End Select