请问在vb6.0中能不能实现多线程如果能要用什么控件或函数,还是的调用api呢
谢谢
谢谢
解决方案 »
- 求助VB高人指点,实现以下功能!!!
- 求<利用Visual Basic实现串并行通信技术>电子书籍
- FlexGrid显示很多数据一屏放不下时,点击最后一行,它会上下滚动,很不好看。 在线!
- 请教VB生成EXE时参数问题?(急)
- 用evb在pocket pc上开发pos
- 如何转换输入的字符???
- 怎么做下拉式的窗口!
- *************** 个人问题,谢绝灌水 ****************
- 帮帮忙,怎么在TREEVIEW中NODE加入右键弹出菜单?
- 请问除了DataReport外,有哪些报表控件好用些?水晶报表的文件名是什么?
- 求recordset快速循环连接的方法.
- 怎样用回车在两个textbox之间切换
http://www.csdn.net/develop/Read_Article.asp?Id=18660
新建一Module
Declare Function CreateThread Lib "kernel32" (lpThreadAttributes As Any, ByVal dwStackSize As Long, ByVal lpStartAddress As Long, lpParameter As Any, ByVal dwCreationFlags As Long, lpThreadID As Long) As Long
Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As LongSub main()
Load Form1
Form1.Show
End Sub
Public Sub c1()
.......
End SubPublic Sub c2()
......
End Sub新建一窗体Private hthread1 As Long
Private hthread2 As Long
Private ithread1 As Long
Private ithread2 As LongPrivate Sub Command1_Click()ithread1 = CreateThread(ByVal 0&, ByVal 0&, AddressOf c1, ByVal 0&, ByVal 0&, hthread1) --创建线程一
ithread2 = CreateThread(ByVal 0&, ByVal 0&, AddressOf c1, ByVal 0&, ByVal 0&, hthread1) --创建线程二CloseHandle ithread1 --关闭线程一
CloseHandle ithread2 --关闭线程二End SubPrivate Sub Form_Load()End Sub