怎么实现右键菜单，弹出选项的代码

fan123

怎么实现导入，导出，删除，这些命令的代码······，因为是在超级文本框，菜单里面的

zl2017

用菜单编辑器编辑菜单
然后在对应组件右键事件里弹出菜单
弹出菜单.e (2.33 KB, 下载次数: 500)

2018-3-22 11:00 上传

点击文件名下载附件

fan123

虫儿爸

弹出菜单（）

Conquer

找设置选项，在去编写代码

编程者

编辑右键菜单的方法与普通的窗口菜单一样，（如果不希望右键菜单在窗口菜单栏中显示，必须把该菜单的可视属性设置为假）。在右键被按下时，用“弹出菜单（）”来弹出设置好的右键菜单。例：在程序中设置了一名为“右键”的菜单。希望当鼠标右键在窗口上按下时显示，可添加如下子程序：
子程序：__启动窗口_鼠标右键被按下
返回值类型：逻辑型
参数：横向位置 数据类型：整数型
参数：纵向位置 数据类型：整数型
参数：功能键状态 数据类型：整数型
弹出菜单 ( 右键 , , )
“弹出菜单”的介绍：调用格式： 〈无返回值〉 对象．弹出菜单 （菜单 欲弹出的菜单，［整数型 水平显示位置］，［整数型 垂直显示位置］） - 系统核心支持库->窗口
英文名称：PopupMenu
用于在窗口上的当前鼠标位置或指定坐标位置显示弹出式菜单，如果调用对象为窗口组件，则自动使用其所在的窗口。本命令为初级对象成员命令。
参数<1>的名称为“欲弹出的菜单”，类型为“菜单（menu）”。指定菜单内必须包含有子菜单，且所处窗口必须与调用对象窗口一致。
参数<2>的名称为“水平显示位置”，类型为“整数型（int）”，可以被省略。单位为像素点，相对于屏幕左边。如果被省略，将自动使用当前鼠标位置。
参数<3>的名称为“垂直显示位置”，类型为“整数型（int）”，可以被省略。单位为像素点，相对于屏幕顶边。如果被省略，将自动使用当前鼠标位置。
在菜单编辑器中有一个选择框名为“允许操作”，保持该项为空即不选，则相应菜单项就被禁止。
如果是在程序运行中动态设置，可以用以下代码（设菜单名称为“复制”）：
复制.禁止=真 使该菜单处于禁止状态，不可操作。
复制.禁止=假 取消菜单的禁止，使该菜单可以操作

知心涯

1. .版本 2
   
2. 
   
3. .子程序 _超级列表框出库_鼠标右键被按下, 逻辑型
   
4. .参数 横向位置, 整数型
   
5. .参数 纵向位置, 整数型
   
6. .参数 功能键状态, 整数型
   
7. 
   
8. 程序集_PP鼠标位置 ＝ 横向位置‘用来复制
   
9. 弹出菜单 (出库右键, , )
   
10. .版本 2
    
11. .支持库 shell
    
12. 
    
13. .子程序 _导入出库单_被选择
    
14. .局部变量 str, 文本型
    
15. .局部变量 strS, 文本型, , "0"
    
16. .局部变量 Num1, 整数型
    
17. .局部变量 I1, 整数型
    
18. .局部变量 tempS, 文本型, , "0"
    
19. .局部变量 id, 整数型
    
20. .局部变量 sql, 文本型
    
21. .局部变量 I2, 整数型
    
22. 
    
23. 通用对话框1.过滤器 ＝ “csv文件(*.csv)|*.csv|所有文件(*.*)|*.*”
    
24. 通用对话框1.类型 ＝ 0
    
25. 通用对话框1.初始目录 ＝ 取特定目录 (#系统桌面)
    
26. .如果真 (通用对话框1.打开 ())
    
27.     str ＝ 到文本 (读入文件 (通用对话框1.文件名))
    
28.     strS ＝ 分割文本 (str, #换行符, )
    
29.     Num1 ＝ 取数组成员数 (strS)
    
30.     id ＝ 取启动时间 ()
    
31.     .计次循环首 (Num1, I1)
    
32.         tempS ＝ 分割文本 (strS [I1], “,”, )
    
33.         .如果真 (取数组成员数 (tempS) ≥ 5)
    
34.             .计次循环首 (5, I2)
    
35.                 tempS [I2] ＝ csv去掉无用符号 (tempS [I2])
    
36.             .计次循环尾 ()
    
37.             .如果真 (tempS [1] ≠ “订单号”)
    
38.                 sql ＝ “insert into data (orderid,shop,linkman,com,code,shipid,status,id) values('[orderid]','[shop]','[linkman]','[com]','[code]','','0',[id])”
    
39.                 sql ＝ 子文本替换 (sql, “[orderid]”, tempS [1], , , 真)
    
40.                 sql ＝ 子文本替换 (sql, “[shop]”, tempS [2], , , 真)
    
41.                 sql ＝ 子文本替换 (sql, “[linkman]”, tempS [3], , , 真)
    
42.                 sql ＝ 子文本替换 (sql, “[com]”, tempS [4], , , 真)
    
43.                 sql ＝ 子文本替换 (sql, “[code]”, tempS [5], , , 真)
    
44.                 sql ＝ 子文本替换 (sql, “[id]”, 到文本 (id ＋ I1), , , 真)
    
45.                 _启动窗口.外部数据库1.执行 (sql, )
    
46. 
    
47.             .如果真结束
    
48. 
    
49.         .如果真结束
    
50. 
    
51.     .计次循环尾 ()
    
52.     出库核对物流公司名 ()
    
53.     信息框 (“导入操作处理完毕！”, 0, , )
    

复制代码

补充内容 (2018-3-22 09:24):
这个是我的右键菜单，导入CSV文件