VB如何调用dll函数

假如我有个DLL,名为 asdfg.dll 它里面有一个函数 zxc(参数1,参数2) 我要用这个函数,该怎么写?

1.在工程-引用中将asdfg.dll引用过来

 2.dim AAA as asdfg  'asdfg是类模块的名称   

Private Sub Form_Load()    

dim x 
  Set AAA = New asdfg  
  x = AAA.zxc(参数1,参数2)'参数1,2自己写 

  End Sub 


1.新建一个ActiveX Dll,工程名字为vbmytestdll,类模块

名字为mytestdll  
2.类模块内容只有一个函数,主要返回DLL的HELLO WORLD  

Public Function dlltest1() As String  

dlltest1 = "HELLO WORLD"  

End Function


3.保存,生成DLL,名字为   
vbmytestdll.dll   
4.新建一个EXE工程,在菜单: 工程---引用---浏览里找到vbmytestdll.dll,把它引用进来 


5.EXE工程代码如下:   
Option Explicit  
Dim testdll As mytestdll'类模块名字   
Private Sub Form_Load()  
Set testdll = New mytestdll 'DLL的一个新实例  

Me.Caption = testdll.dlltest1 '我的标题=返回DLL的HELLO WORLD 

End Sub

  • 0
    点赞
  • 3
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值