关于弹出菜单的问题

易智趣吖

常规写法是 超级列表框加入一个事件，窗口1.超级列表框1.弹出菜单 (菜单, , )

但是有多个超级列表框好像有个写法是 把弹出菜单放在子程序

然后在加入的事件里面调用子程序，那么要传一个啥参数过去 才能打开当前操作的超级列表框菜单咧~

mytiger

  

子程序名	返回值类型	公开	备 注
__启动窗口_创建完毕

变量名	类 型	静态	数组	备 注
i	整数型
x	整数型
对象	超级列表框

x ＝ 寻找组件 (_启动窗口, , “超级列表框”, , )
计次循环首 (取找到组件数目 (x), i)
对象 ＝ 取所找到组件 (x, i － 1)
如果真 (取组件名称 (对象) ≠ “超级列表框1”)
事件转移 (对象, 超级列表框1)

计次循环尾 ()

子程序名	返回值类型	公开	备 注
_超级列表框1_鼠标右键被放开	逻辑型
参数名	类 型	参考	可空	数组	备 注
横向位置	整数型
纵向位置	整数型
功能键状态	整数型

变量名	类 型	静态	数组	备 注
对象	超级列表框

对象 ＝ 取事件组件 ()
调试输出 (取组件名称 (对象))

i支持库列表	支持库注释
iext	扩展界面支持库一
spec	特殊功能支持库

.版本 2<br /> .支持库 iext<br /> .支持库 spec<br /> <br /> .子程序 __启动窗口_创建完毕<br /> .局部变量 i, 整数型<br /> .局部变量 x, 整数型<br /> .局部变量 对象, 超级列表框<br /> <br /> x ＝ 寻找组件 (_启动窗口, , “超级列表框”, , )<br /> .计次循环首 (取找到组件数目 (x), i)<br />     对象 ＝ 取所找到组件 (x, i － 1)<br />     .如果真 (取组件名称 (对象) ≠ “超级列表框1”)<br />         事件转移 (对象, 超级列表框1)<br />     .如果真结束<br /> <br /> .计次循环尾 ()<br /> <br /> .子程序 _超级列表框1_鼠标右键被放开, 逻辑型<br /> .参数 横向位置, 整数型<br /> .参数 纵向位置, 整数型<br /> .参数 功能键状态, 整数型<br /> .局部变量 对象, 超级列表框<br /> <br /> 对象 ＝ 取事件组件 ()<br /> 调试输出 (取组件名称 (对象))

1752328925

你的意思是两个超级列表对应两个菜单， 需要优化代码对吗

易智趣吖

就是还有种调用子程序方式弹出菜单不知道咋写

这是现在用的方式

b0y

事件转移  然后获取事件组件.弹出菜单

传奇

弹出菜单 (菜单, , )  前面不要加东西