Question

vb 为什么timer循环不占资源

timer循环的原理是什么,是如何回调timer1_timer过程的?为什么把间隔时间设置为1毫秒循环执行代码占用资源很小,而用while 1=1循环执行代码占用资源非常大?有什么办法不用timer并且占用资源小,来实现循环检查外部抛来的消息?
推荐个毛啊?
timer控件是设计好的控件，它会不断的把控制权交给操作系统，在操作系统空闲时执行。
如果你用while 1=1，那么你要人工添加doevents把程序控制权交给操作系统。

while 1=1
doevents
wend
这种回答也推荐?

Answer 1

可以考虑VB多线程编程吧，一样的类似创建一个timer一样的一个线程，和你现在的应用程序不相互影响

追问

关键多线程如何实现跨线程之间的函数互调?

追答

下面的程序是个例子，控件自己添加，还要添加一个模块(菜单里的工程---添加模块)
3个text控件，1个command控件
你可以循环读取每个线程函数的返回值然后告诉主程序
模块代码：
Public Declare Function SetTimer Lib "user32" (ByVal hwnd As Long, ByVal nIDEvent As Long, ByVal uElapse As Long, ByVal lpTimerFunc As Long) As Long
Public Declare Function KillTimer Lib "user32" (ByVal hwnd As Long, ByVal nIDEvent As Long) As Long
Public Const TimeId As Long = 1 '线程ID
Public n1 As Long
Public Sub myProc()
'这里填写自己的过程或调用的函数
Form1.Text1.Text = myFun(n1)
n1 = n1 + 1
End Sub
Public Sub myProc1()
'这里填写自己的过程或调用的函数
Form1.Text2.Text = Form1.Text2.Text - 1
End Sub
Private Function myFun(n As Long) As Long
'调用函数

myFun = n
End Function

窗体代码：
Dim TimeInterval As Long '时间间隔,毫秒
Private Sub Command1_Click()
'创建线程
SetTimer Me.hwnd, TimeId, TimeInterval, AddressOf myProc
SetTimer Me.hwnd, 2, TimeInterval, AddressOf myProc1
End Sub
Private Sub Form_Load()
n1 = 0
Text1.Text = ""
Text2.Text = 1000
TimeInterval = 1000
End Sub
Private Sub Form_Unload(Cancel As Integer)
'结束线程
KillTimer Me.hwnd, TimeId
KillTimer Me.hwnd, 2
End Sub
Private Sub Text1_Change()
Text3.Text = "线程1执行结果" & n1
End Sub

追问

不好意思,麻烦再问下,如果我要在myProc中传参数怎么做?
还有我刚才试了下,我把主程序的hwnd和主程序模块里的myProc用addressof 传递给线程,然后由线程调用SetTimer为什么主程序里的myProc不响应呢?
是不是SetTimer只能回调当前工程内的过程?

追答

不好实现，只能传递初始参数，在线程前先调用一次myProc
你为什么要用线程调用SetTimer呢，VB中创建线程本身就很不稳定，SetTimer是创建了一个类似timer控件的一个定时线程，即每隔一段时间就调用一次myProc

你主要要实现什么功能呢？
你的Activex exe线程没有返回的函数吗，可以隔一段时间读取这个函数判断进程状态啊

追问

其实利用ActiveX EXE创建的线程是非常稳定的,只是不能由子线程调用主程序的函数,说白了,不能跨线程调用函数\类或者过程,线程的函数是有返回值的,但是作为线程会独立处理一些数据,而这个工作应该是在主程序调用线程函数并得到返回值后做的,所以没办法的话也只能通过主程序不停循环读取线程的状态了

追答

是的，ActiveX创建的线程是比较稳定的，我给你这个代码也是创建了一个类似于timer控件的一个独立线程，由于你其它线程无法给主程序进行中断等操作，所以最好的办法是不影响主程序的情况下创建一个timer线程然后循环读取线程状态，读取状态后判断再调用主程序的一些函数或给出一个状态量进行判断

Answer 2

timer控件是设计好的控件，它会不断的把控制权交给操作系统，在操作系统空闲时执行。
如果你用while 1=1，那么你要人工添加doevents把程序控制权交给操作系统。

while 1=1
doevents
wend

追问

我当然加了DoEvents,我会因为一个DoEvents甩出200分吗?你自己去试试用DoEvents编译一个EXE,然后运行起来看看CPU占用率,在做一个窗体加10个间隔时间为1MS的TIMER去比较一下,timer控件的CPU占用率几乎为0,所以timer控件绝不可能是移交控制权这种方式循环的.

Answer 3

不用Timer控件，可以使用Windows API：sleep(毫秒数)。作用就是等待一点时间，比用dovents要好，因为doevents没法精确计时，只是用来释放资源给其它程序用的。

追问

你说的和我问的就是两码事,SLEEP和TIMER的功能你都没搞清楚,一个是无控制权的延时,一个是实现异步操作,我要的是尽可能占用少的资源来循环检测外部传进来的消息!

追答

timer应该是用计时中断实现的定时触发，你也想用这种方式的话，就不适合用VB来解决

追问

谢谢,我已经用VB实现了这个功能

Answer 4

Timer事件每隔一段时间才会触发一次,降低优先级试试

追问

在VB代码 中while 1=1里如何降低优先级?

追答

在事件触发之前啊亲,你先不要那么多牢骚,好好找找资料研究一下才是正途
我只帮你找一个,自己再找找看
http://zhidao.baidu.com/question/122133163.html

Answer 5

你所谓的：实现循环检查外部抛来的消息。能具体些吗？

追问

我用Activex exe创建N个多线程,主程序告诉每个线程要做什么(这个好说,主程序直接调用Activex exe的函数即可)当线程处理完要做的事后需要通知主程序做完了,如果是单线程可以传递接口来让组件调用,从而通知主程序,但是多线程不能传递接口,类,对象等,所以我打算做个消息池,主程序和线程都不停循环读这个消息池的内容,当主程序要线程做事,就抛一个消息到池里,线程读到并执行,执行完抛完成的消息到池,主程序读到后便知道线程处理完了