VB创建多线程应用程序(二)--打印文章

VB创建多线程应用程序(二)

作者：武汉SEO闵涛文章来源：敏韬网点击数2943 更新时间：2009/4/23 16:37:42 文章录入：mintao 责任编辑：mintao

; ''''若激活线程（Newvalue为真）且此线程原来已激活则挂起此线程

If meTheard.Enabled Then

SuspendThread meTheard.Handle

meTheard.Enabled = False

End If

End Property

''''终止线程事件

Private Sub Class_Terminate()

On Error Resume Next

Call TerminateThread(meTheard.Handle, 0)

End Sub

总结：

本程序的缺点是程序运行时CPU占用率高。

至此全部源代码结束，在实例的基础上可以根据个人需要做出不同的多线程应用程序，可以用此类模块创建ActiveX DLL，然后引用这个DLL来进行调用。希望对大家有用，若大家找到一种更好的实现方法且CPU占用率低的程序请通知我，程序中有什么Bug请Email，谢谢。