函数参数调用,定义是byte调用是byte(),如何实现?

Question

网上看到一段读硬盘id的代码，如下，请看红色部分：Private Declare Function DiskID32 Lib "DiskID32.DLL" (ByRef DiskModel As Byte, ByRef DiskID As Byte) As LongPrivate Sub Command1_Click()
    Dim DiskModel(31) As Byte, DiskID(31) As Byte, i As Integer, Model As String, ID As String
    .......   
    For i = 0 To 31
        If Chr(DiskModel(i)) <> Chr(0) Then
            Model = Model & Chr(DiskModel(i))
        End If
        If Chr(DiskID(i)) <> Chr(0) Then
            ID = ID & Chr(DiskID(i))
        End If
    Next
End Sub问题：在函数定义中参数是2个byte值，为什么函数调用用，用户定义的两个byte（）数组中都有值了？
      是如何实现的？谢谢

Answer 1

不好意思，刚才漏掉了函数调用Private Declare Function DiskID32 Lib "DiskID32.DLL" (ByRef DiskModel As Byte, ByRef DiskID As Byte) As Long Private Sub Command1_Click() 
    Dim DiskModel(31) As Byte, DiskID(31) As Byte, i As Integer, Model As String, ID As String 
    If DiskID32(DiskModel(0), DiskID(0)) <> 1 Then
        MsgBox "get diskid32 err"
    Exit Sub
    End If 
    For i = 0 To 31 
        If Chr(DiskModel(i)) <> Chr(0) Then 
            Model = Model & Chr(DiskModel(i)) 
        End If 
        If Chr(DiskID(i)) <> Chr(0) Then 
            ID = ID & Chr(DiskID(i)) 
        End If 
    Next 
End Sub 

Answer 2

　　1、引用参数（ref）在可以作为引用参数在函数成员调用中传递之前，必须已明确赋值，而输出参数（out）在可以作为输出参数在函数成员调用中传递之前不一定要明确赋值，在该函数成员正常返回前都必须已明确赋值。　　2、在函数内部，引用参数（ref）被视为初始已赋值，输出参数（out）被视为初始未赋值。　　3、默认地，VB中的所有参数都是值传递。只有在参数的修饰符中明确包含out或ref，才是引用传递。但是需要知道的是，当参数的类型是引用类型时，你传递的是一个对象的引用而不是实际的对象。
sub Add1（ByVal no as int32）
　no=no+100
end subsub Add2（ByRef no as int32）
　no=no+100
end subprivate sub button1_click（sender as object，e as eventargs）handles button1.click
　dim a as int32
　a=100
　Add1（a）
　msgbox （"a的值为：" & a） '显示：a的值为100
　Add2（a）
　msgbox （"a的值为：" & a） '显示：a的值为200，因为Add2中的参数no为ByRef，即　'按地址传递，因此在Add2中对no进行修改后，将会导致
　'源参数a的值也被修改。
End Sub　　ByVal是传递值 源数据不会被修改，你可以把这个值当作自己的局部变量来使用；ByRef是传递地址，源数据可能被修改，你对这个变量的操作将对你传入的那个变量产生影响，就像指针的感觉。

Answer 3

谢谢jhone99。你的意思就是说，byte数组的值是在函数内部去修改吗？如果你给的实例程序中改一下：sub Add2（ByRef no as int32）
　no=no+100
end subprivate sub button1_click（sender as object，e as eventargs）handles button1.click
　dim a（） as int32
  a(0)=100
  Add2（a(0)）   ......这时a(0)是改变了，a(1)...a(n) 如何改变？函数如何把值传到数组中去？
End Sub

Answer 4

因为真实的参数声明类型其实是 char*，而且看起来约定为指向连续 32 个 byte 的指针。
参数 ByRef ... As Byte 其实就是声明一个 byte 指针，调用时传递数组的第一个成员（指针）正好符合要求。

Answer 5

需要熟悉 C 语言，需要知道 Windows 下的参数传递机制。
对没接触过的人，不是三言两语可以解释清楚的，先记住可以这么做吧。

Answer 6

你可以安装一个工具 API-Guide，里面有各种 API 的声明和调用的例子。
还有安装一个 MSDN，里面可以查到各种 API 的原型。
还有一个工具 APIViewer，帮你将各种 API 定义成 VB 的声明方式。多看例子，用原型和 VB 声明进行对照，应该很容易掌握规律的。

Answer 7

谢谢各位的回复，找了很多资料，用CopyMemory函数搞定了，谢谢大家的帮助