vb实现多线程的一个另类实现方案，会有问题么？

shakoe 2008-06-24 09:45:54

采用定时器起线程~~~具体就是做一个单独功能的定时器，定时时间很短（例子里设为1）作用就是调用下线程函数，然后就关闭自己定时器。代码如下

Private Sub Form_Load()
Timer1.Enabled = False
timer1.Interval =1
End Sub

Private Sub Timer1_Timer() '专门开线程的定时器，开了以后马上关闭自己
call newthread
Timer1.Enabled = False
End Sub

Private Sub Command1_Click()
Timer1.Enabled = true '通过打开定时器开线程
end sub

Private Sub newthread() '需要开的线程函数
...
...
end sub

...全文

615 37 打赏收藏转发到动态举报

写回复

用AI写文章

37 条回复

切换为时间正序

请发表友善的回复…

发表回复

PctGL 2008-06-27

打赏
举报

传说那个功能叫做异步，而不是多线程
两个功能有时候能同样的效果，如果被调用的代码被投射到系统里面去，则能够形成一个类似
多线程的效果，但他还是单线程，这就相当于多层嵌套循环，加了一个向外跳N层的条件
可以看看这个， pctgl.vbgood.cn 里面，有个我当初研究过的异步

僵哥 2008-06-26

打赏
举报

[Quote=引用 35 楼 VB888888 的回复:]
正在学习多线程。28楼的代码打算试一下。但是不太懂，特请教：
是不是我把另外要执行的代码写在MyThread1里，然后调用一下它就会单独执行而不影响主程序呢？
[/Quote]
是的。

VB888888 2008-06-26

打赏
举报

正在学习多线程。28楼的代码打算试一下。但是不太懂，特请教：
是不是我把另外要执行的代码写在MyThread1里，然后调用一下它就会单独执行而不影响主程序呢？

hpygzhx520 2008-06-25

打赏
举报

我现在对嗷嗷叫的老马的印象有所改观了，呵呵。
我就想用msgbox来说事情的，老马描述得不错啊，支持

三楼の郎 2008-06-24

打赏
举报

猪头，我实在不想用这个词来称呼你，但是除了这个称呼外我实在想不出更恰当的。

14楼的回复是试图向你说明VB的运行机制，并同时说明你的这个想法或逻辑或这种实现方式并不是一个多线程，而仍然是个单线程，而不是为了指出Timer1.enabled=false这句代码的位置问题。

你原来的代码
......
.......
call newthread
call anothersub
是需要先执行newthread，等newthread完成返回后再执行anothersub

你新的代码
.......
Timer1.Enabled = true '通过定时器来起newthread（）这个函数实例
call anothersub
是先执行anothersub，等anothersub完成返回后再过1个毫秒的时间再执行newthread。
你认为在设置Timer1.enabled=true以后timer1就开始计时，1毫秒以后自动执行newthread，不用等到newthread返回你可以继续执行anothersub，newthread和anothersub可能会同时都在执行（anothersub执行时间超过1毫秒），但是实际上在执行Timer1.enabled=true以后Timer1并没有开始计时，而是等到Timer1.Enabled=true所在的这个过程或函数里面的所有代码都执行完成以后才会开始计时，再经过1毫秒的时间以后才会执行newthread里的内容。

你的新代码和
…………
…………
call anothersub
call newthread
这种发式的区别是浪费了1毫秒的等候时间！（call anothersub后面没有其他代码）

gzmaple 2008-06-24

打赏
举报

我理解SHAKOE的意思.
TIMER用起来确实可以隔绝其他代码的影响.TIMER在VB6的优先级是其他控件最高的.再加上上时间定时TIMER出现会出现一点偏差,跑不准了,所谓程序员老感觉TIMER耗资源的原因也就在于此.不过1楼的程序写得还是有点牵强.我觉得应该是把工作代码放到TIMER定时区间里干活,这样回避其他单线程代码对TIMER内代码的约束.

僵哥 2008-06-24

打赏
举报

