Visual Basic 6.0建立多线程程序就是这么简单
3星 · 超过75%的资源 需积分: 33 37 浏览量
2012-05-26
13:25:49
上传
评论 1
收藏 95KB DOC 举报 
用 Visual Basic 6.0 建立多线程程序就是这么简单
本人：QQ:844188717
'本程序需要 1 个窗口，3 个 timer 控件，3 个 picture 控件，3 个 text 控件，1 个 command 控
件，1 个模块
'在编译本程序时，一定要选择编译为伪代码（工程-属性-编译-p-代码），否则会出现内存
不能写的错误
'注意：本程序在调试和修改时，要随时保存！因 VB6 在调试多线程时，随时可能崩掉。
Dim cl As Long, cl1 As Long, cl2 As Long
Private Sub Command1_Click()
'方法 1: 使用 API 函数建立多线程
Dim hThread As Long, hThreadID As Long, hThread1 As Long, hThread2 As Long
'建立线程 1
hThread = CreateThread(ByVal 0&, ByVal 0&, AddressOf AsyncThread, ByVal 0&, ByVal 0&,
hThreadID)
CloseHandle hThread
'建立线程 2
hThread1 = CreateThread(ByVal 0&, ByVal 0&, AddressOf AsyncThread1, ByVal 0&, ByVal
0&, hThreadID)
CloseHandle hThread1
'建立线程 3
hThread2 = CreateThread(ByVal 0&, ByVal 0&, AddressOf AsyncThread2, ByVal 0&, ByVal
0&, hThreadID)
CloseHandle hThread2
End Sub
Private Sub Command2_Click()
'方法 2：使用多个 timer 控件模拟多线程
Timer1.Interval = 10
Timer1.Enabled = True
Timer2.Interval = 10
Timer2.Enabled = True
Timer3.Interval = 10
Timer3.Enabled = True
End Sub
Private Sub Form_Load()
'这里设置图片控件的自动重画属性为真，否则没法看到效果
Picture1.AutoRedraw = True
Picture2.AutoRedraw = True
Picture3.AutoRedraw = True
Timer1.Enabled = False
Timer2.Enabled = False
资源评论
xnq7772012-07-12在IDE里还是会崩溃的！
no8down
- 粉丝: 0
- 资源: 5
最新资源
- 基于matlab实现图像处理，本程序使用背景差分法对来往车辆进行检测和跟踪.rar
- 基于matlab实现视频监控中车型识别代码，自己写的，希望和大家多多交流.rar
- sdk.config
- 基于matlab实现配电网三相潮流计算方法，对几种常用的配电网潮流计算方法进行了对比分析.rar
- 基于matlab实现配电网潮流 经典33节点 前推回代法潮流计算 回代电流 前推电压 带注释.rar
- 基于matlab实现模拟退火遗传算法的车辆调度问题研究,用MATLAB语言加以实现.rar
- 基于matlab实现蒙特卡洛的的移动传感器节点定位算法仿真代码.rar
- 华中数控系统818用户说明书
- 基于matlab实现卡尔曼滤波器完成多传感器数据融合 对多个机器人的不同传感器数据进行融合估计足球精确位置.rar
- 基于matlab实现进行简单车辆识别-车辆检测.rar
资源上传下载、课程学习等过程中有任何疑问或建议，欢迎提出宝贵意见哦~我们会及时处理！
点击此处反馈
