Question

VB引用DLL失败

首先，建了一个类模块
工程名：ProDll
类名称：PrintDll
然后在通用部份写了

Public Function FuncTest(ByVal a As String) As Boolean

If a = "a" Then
FuncTest = True
Else
FuncTest = False
End If
End Function
然后生成ProDll.dll放到了system32
新建一个工程，窗体一个label1,text1,command1
Private Declare Function FuncTest Lib "ProDll" Alias "FuncTestA" (ByVal a As String) As Boolean

Private Sub Form_Load()
Text1.Text = "a"
End Sub
Private Sub Command1_Click()
Dim a As String
a = Text1.Text
If FuncTest(a) = True Then
Label1.Caption = "A"
Else
Label1.Caption = "B"
End If
End Sub
点击按钮老提示实时错误453，找不到dll入口。
网上看了一些处理方法，regsvr32啦，注意大小写啊，等，都不行，是哪里没弄对吗？

另外：Private Declare Function FuncTest Lib "ProDll" Alias "FuncTestA" (ByVal a As String) As Boolean
这句中的 ProDll,少了.dll应该不影响吧。
还有，为什么我把Private老提示常数、固定长度....不允许作为对象模块的Public成员。
什么样才可以写成Public

Answer 1

是的VB不能直接生成标准的DLL，其生成的DLL是ActiveX DLL，只能通过引用对象的方式来使用，而不能象标准DLL那样DECLARE。
想要生成标准DLL，可以参照下面这个方法：
http://useway.blog.51cto.com/736087/295700

Answer 2

重新注册下SkinH_VB6.dll，或将其放入system32 regsvr32 /s DLL路径
打字不易，如满意，望采纳。

追问

那个dll在哪，是什么东西呢

Answer 3

VB无法做标准DLL,所以不能用DECLARE语句。

追问

要怎么改才能引用我弄的dll,一个程序不都是一大堆dll，是怎么连接起来的。