当前位置：文档之家 › VFB_调用DLL

VFB_调用DLL

  • 格式：docx
  • 大小：15.26 KB
  • 文档页数：2

VFB_调用DLL

'--------------------------------------------------------------------------------

Sub Form1_Command1_BN_Clicked(hWndForm As hWnd, hWndControl As hWnd) '单击

text1.text = Str(Add2(370037607, Rnd * 100))

AfxMsg testdll("ddddd")

End Sub

'--------------------------------------------------------------------------------

Sub Form1_Command2_BN_Clicked(hWndForm As hWnd, hWndControl As hWnd) '单击

Dim As Any Ptr library = DyLibLoad( "dlltest" ) '就文件名，不能带 .DLL

If (library = 0) Then

AfxMsg "加载DLL失败"

Return

End If

Dim AddNumbers As Function(ByVal As Integer, ByVal As Integer) As Integer

AddNumbers = DyLibSymbol(library, "ADD2") ' 特别提醒，必须全部大写

'从DLL查看器里可以看到全称是 ADD2@8 ，而FB用FB的DLL可以省略 @8 的符号

If (AddNumbers = 0) Then

AfxMsg "无法从开发DLL例题库中检索Add2（）函数的地址"

Return

End If

text2.text = Str(AddNumbers(100, Rnd * 100)) AfxMsg "使用完成"

DyLibFree(library) '卸载DLL ，特别注意，假如DLL还在工作，卸载会让软件崩溃

'本例题里，加载会弹窗提示，就是在工作，必须先关弹窗在卸载

'但本例题里同时有静态，因此关了也不崩溃，因为不在真正卸载DLL，因为还有静态加载。

End Sub

合集下载

一步一步教用VC和VB调用C++ DLL

一步一步教用VC和VB调用C++ DLL

一步一步教你用VC和VB调用C++ DLL

从VC++应用程序调用C++ DLL的函数

Visual Studio 6 使创建包含函数或类的动态连接库(DLL) 变得非常容易.

第一步

打开 Visual Studio 然后选择 File | New菜单项:

选择 Win32 Dynamic Link Library, 输入工程名, 敲 OK.

选择 A DLL that exports some symbols 并单击Finish.在File View里你会看到如下的工程文件:

第二步

在Test.cpp里,你将看到如下代码:

// Test.cpp : Defines the entry point for the DLL application.//#include

"stdafx.h"#include "Test.h"

BOOL APIENTRY DllMain( HANDLE hModule,

DWORD ul_reason_for_call,

LPVOID lpReserved) {

switch (ul_reason_for_call)

{

case DLL_PROCESS_ATTACH:

case DLL_THREAD_ATTACH:

case DLL_THREAD_DETACH:

case DLL_PROCESS_DETACH:

break;

}

return TRUE;

}

// This is an example of an exported variable

TEST_API int nTest=0;

// This is an example of an exported function.

（原创）VS2019VB如何生成DLL文件，调用DLL

（原创）VS2019VB如何生成DLL文件，调用DLL

（原创）VS2019VB如何⽣成DLL⽂件，调⽤DLL

⼀。⽣成DLL1.打开VS2019,--->"创建新项⽬"------>"类库(NET Framework)---->下⼀步

2. 输⼊项⽬名称：bell,

3. 输⼊保存位置：D:\

4. 点击右下⽅“创建”

5.输⼊如下代码：

Public Class LearnDLL

Function ABC()

ABC = "你好！我学学怎么建⽴DLL⽂件，并怎么调⽤。"

End Function

End Class

5.按F5或启动------> "确定"

6.这时，在如下⽂件夹中就⽣成了：D:\BELL\bin\Debug\BELL.dll

⼆.调⽤dll⽂件1.在vs2019中新建window窗体应⽤程序

2. 输⼊项⽬名称：WindowsApp1

3. 输⼊保存位置：D:\4. 点击右下⽅“创建”

5.在窗体Form1中，添加Textbox1控件：

6.项⽬----添加引⽤

7. 浏览 D:\BELL\bin\Debug\BELL.dll---->添加

8.在BELL.DLL前打对号----->确定

9.双击Form1窗体，在代码页输⼊⼀下代码：

Public Class Form1

Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load

Dim Goodmood As New BELL.LearnDLL

TextBox1.Text = goodmood.ABC

End Sub

End Class10,编译运⾏

VB调用VC创建的Win32 DLL函数

VB调用VC创建的Win32 DLL函数

VB调用VC创建的Win32 DLL函数

周振红;冯夏庭;杨国录;周洞汝

【期刊名称】《计算机工程》

【年(卷),期】2002(028)004

【摘 要】探讨了Visual C++创建Win32DLL,Visual Basic对其函数实施调用过程中,命名修饰,调用约定、命名约定的匹配,数据类型对应以及参数传递一致性等问题,并给出了具体的应用实例.

【总页数】3页(P285-286,封三)

【作 者】周振红;冯夏庭;杨国录;周洞汝

【作者单位】郑州大学水环学院,郑州,450002;中国科学院武汉岩土力学研究所,武汉,430071;武汉大学,武汉,430072;武汉大学,武汉,430072

【正文语种】中 文

【中图分类】TP313

【相关文献】

1.VB调用VC创建的DLL及在控制领域中的应用 [J], 薛燕红

2.在VC中对Delphi所生成的DLLs的调用 [J], 李强;贾云霞

3.怎样在LabVIEW中调用Win32动态连接库(DLLs) [J], 陶以政;潘振显

4.PB调用VC创建的DLL在MIS中的设计与实现 [J], 陈建泗;商建云

5.在VB开发环境中调用由MATLAB函数转化的DLL [J], 冯旭

因版权原因，仅展示原文概要，查看原文内容请购买

VFB写DLL给VB调用

VFB写DLL给VB调用

VFB写DLL给VB调用

Function FF_WINMAIN(ByVal hInstance As HINSTANCE) As Long '程序入口函数

'hInstance EXE或DLL的模块句柄，就是在内存中的地址，EXE 通常固定为 &H400000 DLL 一般不固定

'编译为 LIB静态库时，这里是无任何用处

' DLL 例题 ******** 函数无需返回值

' DLL被加载到内存时，不要执行太耗时间的代码，若需要耗时就用多线程。

' AfxMsg "DLL被加载到内存时 "

' EXE 例题 ********

' AfxMsg "EXE刚启动 "

' 如果这个函数返回TRUE（非零），将会结束该软件。如果没有启动窗口，那么此函数过后，也会终止软件。

' 您可以在此函数做程序初始化。

' (这里的EXE、DLL表示自己的，无法获取其它EXE、DLL入口和出口)

Function = False

End Function

Sub FF_WINEND(ByVal hInstance As HINSTANCE) '程序出口，程序终止后的最后代码。

'hInstance EXE或DLL的模块句柄，就是在内存中的地址，EXE 通常固定为 &H400000 DLL 一般不固定

'编译为 LIB静态库时，这里是无任何用处

' DLL 例题 ********

' 卸载DLL，DLL被卸载，需要快速完成，不能用进程锁。 ' AfxMsg "DLL被卸载时 "

' EXE 例题 ********

' 程序即将结束，这里是最后要执行的代码，（：无法停止被退出的命运。

' AfxMsg "EXE退出 "

' (这里的EXE、DLL表示自己的，无法获取其它EXE、DLL入口和出口)

End Sub