vb多线程:在Vb下实现多线程-vb教程来源: 发布时间:星期四, 2008年9月25日 浏览:214次 评论:0
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 Long Sub main() Public Sub c2() 新建一窗体 Private hthread1 As Long Private Sub Command1_Click() ithread1 = CreateThread(ByVal 0&, ByVal 0&, AddressOf c1, ByVal 0&, ByVal 0&, hthread1) --创建线程一 CloseHandle ithread1 --关闭线程一 End Sub Private Sub Form_Load() End Sub 0
相关文章
读者评论
发表评论 |