有没有什么办法让两个过程齐头并进,同步执行?比如我有两个都是很长的循环过程,我想让他们完全同步开始,同步执行.

Question

比如我有两个都是很长的循环过程,我想让他们完全同步开始,同步执行.
有可能吗?好像只能顺序执行?
多谢!!

Answer 1

在VB中，最佳的办法就是在循环中加入DoEvents
或者是将循环代码改写分别放入两个Timer中

Answer 2

楼上都说了循环中加了　DoEvents　甚至 sleep
然后将两过程放在事件过程中主过程负责触发事件timer最简单，但参数比较麻烦，所以自定义个，事件类的说，比较方便
VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
  Persistable = 0  'NotPersistable
  DataBindingBehavior = 0  'vbNone
  DataSourceBehavior  = 0  'vbNone
  MTSTransactionMode  = 0  'NotAnMTSObject
END
Attribute VB_Name = "clsEvents"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
'''事件类，用于异步操作'''
''''
Public Event OpenFile(ByVal fileName As String)Friend Function Raise(ByVal eName As String, Optional ByVal var As Variant)
    Dim tName As String
    tName = LCase(eName)
    Select Case tName
    Case "openfile": RaiseEvent OpenFile(CStr(var)) '打开文件事件
    End Select
End Function以上代码直接存成clsPrivate WithEvents Evt As clsEvents
    Evt.Raise "OpenFile", fileName
Private Sub Evt_OpenFile(ByVal fName As String)
    ''文件打开事件
    ''Debug.Print priStream.Read
    ''WBIE.Document(1).body.innerhtml = priXml6.xml
    ''WBIE.LoadHTMLFromString 1, priXml6.xml, "http://www.baidu.com/"
    Debug.Print priXml6.documentElement
End Sub
以上代码看着叫

Answer 3

哈,想利用多个CPU核心提高多倍速度么?用多线程吧!http://www.m5home.com/bak_blog/article/287.html给你个用多线程提高穷举速度的代码.你的应用应该与这个例子差不多.