VB中传值与传址案例

求：VB中传值与传址案例

下面是我自己写一个函数案例：
传值的：
public sub hanshu(byval neirong as string)
........
end sub

传地址：
public sub hanshu(byref kuai() as byte) ‘BYTE数组不能用byval传送，详细就看看内存操作的资料。
........
end sub

如果要函数名传送那就只能传送地址，方法：
addressof 函数名 ‘一般用在多线程和钩子里，因为要调用用户的内容所以就用传送地址来获得函数位置进行调用（也就是内存操作）。

上面中BYREF可以不加，这样VB也会自动识别为按地址传递。

byref byval 知道什么意思,然后灵活运用

byval byref

假设有一个整形变量a，a=100，a储存在第12345678号单元中。 传值：喏，a是100，你拷一份用吧。 传址：a在第12345678号，你自己去找吧。

ByVal 与 ByRef(默认值) 这两个是子过程的参数传递时,指定参数按什么传递的 ByVal(按值传递) ByRef(按地址传递) 过程中的参数列表,我们称形参 调用过程时的参数列表,我们称实参 在调用时,我们要将实参的值传递给形参,这样过程才能拿这些数据参与计算并实现一些功能 那么在传递的过程中,就存在这两种传递方式 传值时(ByVal),是先给形参开辟一个临时地址,将实参的内容传入这个临时地址,这样,传递后,形参与实参是在两上不同的地址中,也就是说他们是相互独立的 传址时(ByRef),是直接将实参的地址传递给形参,这样,形参与实参就共用一个地址,所以,形参内容的改变,也直接改变了实参的内容 通过上面的分析,你只要记得: 按值传递时(ByVal),形参的改变不会影响到实参 按址传递时(ByRef),形参的改变,会影响到实参 应用时,我们可以利用按址传递的过程,给一个子过程(FUNCTION函数)进行参数返回 例如: 以下函数 Public Function GetStr(ByVal lpath As String) As String Dim A, S If Dir(lpath) <> "" Then Open lpath For Output As #1 Do While Not EOF(1) Line Input #1, S A = A + S Loop Close #1 GetStr = A Else GetStr = "" End If End Function 如果没有BYVAL 不会影响结果 但是BYREF是不同的,他是按照地址来传递数据的 所以本质上是不同的!