Différence entre ByVal et ByRef?

ByRef = Vous donner à votre ami de votre durée de papier (l'original) il le marque place et peut vous le renvoyer.

ByVal = Vous donner hime une copie de la durée de papier et il vous redonner ses changements, mais vous devez les mettre dans votre origine vous-même.

Aussi simple que je peux le faire.

Pourquoi utiliser Byref:

ByRef va passer le POINTEUR sur l'objet que vous êtes de passage. Si vous êtes dans le même espace mémoire, ce qui signifie en passant juste la 'parole' pas l'objet. La méthode que vous êtes de passage, il peut faire des changements dans la origuinal objet, et n'a pas besoin de passer de retour à, comme ils sont dans l'objet d'origine. Utile pour la prise de données de grande taille passe plus vite. Vous pouvez également utiliser ByRef pour permettre l'utilisation d'un SOUS plutôt que d'une FONCTION (En VB) car il n'a pas besoin de passer de l'arrière de l'objet.

Pourquoi ne Pas Utiliser Byref:

Puisque la méthode a accès à l'original, anychanges fait sera immédiate et permanente. Si la méthode échoue, le oblect pourrait être endommagé. L'aide de ByVal faire une copie, passer l'ensemble de la copie dans la méthode, et puis le metod permettra de traiter l'info et soit retunr une copie de retour, rapport d'information ou ne rien faire.

Je sais que cette question a été à peu près répondu, mais je voulais juste ajouter le suivant...

L'objet que vous avez passer à une fonction est soumise à ByRef/ByVal, cependant, que si l'objet contient des références à d'autres objets, ils peuvent être modifiés par la méthode appelée indépendamment de ByRef/ByVal. Mauvaise explication, je sais, voir code ci-dessous pour une meilleure compréhension:

Public Sub Test()
    Dim testCase As List(Of String) = GetNewList()
    ByRefChange1(testCase)
    'testCase = Nothing
    testCase = GetNewList()

    ByValChange1(testCase)
    'testCase is unchanged
    testCase = GetNewList()

    ByRefChange2(testCase)
    'testCase contains the element "ByRef Change 2"
    testCase = GetNewList()

    ByValChange2(testCase)
    'testCase contains the element "ByVal Change 2"

End Sub

Public Function GetNewList() As List(Of String)
    Dim result As List(Of String) = New List(Of String)
    result.Add("Value A")
    result.Add("Value B")
    result.Add("Value C")
    Return result
End Function

Public Sub ByRefChange1(ByRef aList As List(Of String))
    aList = Nothing
End Sub

Public Sub ByValChange1(ByVal aList As List(Of String))
    aList = Nothing
End Sub

Public Sub ByRefChange2(ByRef aList As List(Of String))
    aList.Add("ByRef Change 2")
End Sub

Public Sub ByValChange2(ByVal aList As List(Of String))
    aList.Add("ByVal Change 2")
End Sub

EDIT:

Aussi, examiner si cette fonction a été appelée:

Public Sub ByValChange3(ByVal aList As List(Of String))
    aList.Add("ByVal Change 3")
    aList = New List(Of String)
    aList.Add("ByVal Change 4")
End Sub

Ce qui se passe dans ce cas est "ByVal Changement 3" est ajouté à la liste des demandeurs, mais au point de vous préciser que les "accédez à la liste = New List", vous êtes alors en pointant la nouvelle référence, à un nouvel objet, et détaché de la liste des demandeurs. La fois du bon sens et pourrait vous rattraper un jour, donc, quelque chose à garder à l'esprit.

Pense que il peut y avoir une faute de frappe dans le dernier échantillon:
Le dernier doit être "byval" et non pas "byref". 🙂

Également ajouté une instruction msgbox dans trying_byval de sorte que vous pouvez comprendre ce que cela signifie.

Sub begin()
Dim last_column As Integer

last_column = 234
MsgBox "Begin:" & last_column

trying_byref x:=last_column
MsgBox "byref:" & last_column

trying_byval v:=last_column
MsgBox "byval:" & last_column
End Sub

Sub trying_byref(ByRef x)
x = 111
End Sub

Sub trying_byval(ByVal v)  '<--not ByRef, that was in sub trying_byref.
v = 222
MsgBox "In Here:" & v
End Sub

Réponses par @Tom et @kelloti sont utiles. Voici un exemple de code pour illustrer plus loin:

Private Function ValMessage(ByVal SomeMessage As String)
    SomeMessage = "Val Val Val" ' <-- this variable modification doesn't persist after the function finishes execution
    ValMessage = "Some Return Value"
End Function

Private Function RefMessage(ByRef SomeMessage As String)
    SomeMessage = "Ref Ref Ref" ' <-- this variable modification persists even after the function finishes execution
    RefMessage = "Some Return Value"
End Function

Private Sub DoStuff()
    Dim OriginalMessage As String
    Dim OtherMessage As String
    Dim AnotherMessage As String

    OriginalMessage = "Original"
    MsgBox ("ORIGINAL: " & OriginalMessage) '--> "Original"

    OtherMessage = ValMessage(OriginalMessage)
    MsgBox ("ORIGINAL: " & OriginalMessage) '--> "Original"

    AnotherMessage = RefMessage(OriginalMessage)
    MsgBox ("ORIGINAL: " & OriginalMessage) '--> "Ref Ref Ref" <--- this is the difference when you pass a paramter by reference
End Sub