你可以说是一个通过消息机制进行任务的串行，但是并不能称之为多线程。这种串行，只能达到某一些特定的目的，但是并不能达到多线程的并行机制。对于消息的处理，当我现在有一个死循环在作业，并且没有任何消息处理（Call DoEvents），那么你什么Timer也交无济于事。但是线程却是相互独立。

僵哥 2008-06-24

打赏
举报

[Quote=引用 18 楼 shakoe 的回复:]
多线程么就是这么回事情，可以说vb6的一个定时器就是一个线程，

我就是把自己的函数通过定时器简单的实现下多线程的机制，但是想知道会出现什么问题么

难道都没人能理解这个问题么。
[/Quote]
有谁告诉过你VB6的一个定时器就是一个线程？还是什么权威资料说明如此，还是你自己的想当然？

shakoe 2008-06-24

打赏
举报

多线程么就是这么回事情，可以说vb6的一个定时器就是一个线程，

我就是把自己的函数通过定时器简单的实现下多线程的机制，但是想知道会出现什么问题么

难道都没人能理解这个问题么。

shakoe 2008-06-24

打赏
举报

发表于：2008-06-24 12:34:4516楼得分:0
建议楼主还是看书吧，直接看不明白什么是多线程的话，就看看操作系统原理。

昏迷啊，只是用不同的方式看看如何解决问题。

计算机是实践科学不是理论科学，只要能达到目的，无论怎么做都可以啊。

僵哥 2008-06-24

打赏
举报

建议楼主还是看书吧，直接看不明白什么是多线程的话，就看看操作系统原理。

shakoe 2008-06-24

打赏
举报

楼上的我代码的确是错了，在定时器里面，先关闭自己的Enabled 再调用newthread （）

Private Sub Timer1_Timer() '专门开线程的定时器，开了以后马上关闭自己
Timer1.Enabled = False
call newthread
End Sub

我要实现的功能是调用完newthread （）后直接不等newthread （）走完就执行下一条语句，

原来的代码
......
.......
call newthread
call anothersub
要走到call anothersub这步，必须等call newthread，newthread（）这个函数走完。

那么我要实现调用完newthread （）后直接不等newthread （）走完就执行下一条语句本来可以
......
.......
creatthread(newthread ,.....)
call anothersub
通过另外开一个线程来实现，但是vb6对creatthread（）的支持不够，编译好执行会出错

所以我用本帖的机制实现了这个需求
.......
Timer1.Enabled = true '通过定时器来起newthread（）这个函数实例
call anothersub
走到call anothersub这步就不需要newthread（）这个函数走完。

这是一个标准的多线程的逻辑，所以我希望开贴讨论的是这么做带来的问题，而不是这么做是不是多线程

三楼の郎 2008-06-24

打赏
举报

显然搂主对于多线程的概念还不是很清楚。

如果newthread()是在一个独立的线程中运行的话，newthread()的运行情况应该是不会影响到VB主线程的运行的，但是实际上在newthread()返回之前主线程里的Timer1.Enabled = False 根本就不会运行，由此可见newthread()实际上还是在VB的主线程里运行，并没有产生新的线程。

或许你会说在newthread()里使用Doevents语句后就可以在newthread()返回之前先运行Timer1.Enabled = False，但是实际上Doevents的作用是释放系统的控制权，正因为newthread()占用了VB的主线程，所以才需要释放以后才能执行Timer1.Enabled = False这个语句，由此也可以说明newthread()是在VB主线程里运行的，并没有建立新的线程。而Doevents只是改变了代码执行的优先级，在newthread()里面使用Doevents以后VB会优先执行其他代码，只有在空闲时才会执行newthread()里面的代码，如果有其他事件发生，VB会暂停执行newthread()里的代码，优先响应其他事件，等其他事件响应完成后再回来继续执行newthread()。

所以这不是多线程

shakoe 2008-06-24

打赏
举报

由于timer控件也是一个ActivX控件

所以是不是在一些特定的应用里，可以利用timer实现一些多线程的功能

shakoe 2008-06-24

打赏
举报

是呀，

简单的说我要实现的功能是

在我调用newthread()那个函数后，不用关心他是否完成，让newthread()在后台运行，直接去下一条语句

