繁體中文当前位置: 首页 > 图文教程 > 网络编程 > ASP.NET > 使用Visual Basic 6实现真正实用的多线程处理
- ASP.NET
- asp.net Linq TO Sql 分页方法
- asp.net 用XML生成放便扩展的自定义树
- asp.ent下合并两个结构相同的DataTable
- asp.net 遍历repeater中的控件的几种方式
- asp.net 处理原文件中过长的viewstate代码
- asp.net下遍历页面中所有的指定控件的代码
- 获取创建Membership的数据库创建脚本
- asp.net AJAX注册类
- asp.net 处理F5刷新页面重复提交页面的一个思路
- ASP.NET 缓存分析和实践浅析提高运行效率
- asp.net 读取并显示excel数据的实现代码
- ASP.NET中常用的用来输出JS脚本的类
- ASP.NET中内嵌页面代码的一个问题
- asp.net(C#)操作excel（上路篇）
- 一个基于Asp.Net MVC的权限方案
- ASP.NET实例教程:51job网站地区选择功能
- ASP.NET教程:友好的Html和JS适合SEO
- ASP.NET教程:使用.ashx文件去除重复内容
- ASP.NET做SEO：制作架构清晰和更新及时的网站地图
- ASP.NET优化:Sql注入和Html注入的黑帽SEO
ASP.NET 中的 使用Visual Basic 6实现真正实用的多线程处理
出处:互联网 整理: 软晨网（RuanChen.com） 发布: 2009-11-03 浏览: 43 ::
收藏到网摘: 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
