*再谈VB多线程和标准DLL问题*

sexfio

tgy 发表于 2011-10-31 10:44
显示窗体只是我写的例子,当然也可以不显示窗体,根据自己需要.
关于参数,只能通过线程参数传进去,如果需传 ...

哦，麻烦帮我看下，我改了下，我想实现的是
创立3个线程，0,1,2
每个线程导入一个参数，分别是0,1,2,然后每秒这个数+1
然后在主窗体创立一个MSFlexGrid1用于显示
每行MSFlexGrid1的第2列显示每秒+1后的结果，我这样改貌似不对，应该怎么改呢？最好帮我改成结构体的，我想导入多个参数，谢谢了~~~

'窗体
Private Sub Command1_Click()
    Dim i&
    MSFlexGrid1.Cols = 4: MSFlexGrid1.Rows = 1
    For i = 0 To Val(Text1) - 1    'Text为创立的线程数
        MSFlexGrid1.AddItem i: j = i
        CreateThread 0&, 0&, AddressOf XXX, ByVal App.hInstance, 0&, 0
    Next
End Sub

'模块

Public j&

Private Declare Function GetTickCount Lib "kernel32" () As Long
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

Private Function Delay(sSeconds As Long)        '延时函数 Delay(毫秒)
    Dim Begin As Long
    Begin = GetTickCount
    Do: DoEvents: Sleep 1
    Loop Until GetTickCount - Begin >= sSeconds
End Function

Public Sub Main()
    Form1.Show
End Sub

Public Sub XXX(ByVal df As Long)    '线程函数
    init df
    '=====================================================================
    j1 = j: j2 = j
    Do
        Form1.MSFlexGrid1.TextMatrix(j1 + 1, 1) = j2
        j2 = j2 + 1
        Delay 1000
    Loop
    '=====================================================================
    CoUninitialize
End Sub

////////////////////////////////////////////////////////////////////////////////////////////////////////////
刚用了结构体
Public Type fio
    index As Long
    hInstance As Long
End Type

Private Sub Command1_Click()
    Dim i&, ff As fio
    MSFlexGrid1.Cols = 4: MSFlexGrid1.Rows = 1
    For i = 0 To Val(Text1) - 1
        MSFlexGrid1.AddItem i: j = i
        ff.index = i: ff.hInstance = App.hInstance
        CreateThread 0&, 0&, AddressOf XXX, ByVal ff, 0&, 0
    Next
End Sub

结果提示类型不正确，CreateThread 的第4个参数是导入参数吧？类型不是any吗？为什么会不正确？

sexfio

Private Sub Command1_Click()
    Dim i&, ff As fio
    MSFlexGrid1.Cols = 4: MSFlexGrid1.Rows = 1
    For i = 0 To Val(Text1) - 1
        MSFlexGrid1.AddItem i
        ff.index = i: ff.hInstance = App.hInstance
        CreateThread 0&, 0&, AddressOf XXX, ByVal ff, 0&, 0
    Next
End Sub

'模块

Public Type fio
    index As Long
    hInstance As Long
End Type

Private Declare Function GetTickCount Lib "kernel32" () As Long
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

Private Function Delay(sSeconds As Long)        '延时函数 Delay(毫秒)
    Dim Begin As Long
    Begin = GetTickCount
    Do: DoEvents: Sleep 1
    Loop Until GetTickCount - Begin >= sSeconds
End Function

Public Sub Main()
    Form1.Show
End Sub

Public Sub XXX(ByVal df As fio)    '线程函数
    init df.hInstance
    '=====================================================================
    j1 = df.index: j2 = j1
    Do
        Form1.MSFlexGrid1.TextMatrix(j1 + 1, 1) = j2
        j2 = j2 + 1
        Delay 1000
    Loop
    '=====================================================================
    CoUninitialize
End Sub

还是不行，哪错了？提示用户类型不能用

tgy

结构体不能用byval   
ff至少要为窗体级变量，或全局变量，不能是局部变量，道理很简单，局部变量的话，可能线程函数还没启动，这个变量已经被销毁了。
CreateThread 0&, 0&, AddressOf XXX,byval varptr(ff), 0&, 0


然后线程函数这样试下
Public Sub XXX( byref df As fio)    '线程函数

sexfio

tgy 发表于 2011-10-31 13:40
结构体不能用byval   
ff至少要为窗体级变量，或全局变量，不能是局部变量
CreateThread 0&, 0&, Addres ...

