使用createthread时候第四个参数怎么传.txt

来自「以电子书的形式收集了VB一些常见问题解决方法,可以很方便的查找自己需要解决的问题」· 文本 代码 · 共 22 行

CreateThread的第四个参数定义为As Any，当然可以传递结构。如： 
    Function DaThreadFunc(ByRef lpParam As PARAM_TYPE) As Long 
    ... 
    End Function 
     
    Sub Main() 
     
     Dim lRet As Long 
     Dim lThreadID As Long 
     Dim stParam As PARAM_TYPE 
     
     lThreadID = 0 
     lRet = CreateThread(0, _ 
     0, _ 
     AddressOf DaThreadFunc, _ 
     stParam, _ 
     0, _ 
     lThreadID) 
    ... 
    End Sub 
<END>