VB中的一个关于引用DLL的问题

Question

Private Sub Command1_Click()
Dim a() As Byte
Dim b As String
Dim ret As Longa = StrConv(Text1.Text, vbFromUnicode)
ret = make(a(0), UBound(a) - LBound(a) + 1, CLng(Text2.Text), CLng(Text3.Text), "c:\\abc.bmp", CLng(Text4.Text))
End Sub在make 处报缺少函数或变量，请问是什么问题？多谢了

Answer 1

Private Declare Sub make Lib "MakeQRBarcode.dll" (ucData As Byte, ByVal nLen As Long, ByVal nErrlevel As Long, ByVal nMask As Long, ByVal szFileName As String, ByVal nScale As Long)Private Sub Command1_Click()
Dim a() As Byte
Dim b As String
Dim ret As Longa = StrConv(Text1.Text, vbFromUnicode)
ret = make(a(0), UBound(a) - LBound(a) + 1, CLng(Text2.Text), CLng(Text3.Text), "c:\\abc.bmp", CLng(Text4.Text))
End Sub

Answer 2

根据定义，make 函数应该没有返回值。
直接：make a(0), UBound(a) - LBound(a) + 1, CLng(Text2.Text), CLng(Text3.Text), "c:\\abc.bmp", CLng(Text4.Text)即可