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 * 类型参数.....