VB回调设置
发布时间:2020-12-16 22:18:10 所属栏目:大数据 来源:网络整理
导读:In VC++CPP文件:#define DLLEXPORT__declspec(dllexport) __stdcall#define CNAMEextern "C"typedef int(__stdcall *CBFUNC)(int);CNAME int DLLEXPORT F(CBFUNC p){return (*p)(10);}DEF文件:LIBRARY DllTestEXPORTSFIn VBForm窗体:Option ExplicitPriva
In VC++ CPP文件: #define DLLEXPORT __declspec(dllexport) __stdcall #define CNAME extern "C" typedef int (__stdcall *CBFUNC)(int); CNAME int DLLEXPORT F(CBFUNC p) { return (*p)(10); } DEF文件: LIBRARY DllTest EXPORTS F In VB Form窗体: Option Explicit Private Sub Command1_Click() CallTest End Sub 模块文件: Option Explicit Private Declare Function F _ Lib "c:DllTest.dll" ( _ ByVal rt As Long _ ) As Long Private Function CallBackTest(ByVal q As Long) As Long CallBackTest = q * 10 End Function Public Sub CallTest() MsgBox F(AddressOf CallBackTest) End Sub (编辑:李大同) 【声明】本站内容均来自网络,其相关言论仅代表作者个人观点,不代表本站立场。若无意侵犯到您的权利,请及时与联系站长删除相关内容! |