这就类似开一个线程了

本来的逻辑如下
......
.......
call newthread
call anothersub
要走到call anothersub这步，必须等call newthread，newthread（）这个函数走完。

但是使用本帖的机制后，

......
.......
Timer1.Enabled = true '通过定时器来起newthread（）这个函数实例
call anothersub
走到call anothersub这步就步需要newthread（）这个函数走完。

是不是类似在主线程之外另外又开了个线程去做newthread（），这样的形式。

而且同时能够多次调用newthread（），而不去考虑前一个newthread（）是否完成。

当然我也隐约觉得在使用定时器的时候，不能做到同一时间片上的开多线程，例如以下语句就可能只起一个newthread（）函数实例
Timer1.Enabled = true
Timer1.Enabled = true
而以下语句就能起2个实例
Timer1.Enabled = true
delay(1) '延迟1秒
Timer1.Enabled = true

但是由于我目前的应用之间会有不少时间间隔所以这个问题还不敏感。

vansoft 2008-06-24

打赏
举报

以我的智慧很难向楼主解释。

留与后来人。

嗷嗷叫的老马 2008-06-24

打赏
举报

[Quote=引用 8 楼 unsigned 的回复:]
汗，没注意，楼主所谓的newthread，竟然是在Timer当中直接Call，看来真如我在三楼说的，楼主压根儿就没理解什么是多线程，或者说也没有理解Timer的工作机制。
[/Quote]

可怜的僵哥,晕了吧,哇哈哈哈哈哈哈哈哈哈哈

嗷嗷叫的老马 2008-06-24

打赏
举报

[Quote=引用 5 楼 shakoe 的回复:]
发表于：2008-06-24 10:20:071楼得分:0
这种方式仍然是单线程，不能实现多线程。

为啥不是多线程呢，我调用完timer1,然后再调用timer1的时候，不管newthread()有没有执行完都会再起一个newthread()实例的。

我只是觉得这种方法对于一些简单的应用可能是一个相当直接的解决方案。

因为我已经在我的一个代码里通过这个方法实现了多线程，但是我担心可能带来一些问题。

麻烦大家拓展下思维，不要根据经验来下…
[/Quote]

//

看来还没有明白多线程的概念,呵呵~~~~~~

举个例子给你:)

假设有一天你在写代码~~~~然后突然你后背痒痒了~~~~如果此时你停下写代码的工作,转而挠痒痒去,就是等于你直接在按钮里CALL那个newthread()~~

在你没挠完痒痒前,你是没办法继续写代码的~~~~因为你只有两只手(newthread返回前,按钮过程不会返回).

再假设,这个时候,如果你有一个保姆,你可以告诉她,"帮我挠痒痒,在后背坐标为X,Y的地方~~~"

于是你就可以继续做你的工作;但本质上这并不是你自己完成的,而是由保姆(操作系统)来替你完成的.(TIMER本质上是系统的一个回调,你给了一个回调时间)

就如你的代码.

继续.

再再假设,如果你此时多长了两只手,那么你就可以用那两只手挠痒痒,再用剩下的两只手写代码~~~~

这样才是真正的多线程.....

也许比喻不是很合适,但大概的意思是这样了,看看能否明白吧:)

僵哥 2008-06-24

打赏
举报

汗，没注意，楼主所谓的newthread，竟然是在Timer当中直接Call，看来真如我在三楼说的，楼主压根儿就没理解什么是多线程，或者说也没有理解Timer的工作机制。

yachong 2008-06-24

打赏
举报

楼主的还是单线程，你试试下面的程序能输出多个时间吗？
Private Sub Form_Load()
Timer1.Enabled = False
Timer1.Interval = 1
End Sub

Private Sub Timer1_Timer() '专门开线程的定时器，开了以后马上关闭自己
Call newthread(Now)
Timer1.Enabled = False
End Sub

Private Sub Command1_Click()
Timer1.Enabled = True '通过打开定时器开线程
End Sub

Private Sub newthread(ByVal s As String) '需要开的线程函数
Do While True
Debug.Print s
Loop
End Sub