怎么用类简化这种控件事件的代码？还是只能用子程序？

独倚斜阳

大概有十几个不同的高级表格 都有下面同样的事件，_高级表格_将被编辑我能不能写成类？
然后程序执行初期  高级表格策略1.方法_初始化表格名称赋值 (高级表格1)   去给类赋值具体的高级表格

目的是以后这个高级表格1 将被编辑或者按钮被点击之类的 直接执行方法 不用在程序集里面另外重写 但是我这样写 这种事件触发的 执行不了  除非我改成类似子程序传参

  

子程序名	返回值类型	公开	备 注
_高级表格1_将被编辑

变量名	类 型	静态	数组	备 注
列号	整数型

高级表格策略1._成员_将被编辑 (列号)   ’然后把类里面的列号变成参数

.版本 2<br /> <br /> .子程序 _高级表格1_将被编辑<br /> .局部变量 列号, 整数型<br /> <br /> 高级表格策略1._成员_将被编辑 (列号)   ’然后把类里面的列号变成参数

但是这样又失去类的意义了

.版本 2
.支持库 eGrid

.程序集 类_高级表格默认, , 公开
.程序集变量 成员, 高级表格
.程序集变量 高级表格_数据编辑中, 逻辑型

.子程序 _初始化, , , 当基于本类的对象被创建后，此方法会被自动调用



.子程序 _销毁, , , 当基于本类的对象被销毁前，此方法会被自动调用



.子程序 方法_初始化表格名称赋值, , 公开
.参数 参数, 高级表格

成员 ＝ 参数


.子程序 _成员_将被编辑, , 公开
.局部变量 列号, 整数型

列号 ＝ 成员.取光标列号 ()
.如果 (列号 ＝ 0)
    ' 无改变
.否则
    高级表格_数据编辑中 ＝ 真  ' 点选到非标题列 用全局变量状态加锁 防止高级表格编辑过程中被另外线程**
.如果结束

输出调试文本 (“高级表格_数据编辑中=” ＋ 到文本 (高级表格_数据编辑中))







补充内容 (2023-1-25 22:16):
还是说 这种不能用类去实现，只能用 取事件组件 ()  然后给每个高级表格添加标记  

通过标记去判断每个的事件？

菜鸟路过

添加一个窗口程序集变量a，类型定义成你的类名称
在启动方法哪里添加a.方法_初始化表格名称赋值()
在高级表格将被编辑哪里 写上 a._成员_将被编辑()
这样你就可以在类里面操作表格了...

独倚斜阳

  

窗口程序集名	保 留	保 留	备 注
类_高级表格默认, , 公开
变量名	类 型	数组	备 注
成员	高级表格
高级表格_数据编辑中	逻辑型

子程序名	返回值类型	公开	备 注
_初始化			当基于本类的对象被创建后，此方法会被自动调用

子程序名	返回值类型	公开	备 注
_销毁			当基于本类的对象被销毁前，此方法会被自动调用

子程序名	返回值类型	公开	备 注
方法_初始化表格名称赋值
参数名	类 型	参考	可空	数组	备 注
参数	高级表格

成员 ＝ 参数

子程序名	返回值类型	公开	备 注
_成员_将被编辑

变量名	类 型	静态	数组	备 注
列号	整数型

列号 ＝ 成员.取光标列号 ()
如果 (列号 ＝ 0)
' 无改变
高级表格_数据编辑中 ＝ 真  ' 点选到非标题列 用全局变量状态加锁 防止高级表格编辑过程中被另外线程**

输出调试文本 (“高级表格_数据编辑中=” ＋ 到文本 (高级表格_数据编辑中))

i支持库列表	支持库注释
eGrid	高级表格支持库

.版本 2<br /> .支持库 eGrid<br /> <br /> .程序集 类_高级表格默认, , 公开<br /> .程序集变量 成员, 高级表格<br /> .程序集变量 高级表格_数据编辑中, 逻辑型<br /> <br /> .子程序 _初始化, , , 当基于本类的对象被创建后，此方法会被自动调用<br /> <br /> <br /> <br /> .子程序 _销毁, , , 当基于本类的对象被销毁前，此方法会被自动调用<br /> <br /> <br /> <br /> .子程序 方法_初始化表格名称赋值, , 公开<br /> .参数 参数, 高级表格<br /> <br /> 成员 ＝ 参数<br /> <br /> <br /> .子程序 _成员_将被编辑, , 公开<br /> .局部变量 列号, 整数型<br /> <br /> 列号 ＝ 成员.取光标列号 ()<br /> .如果 (列号 ＝ 0)<br />     ' 无改变<br /> .否则<br />     高级表格_数据编辑中 ＝ 真  ' 点选到非标题列 用全局变量状态加锁 防止高级表格编辑过程中被另外线程**<br /> .如果结束<br /> <br /> 输出调试文本 (“高级表格_数据编辑中=” ＋ 到文本 (高级表格_数据编辑中))

