VB6.0的。扮塌代码如下。单击窗体效果就显现。===============厅搜圆=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
标签:VB,易语言,TerminateThread
版权声明:文章由 知识百答 整理收集,来源于互联网或者用户投稿,如有侵权,请联系我们,我们会立即处理。如转载请保留本文链接:https://www.zhshbaida.com/article/275869.html