哪位超级达人能帮把VC代码转成VB的?

来源：百度知道 编辑：UC知道 时间：2024/07/03 10:53:39
函数入口:
typedef HWND (__stdcall *pfn_la)(HWND,RECT);
HWND __stdcall lava_Initialize(HWND h_ParentWnd,RECT rc);

代码过程:
hinstance = LoadLibrary("mydll.dll");
fn_1=(pfn_la)::GetProcAddress(hinstance, "la_Initialize");
RECT rc;
GetClientRect(hWnd,&rc);
rc.right=rc.right;
h_wnd=fn_1(hWnd,rc);

一个DLL想用VB调,但看不明白...
用VB该怎样完成这个?

新建一个模板,粘贴上以下的代码:
Public Declare Function la_initialize Lib "mydll.dll" (byval h_parentWnd as long , byref rc as RECT) as Long

前提是已经定义了RECT结构.
之后就可以像普通函数一样调用la_initialize了.

代码过程也要转的话,给出就算了.
dim rc as RECT

GetClientRect hWnd,rc
rc.right=rc.right
h_wnd = la_Initialize(hWnd,rc)

这样就行了

这几句是函数指针的东西,VB里面用不着那几句的

typedef HWND (__stdcall *pfn_la)(HWND,RECT);
HWND __stdcall lava_Initialize(HWND h_ParentWnd,RECT rc);

hinstance = LoadLibrary("mydll.dll");
fn_1=(pfn_la)::GetProcAddress(hinstance, "la_Initialize");