在VB中调用动态连接库
b
Sub ChangeStrAryToByte(StrAry()
As String, ByteAry() As Byte)
''将字符串数组转换成字节数组
Dim LowBound, UpBound As Integer
Dim i, count, StartPos, MaxLen As Integer
Dim TmpByte() As Byte
LowBound = LBound(StrAry)
UpBound = UBound(StrAry)
count = 0
ReDim ByteAry(0)
For i = LowBound To UpBound
MaxLen = LenB(StrAry(i))
ReDim TmpByte(MaxLen + 1)
ReDim Preserve ByteAry(count + MaxLen + 1)
Call StrToByte(StrAry(i), TmpByte) ''转换一个字符串
StartPos = count
Do
ByteAry(count) = TmpByte(count - StartPos)
count = count + 1
If ByteAry(count - 1) = 0 Then Exit Do
Loop ''将每一个字符串对应
的字节数组按顺序填入结果数组中
ReDim Preserve ByteAry(count - 1)
Next i
End Sub
下面看一个转换的例子：
DimResultAry()asByte
DimSomeStr(2)asString
SomeStr(0)="测试1"
SomeStr(1)="测试222"
SomeStr(2)="测试33"
CallChangeStrAryToByte
(SomeStr,ResultAry)''转换字符串数组
当转换完成以后，查看字节数组ResultAry，其中包含了21个元素，依次是：178，226，202，212，49，0，178，226，202，212，50，50，50，0，178，226，202，212，51，51，0。其中，[178，226]是"测"的字节码，[202，112]是"试"的字节码，49，50，51 分别为字符1、2、3的ASCII码。可见，经过转换后，字符串数组中的各个元素按顺序放在了字节数组中，相互间以终止符0分隔。
这样，字符串数组就全部转换成了字节数组，然后只要将字节数组的第一个元素以传址的方式传入动态连接库，DLL过程就可以正确地访问数组中的所有字符串了。但是，使用这种方法，当DLL过程处理结束返回VB时，VB得到的仍然是字节数组。如果需要在VB中再次得到该字节数组表示的字符串，还要把整个字节数组重新以0为分割符分成多个子数组（每个子数组都对应原来字符串数组中的一个元素），然后使用VB函数StrConv将每个子数组转换成字符串（转换时第二个参数选vbUnicode），就可以显示或进行其它操作了。例如，其中一个子数组的名字是SubAry，则函数StrConv(SubAry,vbUnicode)就返回了它所对应的字符串。
总之，VB应用程序和动态库间字符串参数的传递是一个比较复杂的过程，使用时要非常谨慎。同时应尽可能避免传递字符串数组类型的参数，因为这很容易引起下标越界、堆栈溢出等严重错误。
(3)、用户自定义类型（User-defined Type）参数的传递
用户自定义类型在VB中是一种重要的数据类型，它为编程者提供了很大的灵活性，使开发人员可以根据需要构造自己的数据结构。它相当于C/C++中的结构类型（structure）。在VB中，允许程序员以传址的方式将自定义数据类型参数传入动态库，DLL过程也可以将修改后的参数返回VB程序。但是，在VB中仍然不支持以传值的方式传递用户自定义类型参数。
传递用户自定义类型参数时，必须确保VB中的数据类型的成员与动态库中的结构成员是一一对应的，所占空间也必须严格一致。这里所说的一一对应，不仅是指VB 中的所有结构成员在动态库的结构中都必须有对应的元素，而且它们在数据结构中定义的顺序也必须严格一致，这是VB中使用的"数据结构成员对齐方式"决定的。在VB 中，数据结构使用双字对齐方式（4-byte alignment），因此，在用户自己生成用于VB 调用的动态连接库时，也必须把编译选项"structure member alignment" 设为4字节（如前文所述）。
所谓结构成员对齐方式是指一个数据结构内部，其成员的排列方式。譬如，在VB中，其对齐方式是4字节，这就好象在一个数据结构内部分成了很多个4字节大小的小单元，如果相邻 两个或多个数据成员的大小可以放在一
Sub ChangeStrAryToByte(StrAry()
As String, ByteAry() As Byte)
''将字符串数组转换成字节数组
Dim LowBound, UpBound As Integer
Dim i, count, StartPos, MaxLen As Integer
Dim TmpByte() As Byte
LowBound = LBound(StrAry)
UpBound = UBound(StrAry)
count = 0
ReDim ByteAry(0)
For i = LowBound To UpBound
MaxLen = LenB(StrAry(i))
ReDim TmpByte(MaxLen + 1)
ReDim Preserve ByteAry(count + MaxLen + 1)
Call StrToByte(StrAry(i), TmpByte) ''转换一个字符串
StartPos = count
Do
ByteAry(count) = TmpByte(count - StartPos)
count = count + 1
If ByteAry(count - 1) = 0 Then Exit Do
Loop ''将每一个字符串对应
的字节数组按顺序填入结果数组中
ReDim Preserve ByteAry(count - 1)
Next i
End Sub
下面看一个转换的例子：
DimResultAry()asByte
DimSomeStr(2)asString
SomeStr(0)="测试1"
SomeStr(1)="测试222"
SomeStr(2)="测试33"
CallChangeStrAryToByte
(SomeStr,ResultAry)''转换字符串数组
当转换完成以后，查看字节数组ResultAry，其中包含了21个元素，依次是：178，226，202，212，49，0，178，226，202，212，50，50，50，0，178，226，202，212，51，51，0。其中，[178，226]是"测"的字节码，[202，112]是"试"的字节码，49，50，51 分别为字符1、2、3的ASCII码。可见，经过转换后，字符串数组中的各个元素按顺序放在了字节数组中，相互间以终止符0分隔。
这样，字符串数组就全部转换成了字节数组，然后只要将字节数组的第一个元素以传址的方式传入动态连接库，DLL过程就可以正确地访问数组中的所有字符串了。但是，使用这种方法，当DLL过程处理结束返回VB时，VB得到的仍然是字节数组。如果需要在VB中再次得到该字节数组表示的字符串，还要把整个字节数组重新以0为分割符分成多个子数组（每个子数组都对应原来字符串数组中的一个元素），然后使用VB函数StrConv将每个子数组转换成字符串（转换时第二个参数选vbUnicode），就可以显示或进行其它操作了。例如，其中一个子数组的名字是SubAry，则函数StrConv(SubAry,vbUnicode)就返回了它所对应的字符串。
总之，VB应用程序和动态库间字符串参数的传递是一个比较复杂的过程，使用时要非常谨慎。同时应尽可能避免传递字符串数组类型的参数，因为这很容易引起下标越界、堆栈溢出等严重错误。
(3)、用户自定义类型（User-defined Type）参数的传递
用户自定义类型在VB中是一种重要的数据类型，它为编程者提供了很大的灵活性，使开发人员可以根据需要构造自己的数据结构。它相当于C/C++中的结构类型（structure）。在VB中，允许程序员以传址的方式将自定义数据类型参数传入动态库，DLL过程也可以将修改后的参数返回VB程序。但是，在VB中仍然不支持以传值的方式传递用户自定义类型参数。
传递用户自定义类型参数时，必须确保VB中的数据类型的成员与动态库中的结构成员是一一对应的，所占空间也必须严格一致。这里所说的一一对应，不仅是指VB 中的所有结构成员在动态库的结构中都必须有对应的元素，而且它们在数据结构中定义的顺序也必须严格一致，这是VB中使用的"数据结构成员对齐方式"决定的。在VB 中，数据结构使用双字对齐方式（4-byte alignment），因此，在用户自己生成用于VB 调用的动态连接库时，也必须把编译选项"structure member alignment" 设为4字节（如前文所述）。
所谓结构成员对齐方式是指一个数据结构内部，其成员的排列方式。譬如，在VB中，其对齐方式是4字节，这就好象在一个数据结构内部分成了很多个4字节大小的小单元，如果相邻 两个或多个数据成员的大小可以放在一