使用Visual Basic 6实现真正实用的多线程处理

 
事实上使用Visual Basic的ActiveX exe技术可以轻松的实现多线程处理.
原理先不说了,先举个示例,有兴趣的话大家可以一起讨论
1.新建一个工程,类型选择ActiveX Exe,工程重命名为TestExe
在工程中添加一个Form,放上一个Timer控件.
将Class1改名为clsTest,注意其Instancing要设置为5-MultiUse, 以下是其代码:
Option Explicit
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Private WithEvents oTimer As Timer
Private frmTmp As Form1
Private lTotalLoop As Long
Private bDoStop As Boolean
Private lInterval As Long
Public Event Progress(ByVal lProgress As Long)
Public Sub StartSub(ByVal lTotal As Long)
      lTotalLoop = lTotal
      oTimer.Enabled = True
End Sub
Public Sub StopSub()
      bDoStop = True
End Sub
Private Sub Class_Initialize()
      Set frmTmp = New Form1
      Load frmTmp
      Set oTimer = frmTmp.Timer1
      oTimer.Enabled = False
      bDoStop = False
      lInterval = 1
End Sub
Private Sub DoLoop()
      Dim i As Long
      For i = 0 To lTotalLoop
     Sleep (lInterval)
     RaiseEvent Progress(i)
    
     If bDoStop = True Then
         Exit Sub

您可能感兴趣的文章：
使用Visual Basic 6实现真正实用的多线程处理
在 Visual Basic .NET 中实现后台进程
什么是 VBScript？
ASP.NET创建Web服务管理Web服务状态
vbscript基础教程-什么是vbscript
python和vba学哪个
.NET 窗体之间的交互
编译型语言和解释型语言的区别
ASP 全新接触（1）
COM Web 服务：通过复选框路由到 XML Web Services （转）4-Web_Ser