繁體中文当前位置: 首页 > 图文教程 > 网络编程 > ASP.NET > 使用Visual Basic 6实现真正实用的多线程处理
- ASP.NET
- Asp.net 时间操作基类(支持短日期,长日期,时间差)
- asp.net 获取机器硬件信息(cpu频率、磁盘可用空间、内存容量等)
- asp.net 数据库备份还原(sqlserver+access)
- Asp.Net 数据操作类(附通用数据基类)
- Asp.net 弹出对话框基类(输出alet警告框)
- Asp.net 文件上传类(取得文件后缀名,保存文件,加入文字水印)
- Asp.net Socket客户端(远程发送和接收数据)
- Asp.net 字符串操作基类(安全,替换,分解等)
- Asp.Net数据输出到EXCEL表格中
- asp.net Gridview里添加汇总行
- asp.net UpdatePanel的简单用法
- asp.net ajaxControlToolkit FilteredTextBoxExtender的简单用法
- this connector is disabled错误的解决方法
- sql事务应用积累
- asp.net Page.Controls对象(找到所有服务器控件)
- 在asp.NET中字符串替换的五种方法
- ASP.NET缓存方法分析和实践示例代码
- asp.net 在DNN模块开发中遇到的resx怪问题
- ASP.NET State service状态服务的问题解决方法
- asp.net 结合mysql存储过程进行分页代码
ASP.NET 中的 使用Visual Basic 6实现真正实用的多线程处理
出处:互联网 整理: 软晨网（RuanChen.com） 发布: 2009-11-03 浏览: 229 ::
收藏到网摘: n/a
事实上使用Visual Basic的ActiveX exe技术可以轻松的实现多线程处理.
原理先不说了,先举个示例,有兴趣的话大家可以一起讨论
1.新建一个工程,类型选择ActiveX Exe,工程重命名为TestExe在工程中添加一个Form,放上一个Timer控件.将Class1改名为clsTest,注意其Instancing要设置为5-MultiUse, 以下是其代码:
Option ExplicitPrivate Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)Private WithEvents oTimer As TimerPrivate frmTmp As Form1Private lTotalLoop As LongPrivate bDoStop As BooleanPrivate lInterval As Long
Public Event Progress(ByVal lProgress As Long)
Public Sub StartSub(ByVal lTotal As Long) lTotalLoop = lTotal oTimer.Enabled = TrueEnd Sub
Public Sub StopSub() bDoStop = TrueEnd Sub
Private Sub Class_Initialize() Set frmTmp = New Form1 Load frmTmp Set oTimer = frmTmp.Timer1 oTimer.Enabled = False bDoStop = False lInterval = 1End Sub
Private Sub DoLoop() Dim i As Long For i = 0 To lTotalLoop Sleep (lInterval) RaiseEvent Progress(i) If bDoStop = True Then Exit Sub End If NextEnd Sub
Private Sub Class_Terminate() Unload frmTmp Set frmTmp = Nothing Set oTimer = NothingEnd Sub
Private Sub oTimer_Timer() oTimer.Enabled = False DoLoopEnd Sub
Public Property Get lMillisecs() As Long lMillisecs = lIntervalEnd Property
Public Property Let lMillisecs(ByVal vNewValue As Long) lInterval = vNewValueEnd Property
在TestExe Property(工程属性)的Threading Model中,设置Thread per Object,或者选择Thread pool中设置大于1的数值.如把Thread pool设置为2, 则调用此ActiveX Exe最多能同时有两个线程, 更多的请求将放置于队列中.编译TestExe
下面来测试我们的多线程程序:
新建一个Standard Exe工程,在Reference中选择刚刚做好的TestExe.exe在Form1中添加两个ListBox,两个CommandButton,Command1为开始,Command2为停止以下是Project1.Form1的代码:
Option ExplicitPrivate WithEvents oTest1 As TestEXE.clsTestPrivate WithEvents oTest2 As TestEXE.clsTest
Private Sub Command1_Click() Set oTest1 = New TestEXE.clsTest oTest1.lMillisecs = 100 oTest1.StartSub (1000) Set oTest2 = New TestEXE.clsTest oTest2.lMillisecs = 100 oTest2.StartSub (1000)End Sub
Private Sub Command2_Click() oTest1.StopSub oTest2.StopSubEnd Sub
Private Sub Form_Unload(Cancel As Integer) Set oTest1 = Nothing Set oTest2 = NothingEnd Sub
Private Sub oTest1_Progress(ByVal lProgress As Long) List1.AddItem lProgress List1.ListIndex = List1.ListCount - 1End Sub
Private Sub oTest2_Progress(ByVal lProgress As Long) List2.AddItem lProgress List2.ListIndex = List2.ListCount - 1End Sub
启动Project1,点击Command1,怎么样,看见来效果了吗? 试着把TestExe的Thread pool改成1看看会怎么样? 这是我认为最简单且稳固的多线程实现方法了,大家有什么好的想法欢迎留言.
评论 (0) All
