我的dll是这样调用的: Private Declare Function myFunc Lib "C:\MYDLL.DLL" 那是那儿出问题了?这个dll,我用VC,Delphi,BCB编的实现和vb这个程序同样的功能都成功了!
我试过由其他窗前启动,调用dll没有问题! 那么就可能时我的线程启动有问题,如下: Form_Load(): Dim threadid As Long prevWndProc = GetWindowLong(Me.hwnd, GWL_WNDPROC) SetWindowLong Me.hwnd, GWL_WNDPROC, AddressOf WndProc CreateThread vbNullString, 0, AddressOf MyThreadFunc, ByVal Me.hwnd, 0, threadid 我的线程定义在模块中: Public Function MyThreadFunc(ByVal p As Long) As Long .... End Function 请问怎么解决?
To hongzhen225() : 可以了,为什么?p-代码方式有什么不同?
VB6纯API多线程不能编译成exe!
To zyl910(910:分儿,我来了!) (L2002): 那怎么办?还有 为什么我调用外部的鼠标文件在程序中变色了,由蓝色变成白色了
Private Declare Function myFunc Lib "C:\MYDLL.DLL"
那是那儿出问题了?这个dll,我用VC,Delphi,BCB编的实现和vb这个程序同样的功能都成功了!
那么就可能时我的线程启动有问题,如下:
Form_Load():
Dim threadid As Long
prevWndProc = GetWindowLong(Me.hwnd, GWL_WNDPROC)
SetWindowLong Me.hwnd, GWL_WNDPROC, AddressOf WndProc
CreateThread vbNullString, 0, AddressOf MyThreadFunc, ByVal Me.hwnd, 0, threadid
我的线程定义在模块中:
Public Function MyThreadFunc(ByVal p As Long) As Long
....
End Function
请问怎么解决?
可以了,为什么?p-代码方式有什么不同?
那怎么办?还有
为什么我调用外部的鼠标文件在程序中变色了,由蓝色变成白色了
系统不支持,不会啊!我用delphi,BCB,VC调用都可以!
只是个调用外部的鼠标文件 nodrop.cur