Question

VB如何调用VC++编的DLL

dll在vc测试是可以使用的。VB报错can't find dll entry point

Option Explicit
Private Declare Function sum1 Lib "LSum.dll" (ByVal A1 As String, ByVal A2 As String, _
ByVal A3 As String, ByVal A4 As String) As Integer
Private Sub Command1_Click()
MsgBox "1"
Dim x1 As String
Dim x2 As String
Dim x3 As String
Dim x4 As String
x1 = "c:/code/1/2.sum"
x4 = "c:/code/1/4.sum"
x2 = "c:/code/1/2.sum"
x3 = "c:/code/1/3.sum"
Dim resulr As Integer
resulr = sum1(x1, x2, x3, x4)
End Sub

Answer 1

　　declare sub Get_parameters lib "dllname" (arglist as type)

　　VB里的说明语句（Declare），仅支持动态链结库（DLL）的子程序和无变量函数。
VB程序要使用DLL中的函数，首先必须要有特殊的声明，用Declare声明语句在窗体级或模块级或全局模块的代码声明段进行声明，将动态链接库中的函数声明到VB中，供VB程序调用。
　　语句格式为：Declare Sub 过程名Lib [ Alias " 别名]（[ByVal 参数AS类型]），或为Declare Function函数名Lib [Alias " 别名]（[ByVal 参数AS类型]）AS类型在声明中首先用Declare关键字表示声明DLL中的函数。

Answer 2

vc写的dll有些VB调用不了，好像是因为里面的一些函数VB不适合，网上有相关的介绍，再google下试试

Answer 3

Public Declare Function AbortPrinter Lib "winspool.drv" Alias "AbortPrinter" (ByVal hPrinter As Long) As Long
少Alias "XXXX“吧

Answer 4

你确定你的dll源码 函数参数是 char * 字符指针 ？

追问

_declspec(dllexport) int sum1(string AA1,string AA2,string AA3,string AA4)

追答

改char* 去
如果你用过windows api，玩过api viewer 就会发现 vb调用api ，api的参数为 char * 类型
vb 用byval 的string

追问

你的意思是说，数据类型是不一样的吧，我就想知道怎么改？

追答

写dll sum1函数不用string类型参数 用 char * 类型参数.....