没有合适的资源?快使用搜索试试~ 我知道了~
资源推荐
资源详情
资源评论
http://cache.baidu.com/c?word=vb%2C%B5%C4%3Bdll%2C%5F%3B%5F%3Bstdcall&url=http%3A//youyoucangtian%2Espaces%2Elive%2Ecom/blog/cns%219beee0a3764ef3%21122%2Eentry&p=8e61c64ad59b17ff57e9ca2244&user=baidu
VB调用VC写的DLL
功能:比较两数大小。
在VC中新建一个Win32 Dynamic-Link Library工程,DLL类型选“A DLL that exports some symbols”。把.cpp文件内容全部改成
#include "XXX.h"
int? __stdcall Max(int a, int b)
{
if(a>=b)return a;
else
return b;
}
int? __stdcall Min(int a, int b)
{
if(a>=b)return b;
else
return a;
}
(XXX为工程名;__stdcall表示在VB中调用DLL的方式 )
在Source Files文件夹下新建XXX.def文件,内容:
LIBRARY XXX
EXPORTS Max
EXPORTS Min
将XXX.h文件内容全部改为:
extern "C" _declspec(dllexport) int __stdcall Max(int a, int b);
extern "C" _declspec(dllexport) int __stdcall Min(int a, int b);
然后,compile--rebuild all,在生成的Release文件夹下找到XXX.dll和XXX.lib两个文件,将它们拷贝到你建立的VB工程目录下,在VB的Form_load程序里输入:
Option Explicit
Private Declare Function Max Lib "...\...\...\XXX.dll" (ByVal a As Long, ByVal b As Long) As Long
??? Private Sub Form_Load()
??? Dim c As Long
VB调用VC写的DLL
功能:比较两数大小。
在VC中新建一个Win32 Dynamic-Link Library工程,DLL类型选“A DLL that exports some symbols”。把.cpp文件内容全部改成
#include "XXX.h"
int? __stdcall Max(int a, int b)
{
if(a>=b)return a;
else
return b;
}
int? __stdcall Min(int a, int b)
{
if(a>=b)return b;
else
return a;
}
(XXX为工程名;__stdcall表示在VB中调用DLL的方式 )
在Source Files文件夹下新建XXX.def文件,内容:
LIBRARY XXX
EXPORTS Max
EXPORTS Min
将XXX.h文件内容全部改为:
extern "C" _declspec(dllexport) int __stdcall Max(int a, int b);
extern "C" _declspec(dllexport) int __stdcall Min(int a, int b);
然后,compile--rebuild all,在生成的Release文件夹下找到XXX.dll和XXX.lib两个文件,将它们拷贝到你建立的VB工程目录下,在VB的Form_load程序里输入:
Option Explicit
Private Declare Function Max Lib "...\...\...\XXX.dll" (ByVal a As Long, ByVal b As Long) As Long
??? Private Sub Form_Load()
??? Dim c As Long









资源评论

lj_70596
- 粉丝: 67
- 资源: 3830

上传资源 快速赚钱
我的内容管理 展开
我的资源 快来上传第一个资源
我的收益
登录查看自己的收益我的积分 登录查看自己的积分
我的C币 登录后查看C币余额
我的收藏
已下载
下载帮助

看过该资源的人还看了
安全验证
文档复制为VIP权益,开通VIP直接复制
