请教自己怎么封装 回调函数

kirbysxh

请教大佬回调函数的写法  最好有子程序里的封装方法 和类里的封装方法 的例子

呵呵仙

  

子程序名	返回值类型	公开	备 注
_按钮3_被单击

E文件_枚举所有文件名 (“F:\”, , , &_回调枚举子程序)

子程序名	返回值类型	公开	备 注
_回调枚举子程序
参数名	类 型	参考	可空	数组	备 注
变量地址	整数型

变量名	类 型	静态	数组	备 注
JB	ZD过程文件名

ASM_交换_变量交地址 (JB, 变量地址)
调试输出 (JB.文件名, JB.完整文件路径)

i支持库列表	支持库注释
spec	特殊功能支持库

.版本 2<br /> .支持库 spec<br /> <br /> .子程序 _按钮3_被单击<br /> <br /> E文件_枚举所有文件名 (“F:\”, , , &_回调枚举子程序)<br /> <br /> .子程序 _回调枚举子程序<br /> .参数 变量地址, 整数型<br /> .局部变量 JB, ZD过程文件名<br /> <br /> ASM_交换_变量交地址 (JB, 变量地址)<br /> 调试输出 (JB.文件名, JB.完整文件路径)

这是用法,有人可能会问?为何用整数型?我可以当时是打算用在DLL吧!!

青梅

https://bbs.125.la/forum.php?mod ... 3%E5%87%BD%E6%95%B0

无痕雨

  

子程序名	返回值类型	公开	备 注
_按钮1_被单击

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

计次循环首 (5, i)
启动线程 (&执行任务, i, )
计次循环尾 ()

子程序名	返回值类型	公开	备 注
执行任务
参数名	类 型	参考	可空	数组	备 注
id	整数型

变量名	类 型	静态	数组	备 注
data	文本型

data ＝ “我是提示文本内容”
回调函数 (data, “我是第” ＋ 到文本 (id) ＋ “条线程”)

子程序名	返回值类型	公开	备 注
回调函数
参数名	类 型	参考	可空	数组	备 注
结果	文本型
Txt	文本型

调试输出 (“提交结果：” ＋ 结果, “Txt内容：” ＋ Txt)

i支持库列表	支持库注释
EThread	多线程支持库
spec	特殊功能支持库

.版本 2<br /> .支持库 EThread<br /> .支持库 spec<br /> <br /> .子程序 _按钮1_被单击<br /> .局部变量 i, 整数型<br /> <br /> .计次循环首 (5, i)<br />     启动线程 (&执行任务, i, )<br /> .计次循环尾 ()<br /> <br /> .子程序 执行任务<br /> .参数 id, 整数型<br /> .局部变量 data, 文本型<br /> <br /> data ＝ “我是提示文本内容”<br /> 回调函数 (data, “我是第” ＋ 到文本 (id) ＋ “条线程”)<br /> <br /> .子程序 回调函数<br /> .参数 结果, 文本型<br /> .参数 Txt, 文本型<br /> <br /> 调试输出 (“提交结果：” ＋ 结果, “Txt内容：” ＋ Txt)

补充内容 (2024-4-29 17:56):
不知道你是要的这种效果还是哪一种

呵呵仙

应该是个模块都会有你想要的例子吧!!如果没有可以找下这里面有没?https://bbs.125.la/forum.php?mod ... 14759821&extra=

呵呵仙

如E文件_枚举所有文件名

Tenacitys

  

子程序名	返回值类型	公开	备 注
_启动子程序	整数型		本子程序在程序启动后最先执行

Test (“回调参数”, &回调函数)
返回 (0)  ' 可以根据您的需要返回任意数值

子程序名	返回值类型	公开	备 注
Test
参数名	类 型	参考	可空	数组	备 注
参数	文本型
回调函数指针	子程序指针

调用子程序 (回调函数指针, , , 参数)

子程序名	返回值类型	公开	备 注
回调函数
参数名	类 型	参考	可空	数组	备 注
参数	文本型

调试输出 (“回调函数被调用”, “参数：” ＋ 参数)

i支持库列表	支持库注释
spec	特殊功能支持库

.版本 2<br /> .支持库 spec<br /> <br /> .子程序 _启动子程序, 整数型, , 本子程序在程序启动后最先执行<br /> <br /> Test (“回调参数”, &回调函数)<br /> 返回 (0)  ' 可以根据您的需要返回任意数值<br /> <br /> .子程序 Test<br /> .参数 参数, 文本型<br /> .参数 回调函数指针, 子程序指针<br /> <br /> 调用子程序 (回调函数指针, , , 参数)<br /> <br /> .子程序 回调函数<br /> .参数 参数, 文本型<br /> <br /> 调试输出 (“回调函数被调用”, “参数：” ＋ 参数)

幻想大人

参考这个，

  

子程序名	返回值类型	公开	备 注
进程监控_主线程
参数名	类 型	参考	可空	数组	备 注
回调指针	整数型

变量名	类 型	静态	数组	备 注
objWbemLocator	对象
objWMIService	对象
colMonitoredProcesses	对象
objLatestProcess	对象
ObjectText	文本型
json	类_json
CommandLine	文本型			命令行
ExecutablePath	文本型			进程路径
ProcessId	整数型			进程ID
ParentProcessId	整数型			父ID
Name	文本型			进程名

