ByVal и ByRef с ссылочным типом
Пожалуйста, смотрите код ниже:
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.