您好,肖大哥就为大家解答关于terminatethread结束自己线程后程序崩了相信很多小伙伴还不知道,现在让我们一起来看看吧！

1、VB6.0的。

2、代码如5261下。

3、单击窗体4102效果就1653显现。

4、版＝＝权＝＝＝＝＝＝＝＝＝＝＝＝＝＝Option ExplicitPrivate Declare Function GetCurrentThread Lib"kernel32"() As LongPrivate Declare Function GetExitCodeThread Lib"kernel32"(ByVal hThread As Long, lpExitCode As Long) As LongPrivate Declare Function TerminateThread Lib"kernel32"(ByVal hThread As Long, ByVal dwExitCode As Long) As LongPrivate Sub Form_Click()Dim hT As OLE_HANDLE, lEC As LonghT = GetCurrentThreadGetExitCodeThread hT, lECTerminateThread hT, lECEnd Sub。

本文就讲到这里，希望大家会喜欢。