vb如何创建、停止线程?
我有一段循环的代码,当循环开始后,程序就会卡在在哪,不能响应其他的操作,有没有什么办法,让它执行循环,但是可以响应用户操作执行其他模块,而不是像“没有响应”的情况。对此,我想用线程来解决。但是我不知道怎么做,线程创建了如何暂停、继续运行、如何停止等等?不知道大家有没有相关的资料。
下面是我自己做的程序部分代码
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
Public i As Integer
Sub Main()
Load Form1
Form1.Show
End Sub
Public Sub c1()
Dim j As Integer
For j = 0 To 1000
'这里是执行特殊操作的代码
Next
End Sub
我在form1里创建了线程
threadhwndone = CreateThread(ByVal 0&, ByVal 0&, AddressOf Module1.c1, ByVal 0&, ByVal 0&, threadhwndone)
如何暂停它呢?比如,我暂停了线程,可以知道j运行到哪,例如到了550,然后我继续线程,这时候,C1循环继续从j=551开始执行下去。这如何做呢??