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

[sfwolf2003]

网上看到一段读硬盘id的代码，如下，请看红色部分：

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
.......
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（）数组中都有值了？
是如何实现的？谢谢

[sfwolf2003]

不好意思，刚才漏掉了函数调用

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

[jhone99]

ByRef， 这是传送地址

[SYSSZ]

按调用数组参数的方法调用,按址传递

[sfwolf2003]

[Quote=引用 2 楼 jhone99 的回复:]
ByRef， 这是传送地址
[/Quote]

如果我自己的程序中也想用这样的功能，该怎么实现呢？

[sfwolf2003]

[Quote=引用 3 楼 SYSSZ 的回复:]
按调用数组参数的方法调用,按址传递
[/Quote]

能说的具体点吗，我才接触编程

[sfwolf2003]

谢谢各位的回复，我关心的是在vb中如何实现，哪位朋友有代码或资料，希望分享下，谢谢了！

[jhone99]

　　1、引用参数（ref）在可以作为引用参数在函数成员调用中传递之前，必须已明确赋值，而输出参数（out）在可以作为输出参数在函数成员调用中传递之前不一定要明确赋值，在该函数成员正常返回前都必须已明确赋值。

　　2、在函数内部，引用参数（ref）被视为初始已赋值，输出参数（out）被视为初始未赋值。

　　3、默认地，VB中的所有参数都是值传递。只有在参数的修饰符中明确包含out或ref，才是引用传递。但是需要知道的是，当参数的类型是引用类型时，你传递的是一个对象的引用而不是实际的对象。

sub Add1（ByVal no as int32）
　no=no+100
end sub

sub Add2（ByRef no as int32）
　no=no+100
end sub

private 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是传递地址，源数据可能被修改，你对这个变量的操作将对你传入的那个变量产生影响，就像指针的感觉。

[sfwolf2003]

谢谢jhone99。

你的意思就是说，byte数组的值是在函数内部去修改吗？

如果你给的实例程序中改一下：

sub Add2（ByRef no as int32）
　no=no+100
end sub

private 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

[android2008]

帮顶

[Tiger_Zhao]

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

[sfwolf2003]

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

能给个简单代码么，才接触很多东西不是很清除，谢谢

[Tiger_Zhao]

[Quote=引用 9 楼 sfwolf2003 的回复:]
能给个简单代码么，才接触很多东西不是很清除，谢谢
[/Quote]
需要熟悉 C 语言，需要知道 Windows 下的参数传递机制。
对没接触过的人，不是三言两语可以解释清楚的，先记住可以这么做吧。

[Tiger_Zhao]

你可以安装一个工具 API-Guide，里面有各种 API 的声明和调用的例子。
还有安装一个 MSDN，里面可以查到各种 API 的原型。
还有一个工具 APIViewer，帮你将各种 API 定义成 VB 的声明方式。

多看例子，用原型和 VB 声明进行对照，应该很容易掌握规律的。

[sfwolf2003]

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