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

          If meTheard.Enabled Then

             SuspendThread meTheard.Handle

             meTheard.Enabled = False

          End If

       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，谢谢。

上一页  [1] [2] [3] [4] [5] 

Copyright ＠ 2007-2012 敏韬网(敏而好学，文韬武略--MinTao.Net)（学习笔记） Inc All Rights Reserved.
闵涛 E_mail:admin@mintao.net(欢迎提供学习资源)

鄂公网安备 42011102001154号

站长：MinTao ICP备案号：鄂ICP备11006601号-18