CoInitialize (0)  ' 初始化COM库
objWbemLocator.创建 (“WbemScripting.SWbemLocator”, )
objWMIService ＝ objWbemLocator.对象型方法 (“ConnectServer”, “.”, “root\CIMV2”, , , , , , )
colMonitoredProcesses ＝ objWMIService.对象型方法 (“ExecNotificationQuery”, “select * from __instancecreationevent within 1 where TargetInstance isa 'Win32_Process'”)
判断循环首 (真)
objLatestProcess ＝ colMonitoredProcesses.对象型方法 (“NextEvent”, )
如果真 (objLatestProcess.是否为空 () ＝ 假)
ObjectText ＝ objLatestProcess.文本方法 (“GetObjectText_”, )
' 返回值替换成json格式文本
ObjectText ＝ 子文本替换 (ObjectText, 字符 (10), “”, , , 真)
ObjectText ＝ 子文本替换 (ObjectText, “;” ＋ 字符 ( #Tab键 ), “,” ＋ #引号, , , 真)
ObjectText ＝ “{” ＋ 文本_取出中间文本 (ObjectText, “Process{”, “},”, , ) ＋ “}”
ObjectText ＝ 子文本替换 (ObjectText, “ = ”, #引号 ＋ “:”, , , 真)
ObjectText ＝ 子文本替换 (ObjectText, 字符 ( #Tab键 ), #引号, , , 真)
ObjectText ＝ 子文本替换 (ObjectText, “;”, “”, , , 真)
' 解析结果
如果真 (json.解析 (ObjectText, , ))
CommandLine ＝ json.取通用属性 (“CommandLine”, )  ' 命令行
ExecutablePath ＝ json.取通用属性 (“ExecutablePath”, )  ' 进程路径
ProcessId ＝ 到整数 (json.取通用属性 (“ProcessId”, ))  ' 进程ID
ParentProcessId ＝ 到整数 (json.取通用属性 (“ParentProcessId”, ))  ' 父ID
Name ＝ json.取通用属性 (“Name”, )  ' 进程名
程序_Call (回调指针, lstrcpyn_文本型 (CommandLine, CommandLine, 0), lstrcpyn_文本型 (ExecutablePath, ExecutablePath, 0), ProcessId, ParentProcessId, lstrcpyn_文本型 (Name, Name, 0))


判断循环尾 ()
CoUninitialize ()  ' 取消COM库初始化

.版本 2<br /> <br /> .子程序 进程监控_主线程<br /> .参数 回调指针, 整数型<br /> .局部变量 objWbemLocator, 对象<br /> .局部变量 objWMIService, 对象<br /> .局部变量 colMonitoredProcesses, 对象<br /> .局部变量 objLatestProcess, 对象<br /> .局部变量 ObjectText, 文本型<br /> .局部变量 json, 类_json<br /> .局部变量 CommandLine, 文本型, , , 命令行<br /> .局部变量 ExecutablePath, 文本型, , , 进程路径<br /> .局部变量 ProcessId, 整数型, , , 进程ID<br /> .局部变量 ParentProcessId, 整数型, , , 父ID<br /> .局部变量 Name, 文本型, , , 进程名<br /> <br /> CoInitialize (0)  ' 初始化COM库<br /> objWbemLocator.创建 (“WbemScripting.SWbemLocator”, )<br /> objWMIService ＝ objWbemLocator.对象型方法 (“ConnectServer”, “.”, “root\CIMV2”, , , , , , )<br /> colMonitoredProcesses ＝ objWMIService.对象型方法 (“ExecNotificationQuery”, “select * from __instancecreationevent within 1 where TargetInstance isa 'Win32_Process'”)<br /> .判断循环首 (真)<br />     objLatestProcess ＝ colMonitoredProcesses.对象型方法 (“NextEvent”, )<br />     .如果真 (objLatestProcess.是否为空 () ＝ 假)<br />         ObjectText ＝ objLatestProcess.文本方法 (“GetObjectText_”, )<br />         ' 返回值替换成json格式文本<br />         ObjectText ＝ 子文本替换 (ObjectText, 字符 (10), “”, , , 真)<br />         ObjectText ＝ 子文本替换 (ObjectText, “;” ＋ 字符 (#Tab键), “,” ＋ #引号, , , 真)<br />         ObjectText ＝ “{” ＋ 文本_取出中间文本 (ObjectText, “Process{”, “},”, , ) ＋ “}”<br />         ObjectText ＝ 子文本替换 (ObjectText, “ = ”, #引号 ＋ “:”, , , 真)<br />         ObjectText ＝ 子文本替换 (ObjectText, 字符 (#Tab键), #引号, , , 真)<br />         ObjectText ＝ 子文本替换 (ObjectText, “;”, “”, , , 真)<br />         ' 解析结果<br />         .如果真 (json.解析 (ObjectText, , ))<br />             CommandLine ＝ json.取通用属性 (“CommandLine”, )  ' 命令行<br />             ExecutablePath ＝ json.取通用属性 (“ExecutablePath”, )  ' 进程路径<br />             ProcessId ＝ 到整数 (json.取通用属性 (“ProcessId”, ))  ' 进程ID<br />             ParentProcessId ＝ 到整数 (json.取通用属性 (“ParentProcessId”, ))  ' 父ID<br />             Name ＝ json.取通用属性 (“Name”, )  ' 进程名<br />             程序_Call (回调指针, lstrcpyn_文本型 (CommandLine, CommandLine, 0), lstrcpyn_文本型 (ExecutablePath, ExecutablePath, 0), ProcessId, ParentProcessId, lstrcpyn_文本型 (Name, Name, 0))<br />         .如果真结束<br /> <br />     .如果真结束<br /> <br /> .判断循环尾 ()<br /> CoUninitialize ()  ' 取消COM库初始化