繁體中文当前位置: 首页 > 图文教程 > 网络编程 > ASP.NET > 使用Visual Basic 6实现真正实用的多线程处理
- ASP.NET
- Script：WINDOWS Script 枚举运行中进程
- 使用Flex结合Webservice完成域名查询
- VSTS Team System 总算装好了。
- 用于部署数据库的 数据库初始化工具 xzSQLDeploy Tools V1.0 （for SQLServer） f...
- 一个将阿拉伯数字转换成中文大写的最简单算法
- SCRIPT：使用Windows Script 关闭和打开指定程序
- Script：使用WINDOWS脚本访问WEB SERVICES
- asp.net连接Access数据库
- VB中IIS Application发布可能出现的问题
- VB打包后的安装问题
- Nhibernate的数据分页技术（续）
- 使用API函数复制文件，可显示进度。
- VB打包技巧
- VB.NET实现DirectSound9 (9) 实现示波器
- VB.NET 实现DirectSound9 (10) 均衡器
- [水晶报表部署系列之一]轻松搞定水晶报表9.2打包
- DataGrid 中双向排序的一种办法
- 利用System.EventHandler来实现两个窗体间的事件调用
- 多线程应用程序中调用窗体的一点心得
- Smart Client之旅一：用B/S方式运行Exe应用程序
ASP.NET 中的 使用Visual Basic 6实现真正实用的多线程处理
出处:互联网 整理: 软晨网（RuanChen.com） 发布: 2009-11-03 浏览: 100 ::
收藏到网摘: 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
