请参阅以下代码:
Public Class TypeTest Public variable1 As String End Class Public Class Form1 Private Sub Form1_Load(ByVal sender As Object,ByVal e As System.EventArgs) Handles Me.Load Dim t1 As TypeTest = New TypeTest Test(t1) MsgBox(t1.variable1) End Sub Public Sub Test(ByVal t1 As TypeTest) t1.Variable1 = "Thursday" End Sub End Class
form_load中的消息框打印:星期四,这意味着对象(TypeTest)通过引用传递.
在函数调用中使用ByVal和ByRef作为t1争论有什么区别:Test.
由于您将TypeTest声明为Class,因此它使其成为引用类型(与用于声明值类型的Structure相反).引用类型变量充当对象的指针,而值类型变量直接存储对象数据.
您的理解是正确的,ByRef允许您更改参数变量的值,而ByVal则不允许.使用值类型时,ByVal和ByRef之间的差异非常明显,但是当您使用引用类型时,行为的预期会少一些.您可以更改引用类型对象的属性值的原因,即使它是通过ByVal,也是因为变量的值是指向对象的指针,而不是对象本身.更改对象的属性根本不会更改变量的值.该变量仍包含指向同一对象的指针.
这可能会让您相信参考类型的ByVal和ByRef之间没有区别,但事实并非如此.它们是有区别的.不同之处在于,当您将引用类型参数传递给ByRef参数时,允许您调用的方法更改原始变量所指向的对象.换句话说,该方法不仅能够改变对象的属性,而且还能够将参数变量完全指向另一个对象.例如:
Private Sub Form1_Load(ByVal sender As Object,ByVal e As System.EventArgs) Handles Me.Load Dim t1 As TypeTest = New TypeTest t1.Variable1 = "Thursday" TestByVal(t1) MsgBox(t1.variable1) ' displays "Thursday" TestByRef(t1) MsgBox(t1.variable1) ' displays "Friday" End Sub Public Sub TestByVal(ByVal t1 As TypeTest) t1 = New Typetest() t1.Variable1 = "Friday" End Sub Public Sub TestByRef(ByRef t1 As TypeTest) t1 = New Typetest() t1.Variable1 = "Friday" End Sub
原文地址:https://www.jb51.cc/vb/255742.html
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。