搞定了，代码如下
'窗体

Dim ff(2) As fio

Private Sub Command1_Click()
    Dim i&
    MSFlexGrid1.Cols = 4: MSFlexGrid1.Rows = 1
    For i = 0 To Val(Text1) - 1
        MSFlexGrid1.AddItem i
        ff(i).index = i: ff(i).hInstance = App.hInstance
        CreateThread 0&, 0&, AddressOf XXX, ByVal VarPtr(ff(i)), 0&, 0
    Next
End Sub

'模块

Public Type fio
    index As Long
    hInstance As Long
End Type

Private Declare Function GetTickCount Lib "kernel32" () As Long
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

Private Function Delay(sSeconds As Long)        '延时函数 Delay(毫秒)
    Dim Begin As Long
    Begin = GetTickCount
    Do: DoEvents: Sleep 1
    Loop Until GetTickCount - Begin >= sSeconds
End Function

Public Sub Main()
    Form1.Show
End Sub

Public Sub XXX(ByRef df As fio)    '线程函数
    init df.hInstance
    '=====================================================================
    Dim j1&, j2&
    j1 = df.index: j2 = j1
    Do
        Form1.MSFlexGrid1.TextMatrix(j1 + 1, 1) = j2
        j2 = j2 + 1
        Delay 1000
    Loop
    '=====================================================================
    CoUninitialize
End Sub


还有2个问题，一个是那个结构体ff如果不用数组貌似不行啊,为什么啊？？？？？我的意思是这样CreateThread 0&, 0&, AddressOf XXX, ByVal VarPtr(ff), 0&, 0,这样不行呀
还有一个是直接关闭窗体，结束程序会弹出错误，应该怎么退出呢？CoUninitialize是干什么的？
求指教~~~~~~~~~~~~

overown88

谢谢楼主

sexfio

又遇到问题了，ff不能设置为动态数组，怎么搞的？
Dim ff() As fio

Private Sub Command1_Click()
    Dim i&
    MSFlexGrid1.Cols = 4: MSFlexGrid1.Rows = 1
    For i = 0 To Val(Text1) - 1
        ReDim Preserve ff(i)
        ff(i).index = i: ff(i).hInstance = App.hInstance
        MSFlexGrid1.AddItem i
        CreateThread 0&, 0&, AddressOf XXX, VarPtr(ff(i)), 0&, 0
    Next
End Sub

动态数组不能VarPtr吗？byval varptr(ff(i))也不行,是不是有其他办法？

tgy

sexfio 发表于 2011-10-31 14:58
搞定了，代码如下
'窗体

不用数组是可以的.仔细检查下,要保证线程函数访问此结构体时变量还在有效,不然肯定会有问题的.

tgy

修改下init函数的话,可以不带参数调用init函数的.
init函数修改如下:


Public Sub init(Optional ByVal hinstdll As Long)      '线程或DLL调用初始化VB环境函数 ,dll调用时hinstdll为DLL基地址,EXE多线程调用时为EXE基地址
    Dim fake As Long
    Dim lp As Long, lvb As Long
    Dim riid As UUID
    Dim aiid As UUID
    Dim ofac As Object
    Dim f0 As Long
    Dim fakehead As Long
    Dim ll As Long
    hh = hinstdll
    CreateIExprSrvObj 0, 4, 0
    Call CoInitialize(0)
    If hinstdll = 0 Then hinstdll = GetModuleHandle(0)
    With riid
        .data1 = 1
        .data4(0) = &HC0
        .data4(7) = &H46
    End With
    f0 = GetFakeH(GetModuleHandle(0))
    fakehead = GetFakeH(hinstdll)
    If f0 = 0 Then
        Call VBDllGetClassObject(GetModuleHandle(0), lvb, ByVal fakehead, aiid, riid, ofac)
    Else
        Call VBDllGetClassObject(hinstdll, lvb, ByVal fakehead, aiid, riid, ofac)
    End If
    App.Title = App.Title
    hh = hinstdll
End Sub

sexfio

tgy 发表于 2011-10-31 17:49
修改下init函数的话,可以不带参数调用init函数的.
init函数修改如下:

满好的，开了100个线程没出啥问题，对了，怎么样能把那个模块里的XXX调用搞到主窗体里去？

toudu

弄个双线程，至少解决了，程序假死的问题，do events  实在是boring