独倚斜阳

也就是 不要高级表格 每次将被编辑 结束编辑  被点击  都重新写一次程序集的事件  类方法的定义能做到吗  还是说 还是必须类似子程序那样 都写一次 被编辑 被点击 结束编辑 然后里面再去调用类

菜鸟路过

独倚斜阳 发表于 2023-1-25 22:04
也就是 不要高级表格 每次将被编辑 结束编辑  被点击  都重新写一次程序集的事件  类方法的定义能做到吗   ...

在事件转移到类程序下

独倚斜阳

菜鸟路过 发表于 2023-1-25 22:23
在事件转移到类程序下

事件转移 单独会用 但是结合类就不会转移了……

菜鸟路过

独倚斜阳 发表于 2023-1-25 23:08
事件转移 单独会用 但是结合类就不会转移了……

和调用程序一个道理，只不过要在他的事件下 把事件转移到类里面去处理罢了..

独倚斜阳

菜鸟路过 发表于 2023-1-25 23:10
和调用程序一个道理，只不过要在他的事件下 把事件转移到类里面去处理罢了.. ...

类

  

窗口程序集名	保 留	保 留	备 注
类_高级表格默认, , 公开
变量名	类 型	数组	备 注
成员	高级表格
高级表格_数据编辑中	逻辑型

子程序名	返回值类型	公开	备 注
_初始化			当基于本类的对象被创建后，此方法会被自动调用

子程序名	返回值类型	公开	备 注
_销毁			当基于本类的对象被销毁前，此方法会被自动调用

子程序名	返回值类型	公开	备 注
方法_初始化表格名称赋值
参数名	类 型	参考	可空	数组	备 注
参数	高级表格

成员 ＝ 参数

子程序名	返回值类型	公开	备 注
_成员_将被编辑

变量名	类 型	静态	数组	备 注
列号	整数型

列号 ＝ 成员.取光标列号 ()
如果 (列号 ＝ 0)
' 无改变
高级表格_数据编辑中 ＝ 真  ' 点选到非标题列 用全局变量状态加锁 防止高级表格编辑过程中被另外线程**

输出调试文本 (“高级表格_数据编辑中=” ＋ 到文本 (高级表格_数据编辑中))

i支持库列表	支持库注释
eGrid	高级表格支持库

.版本 2<br /> .支持库 eGrid<br /> <br /> .程序集 类_高级表格默认, , 公开<br /> .程序集变量 成员, 高级表格<br /> .程序集变量 高级表格_数据编辑中, 逻辑型<br /> <br /> .子程序 _初始化, , , 当基于本类的对象被创建后，此方法会被自动调用<br /> <br /> <br /> <br /> .子程序 _销毁, , , 当基于本类的对象被销毁前，此方法会被自动调用<br /> <br /> <br /> <br /> .子程序 方法_初始化表格名称赋值, , 公开<br /> .参数 参数, 高级表格<br /> <br /> 成员 ＝ 参数<br /> <br /> <br /> .子程序 _成员_将被编辑, , 公开<br /> .局部变量 列号, 整数型<br /> <br /> 列号 ＝ 成员.取光标列号 ()<br /> .如果 (列号 ＝ 0)<br />     ' 无改变<br /> .否则<br />     高级表格_数据编辑中 ＝ 真  ' 点选到非标题列 用全局变量状态加锁 防止高级表格编辑过程中被另外线程**<br /> .如果结束<br /> <br /> 输出调试文本 (“高级表格_数据编辑中=” ＋ 到文本 (高级表格_数据编辑中))

程序集

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口

子程序名	返回值类型	公开	备 注
_高级表格1_将被编辑

变量名	类 型	静态	数组	备 注
列号	整数型

事件转移 (高级表格1, 高级表格策略1.成员)

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

' 全局变量赋值
高级表格策略1.方法_初始化表格名称赋值 (高级表格1)

.版本 2<br /> <br /> .程序集 窗口程序集_启动窗口<br /> <br /> .子程序 _高级表格1_将被编辑<br /> .局部变量 列号, 整数型<br /> <br /> 事件转移 (高级表格1, 高级表格策略1.成员)<br /> <br /> <br /> .子程序 _启动窗口_创建完毕<br /> <br /> ' 全局变量赋值<br /> 高级表格策略1.方法_初始化表格名称赋值 (高级表格1)

其中类里面的成员 是高级表格，这里事件转移转移不进去啊 错误(34): 找不到指定的对象成员名称“成员”。

菜鸟路过

独倚斜阳 发表于 2023-1-25 23:17
类

[e=0].版本 2

不是你这样写的