以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  窗体自定义右键怎么关闭  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=147054)

--  作者:裴保民
--  发布时间:2020/3/8 20:11:00
--  窗体自定义右键怎么关闭
窗体上有一个复选框,当复选框选中的时候自定义右键才显示,否则就不显示,该怎么设置?
--  作者:有点蓝
--  发布时间:2020/3/8 21:27:00
--  
什么自定义右键?右键菜单?
--  作者:裴保民
--  发布时间:2020/3/8 21:31:00
--  
窗体菜单

图片点击可在新窗口打开查看此主题相关图片如下:截图00.jpg
图片点击可在新窗口打开查看
怎样控制“快捷菜单1”显示与否?
[此贴子已经被作者于2020/3/8 21:34:42编辑过]

--  作者:有点蓝
--  发布时间: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


--  作者:裴保民
--  发布时间:2020/3/8 23:07:00
--  
e.Form.Controls("Table1").ContextStrip = e.Form.Strips("快捷菜单1")
引用率自定义快捷键,我怎么用复选框是否选中来控制右键是否生效(是否显示)呢?

--  作者:有点蓝
--  发布时间: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

--  作者:裴保民
--  发布时间:2020/3/8 23:41:00
--  
怎么控制不了呢?并且弹出错误框 

图片点击可在新窗口打开查看此主题相关图片如下:截图01.jpg
图片点击可在新窗口打开查看

图片点击可在新窗口打开查看此主题相关图片如下:截图02.jpg
图片点击可在新窗口打开查看

[此贴子已经被作者于2020/3/8 23:43:39编辑过]

--  作者:有点蓝
--  发布时间:2020/3/9 8:41:00
--  
算是个bug,等修复
--  作者:裴保民
--  发布时间:2020/3/9 9:03:00
--  
当 e.Form.Controls("Table1") 无数据的时候,怎么设置右键某一个子项禁用

什么时候能修复好呢?
[此贴子已经被作者于2020/3/9 9:06:38编辑过]

--  作者:有点蓝
--  发布时间:2020/3/9 10:32:00
--  
窗口菜单绑定表格无法控制。表格快捷菜单建议使用主菜单里的快捷菜单:http://www.foxtable.com/webhelp/topics/0662.htm