Foxtable(狐表)用户栏目专家坐堂 → 窗体自定义右键怎么关闭


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

主题:窗体自定义右键怎么关闭

帅哥哟,离线,有人找我吗?
有点蓝
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:110738 积分:563610 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/3/8 21:27:00 [显示全部帖子]

什么自定义右键?右键菜单?

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:110738 积分:563610 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/3/8 22:56:00 [显示全部帖子]

参考:http://www.foxtable.com/webhelp/topics/3116.htm


例如窗口中有一个按钮,希望单击这个按钮,能出现一个快捷菜单:

图片点击可在新窗口打开查看

可以将该按钮的Click事件代码设置为:

if e.form.controls("复选框").checked then

With e.Sender

    .ShowContextStrip(0, .Height, e.Form.Strips("快捷菜单1"))
End
 With

end if


 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:110738 积分:563610 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/3/8 23:35:00 [显示全部帖子]

复选框checkchanged事件

if e.sender.checked then 
e.Form.Controls("Table1").ContextStrip = e.Form.Strips("快捷菜单1")
else
e.Form.Controls("Table1").ContextStrip = nothing
end if

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:110738 积分:563610 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/3/9 8:41:00 [显示全部帖子]

算是个bug,等修复

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:110738 积分:563610 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/3/9 10:32:00 [显示全部帖子]

窗口菜单绑定表格无法控制。表格快捷菜单建议使用主菜单里的快捷菜单:http://www.foxtable.com/webhelp/topics/0662.htm

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:110738 积分:563610 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/3/9 14:25:00 [显示全部帖子]

切换到自定义菜单模式http://www.foxtable.com/webhelp/topics/1466.htm

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:110738 积分:563610 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/3/9 15:06:00 [显示全部帖子]

参考:http://www.foxtable.com/webhelp/topics/0662.htm,不会就上实例

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:110738 积分:563610 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/3/9 16:53:00 [显示全部帖子]

测试没有问题,打开窗口,切换到自定义菜单,再测试

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:110738 积分:563610 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/3/9 17:41:00 [显示全部帖子]

去掉控件事件。到表事件处理

If Forms("窗口1").opened AndAlso Forms("窗口1").Controls("CheckBox1").checked Then
    e.ContextMenu = ContextMenus("数据操作")
Else
    e.Cancel=True
End If

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:110738 积分:563610 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/3/10 14:54:00 [显示全部帖子]


 回到顶部
总数 11 1 2 下一页