UC知道新学提问:vb中，怎样让一个过程成为后台程序？
来源：百度知道 编辑：UC知道 时间：2024/05/23 19:46:35
Sub aa() 'arr是一个时间数组,添加元素的过程没写进来
Dim arr(5), t
t = Timer
Do
t = Timer
If t >= arr(0) Then
For i = 0 To UBound(arr) - 1
arr(i) = arr(i + 1)
Next i
Call bb
End If
DoEvents
Loop While t >= arr(0)
End Sub
Sub bb() 'msgbox 是过程执行其他命令的简化
MsgBox "fg"
Call aa
End Sub
'如果运行起来,不报错但是占用cpu100% ,怎么让过程aa
'成为一个后台运行过程，条件符合则激活过程bb,
'条件不成熟不影响使用
落了一句，添加在for循环的后面
redim preserve arr(ubound(arr)-1)
Dim arr(5), t
t = Timer
Do
t = Timer
If t >= arr(0) Then
For i = 0 To UBound(arr) - 1
arr(i) = arr(i + 1)
Next i
Call bb
End If
DoEvents
Loop While t >= arr(0)
End Sub
Sub bb() 'msgbox 是过程执行其他命令的简化
MsgBox "fg"
Call aa
End Sub
'如果运行起来,不报错但是占用cpu100% ,怎么让过程aa
'成为一个后台运行过程，条件符合则激活过程bb,
'条件不成熟不影响使用
落了一句，添加在for循环的后面
redim preserve arr(ubound(arr)-1)
在循环中加一个DoEvents就可以降低CPU使用率了。
如果要后台运行的话，需要使用API：CreateThread
你的程序有问题 真的 有死循环迹象 要完成什么功能 我帮你把
用一个Timer控件每隔一定间隔才检查一次，不用死循环就解决问题了。