vb调用vc dll
生活随笔
收集整理的這篇文章主要介紹了
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
??? c = Max(7, 8)
??? Text1.Text = c
??? End Sub
其中,".../.../.../XXX.dll"是包括盤符在內的XXX.dll文件的完整路徑。 運行這個VB程序,在text1文本框內顯示“8”。
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
??? c = Max(7, 8)
??? Text1.Text = c
??? End Sub
其中,".../.../.../XXX.dll"是包括盤符在內的XXX.dll文件的完整路徑。 運行這個VB程序,在text1文本框內顯示“8”。
總結
以上是生活随笔為你收集整理的vb调用vc dll的全部內容,希望文章能夠幫你解決所遇到的問題。
- 上一篇: 细数那些能让人惊喜的windows技巧
- 下一篇: HP大中华区总裁孙振耀谈工作、职业与人生