Visual Basic 6-是否存在允许实现多线程的库?

如何解决Visual Basic 6-是否存在允许实现多线程的库?

| 我可以将任何库导入VB6项目以启用多线程支持吗?我知道有一些使用Windows API的示例,但是我想知道是否存在任何可以直接导入到我的项目中的库,以允许在VB6中使用此功能。我在VB6中继承了一个非常复杂的应用程序,它的任务之一是控制价值数百万美元的机械臂。我需要使用此应用程序并进行一些更改,如果可以添加多线程支持,这些更改将大大受益。将该应用程序转换为.NET将是一项艰巨的任务(对我们来说,一个很好的类比相当于明年载人前往火星的任务)。该应用程序包括几个自定义库,它们执行复杂的科学计算和数据分析。该代码已经过定制,以提供令人印象深刻的处理速度(这是VB6)。迁移到.NET平台将需要大量资源。执行管理层表示,升级系统可能很容易需要8年。我将不胜感激。 注意:我在提交此问题之前进行了搜索,但确实看到了类似的问题,但问题的答案直接指向Windows API。我的问题有点不同。我问的是已经包含此功能的库,可以在该项目中使用。也就是说,已经完成了所有使用API​​的工作的库。     

解决方法

我不知道有没有用于多线程的库。但是异步处理不一定需要线程。 Desaware拥有StateCoder,这是一个用于状态机的库,该库可帮助进行多任务而无需多线程。有点像Aysnc CTP。 另外,这是用于VB6中异步后台处理的相当标准的方案。 (例如,在Dan Appleman的书和Microsoft的VB6示例中。)您创建一个单独的ActiveX EXE来完成工作:这样,工作将自动在另一个线程中的一个单独过程中进行(该过程意味着您不必担心变量被踩踏)。 VB6 ActiveX EXE对象应公开事件CheckQuitDoStuff()。这需要一个称为Quit的ByRef布尔值。 客户端在ActiveX EXE对象中调用StartDoStuff。该例程以隐藏形式启动Timer并立即返回。这将取消阻塞调用线程。计时器间隔很短,因此计时器事件会迅速触发。 Timer事件处理程序将禁用Timer,然后再调用ActiveX对象DoStuff方法。这开始了冗长的处理。 DoStuff方法会定期引发CheckQuitDoStuff事件。客户端的事件处理程序检查特殊标志,如果有必要中止,则将其设置为True。然后,DoStuff中止计算,如果Quit为True,则提早返回。 这种方案意味着客户端实际上不需要多线程,因为在“ DoStuff”发生时调用线程不会阻塞。棘手的部分是确保DoStuff以适当的时间间隔引发事件-太长,并且您无法在想要退出时退出:太短,并且会不必要地降低DoStuff的速度。此外,DoStuff退出时,必须卸载隐藏的表单。 如果DoStuff在中止之前确实设法完成了所有工作,则可以引发另一个事件来告诉客户端作业已完成。 免责声明:我对其他问题的回答的直接副本     ,您当然可以调用Windows API来实现多线程,它实际上并不那么复杂。但是,最简单的解决方案是公开.net Com对象并通过.net实现多线程。对于已经存在的复杂功能,您可以将vb6应用程序分解为com库,该库可由多线程.net控制器调用。 [Gui]┬> [.net Com Mulit线程控制器]-> [Com公开的VB 6实用程序]        |        [> [Com公开的VB 6实用程序]     ,有关该问题的理想答案,请参见文章在Visual Basic 6中使用后台线程。     ,不幸的是,2002年elitevb创建了一个线程库。 但是在xtremevbtalk上有elitevb文章的存档。 在系统和设备部分的底部有一个帖子,其中包含threading.dll和示例源代码,这使得实现线程非常容易。据我所知,存在一个问题,即在IDE中对其进行测试会使程序崩溃,但运行已编译的程序没有任何问题。 使用该库,您可以相当灵活地创建线程:
Dim ReadValuesThread As Thread

Private Sub Form_Load()
    Set ReadValuesThread = New Thread
    ReadValuesThread.StartThread \"ReadValues\",\"None\",Me
    \' Public Function StartThread(FunctionName As String,_
    \'                             FunctionParameter As Variant,_
    \'                             ParentObject As Object) As Long
End Sub

Private Sub ReadValues()
    \' do things
End Sub

Private Sub Form_Unload(Cancel As Integer)
    \' kill thread
    ReadValuesThread.EndThread
End Sub
    

版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。

相关推荐


依赖报错 idea导入项目后依赖报错,解决方案:https://blog.csdn.net/weixin_42420249/article/details/81191861 依赖版本报错:更换其他版本 无法下载依赖可参考:https://blog.csdn.net/weixin_42628809/a
错误1:代码生成器依赖和mybatis依赖冲突 启动项目时报错如下 2021-12-03 13:33:33.927 ERROR 7228 [ main] o.s.b.d.LoggingFailureAnalysisReporter : *************************** APPL
错误1:gradle项目控制台输出为乱码 # 解决方案:https://blog.csdn.net/weixin_43501566/article/details/112482302 # 在gradle-wrapper.properties 添加以下内容 org.gradle.jvmargs=-Df
错误还原:在查询的过程中,传入的workType为0时,该条件不起作用 <select id="xxx"> SELECT di.id, di.name, di.work_type, di.updated... <where> <if test=&qu
报错如下,gcc版本太低 ^ server.c:5346:31: 错误:‘struct redisServer’没有名为‘server_cpulist’的成员 redisSetCpuAffinity(server.server_cpulist); ^ server.c: 在函数‘hasActiveC
解决方案1 1、改项目中.idea/workspace.xml配置文件,增加dynamic.classpath参数 2、搜索PropertiesComponent,添加如下 <property name="dynamic.classpath" value="tru
删除根组件app.vue中的默认代码后报错:Module Error (from ./node_modules/eslint-loader/index.js): 解决方案:关闭ESlint代码检测,在项目根目录创建vue.config.js,在文件中添加 module.exports = { lin
查看spark默认的python版本 [root@master day27]# pyspark /home/software/spark-2.3.4-bin-hadoop2.7/conf/spark-env.sh: line 2: /usr/local/hadoop/bin/hadoop: No s
使用本地python环境可以成功执行 import pandas as pd import matplotlib.pyplot as plt # 设置字体 plt.rcParams['font.sans-serif'] = ['SimHei'] # 能正确显示负号 p
错误1:Request method ‘DELETE‘ not supported 错误还原:controller层有一个接口,访问该接口时报错:Request method ‘DELETE‘ not supported 错误原因:没有接收到前端传入的参数,修改为如下 参考 错误2:cannot r
错误1:启动docker镜像时报错:Error response from daemon: driver failed programming external connectivity on endpoint quirky_allen 解决方法:重启docker -> systemctl r
错误1:private field ‘xxx‘ is never assigned 按Altʾnter快捷键,选择第2项 参考:https://blog.csdn.net/shi_hong_fei_hei/article/details/88814070 错误2:启动时报错,不能找到主启动类 #
报错如下,通过源不能下载,最后警告pip需升级版本 Requirement already satisfied: pip in c:\users\ychen\appdata\local\programs\python\python310\lib\site-packages (22.0.4) Coll
错误1:maven打包报错 错误还原:使用maven打包项目时报错如下 [ERROR] Failed to execute goal org.apache.maven.plugins:maven-resources-plugin:3.2.0:resources (default-resources)
错误1:服务调用时报错 服务消费者模块assess通过openFeign调用服务提供者模块hires 如下为服务提供者模块hires的控制层接口 @RestController @RequestMapping("/hires") public class FeignControl
错误1:运行项目后报如下错误 解决方案 报错2:Failed to execute goal org.apache.maven.plugins:maven-compiler-plugin:3.8.1:compile (default-compile) on project sb 解决方案:在pom.
参考 错误原因 过滤器或拦截器在生效时,redisTemplate还没有注入 解决方案:在注入容器时就生效 @Component //项目运行时就注入Spring容器 public class RedisBean { @Resource private RedisTemplate<String
使用vite构建项目报错 C:\Users\ychen\work>npm init @vitejs/app @vitejs/create-app is deprecated, use npm init vite instead C:\Users\ychen\AppData\Local\npm-