——vba怎么实现并行程序设计

求助——vba如何实现并行程序设计
问题基于这样的一个需求我的一个数据处理的程序，处理数据需要相当长的时间，所以给程序添加了显示运行进度的窗体，进度用prograssbar实现了现在我想在加个计时的功能就是显示程序已经运行的时间并结合运行进度和已运行时间估算剩余时间就像压缩的程序那样

问题就在对程序进行运行计时，一开始是想通过一个计时函数timecounter（）实现，其中用DOENVENT 使得当窗体加载后窗体上显示的时间正常（这是主程序没有运行的时候）因为窗体显示不占用系统所以doenvet 到了程序中设计的1秒时间后自动返回然后在下一个循环总而言之计时正常但是一旦主程序运行了因为程序运行要很久一旦计时程序转让了控制权主程序不会主动让出控制权在运行结束之前所以计时就失败了

函数如下

VB code

Sub time_Counter()' 使用前要初始化 Costtime 和 打开计时器开关 TurnOff_clock' 使用完 要关闭计时器开关'Costtime  计数器'TurnOff_clock  计时开关Dim tempN As IntegerDim lastTimee As String    PauseTime = 1    ' 设置暂停时间。        While TurnOff_clock &lt;&gt; 0    Start = Timer    '---------------------------------晶振    Do While Timer &lt; Start + PauseTime                       DoEvents    ' 将控制让给其他程序。    Loop    '---------------------------------晶振    '---------------------------------表盘    Costtime = Costtime + 1        If Costtime &gt;= 60 Then    Timee = Costtime \ 60 & ":" & Format(Costtime Mod 60, "00")    Else    Timee = "0:" & Format(Costtime, "00")    End If    formain.Labpast.Caption = "已运行:" & Timee     'timee  为计时输出变量    formain1.Label3.Caption = "已运行:" & Timee    'timee  为计时输出变量            '-------------------------计算剩余时间    tempN = (Costtime / (formain.gloProgressBar.Value + 1)) * 100    If tempN &gt;= 60 Then    lastTimee = tempN \ 60 & ":" & Format(tempN Mod 60, "00")    Else    lastTimee = "0:" & Format(tempN, "00")    End If    formain.Lablast.Caption = "估计剩余:" & lastTimee        WendEnd Sub

如何实现对程序运行计时呢？？？是vba 没有timer控件只有timer函数
算是并行的程序设计虽然相互之间不用交互只有触发和终止的关系，VB中如何并行程序设计呢

[解决办法]
事实上并需要timer
你所谓的主程序应该是就是应该就是过程或者函数，运行时间很长，意味着，你的函数体里有循环次数很多的循环，你只要在循环体里面加入，以下代码假设你的循环为for循环

for....

......
progressbar1.value=progressbar1.value+delta'进度增加值，假设使用进度条显示进度
doevents
next

就能得到需要的效果
[解决办法]
这和单步的运行时间有什么关系？
计时部分先记下开始时间；然后每次更新进度时再取一下当前时间，就可以计算经过时间了、结合进度比率可以计算剩余时间。这不就全了！
[解决办法]
用timer控件就可以实现了

假设你的循环

for
Text1.text = now
..

next

每次循环时间都不固定

timer控件里头可以可以根据Text1.text的变化，来递增时间，下面是个例子

text1,command1,text2,timer1
text1是你的循环里头的那个时间
command1是你的循环不固定时间控制
text2是你需要不断显示的准确时间

Private Sub Command1_Click()
Text1.Text = Time
End Sub

Private Sub Text1_Change()
Text2.Text = Text1.Text
Timer1.Interval = 1000
End Sub

Private Sub Timer1_Timer()
Text2.Text = TimeValue(Text2.Text) + TimeValue("00:00:01")
End Sub

[解决办法]
楼主：想要的是标准的多线程了。。。

任何其他的类似 Timer 的东西，都无法实现你想要的，它们只能近似模拟出效果而已，无论再怎么做，它们都不是实际意义上的多线程！

看了你的要求和回贴，感觉你要的就是纯粹的多线程！VB6 做多线程也还可以，VBA 不知道能不能做了。。。应该是可以吧！

总之，两种途径：1、直接调用多线程 WIN32DLL；2、使用 VB 自身的 ACTIVEX DLL 工程；
[解决办法]
把刷新进度的步骤分得更细点，只要每个间隔在0.5秒以下，进度就很平滑了。
这是最简单的方案。
[解决办法]
我的方案就是最简单最好的，都看不到么，只要你的tiemr开始运行，就会永远的1秒一次的准确的跳动下去

[解决办法]

VB code

While httpRequester.ReadyState <> 4 在这里刷新时间 DoEventsWend

[解决办法]
1. 多线程 win32dll 主要有 CreateThread , CloseHandler, GetCurrentThread 等等，涉及到很多，没有基础的话需要费时间研究了；所以不建议您采用这个办法，网上能找到例子的话，能快速理解的话也可以试试；

2. 这种办法相对简单点，首先将你的工程改为 ActiveX Exe 工程，然后建立两个类，一个类是你那个主处理程序，另一个类是你那个测时间的程序，再由每一个类去管理具体的窗体，最后再建一个 SUB MAIN ，里面实例化你那两个类，这样这个系统中会比以往多出至少一个线程的；（注：类的 Instancing=5）
[解决办法]

VB code

While httpRequester.ReadyState &lt;&gt; 4  在这里更新时间  DoEventsWend
[解决办法]
哇，VBA也玩多线程！要玩多线程用VB6吧。看看API区，我写了个DLL还可以用，但线程同步要自己处理，特别是同时访问控件时，要特别注意，甚至有些控件就算做了线程同步，还是不太稳定。
[解决办法]
TNND，昨天的回复掉帧了！
VB codeWhile httpRequester.ReadyState &lt;&gt; 4  这里刷新事件，间隔应该够短了吧  DoEventsWend

vba怎么实现并行程序设计

热点推荐