有没有什么办法让两个过程齐头并进,同步执行?比如我有两个都是很长的循环过程,我想让他们完全同步开始,同步执行.
比如我有两个都是很长的循环过程,我想让他们完全同步开始,同步执行.
有可能吗?好像只能顺序执行?
多谢!!
[解决办法]
楼上都说了
循环中加了 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
Private 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
