Partilhar via


Como proteger um argumento de procedimento contra alterações de valor (Visual Basic)

Se um procedimento declara um parâmetro como ByRef, o Visual Basic fornece ao código do procedimento uma referência direta ao elemento de programação subjacente ao argumento no código de chamada. Isso permite que o procedimento altere o valor subjacente ao argumento no código de chamada. Em alguns casos, o código de chamada pode querer proteger contra tal alteração.

Você sempre pode proteger um argumento contra alterações declarando o parâmetro ByVal correspondente no procedimento. Se você quiser ser capaz de alterar um determinado argumento em alguns casos, mas não em outros, você pode declará-lo ByRef e deixar o código de chamada determinar o mecanismo de passagem em cada chamada. Ele faz isso colocando o argumento correspondente entre parênteses para passá-lo por valor, ou não o colocando entre parênteses para passá-lo por referência. Para obter mais informações, consulte Como forçar um argumento a ser passado por valor.

Exemplo

O exemplo a seguir mostra dois procedimentos que usam uma variável de matriz e operam em seus elementos. O increase procedimento simplesmente adiciona um a cada elemento. O replace procedimento atribui uma nova matriz ao parâmetro a() e, em seguida, adiciona uma a cada elemento. No entanto, a reatribuição não afeta a variável de matriz subjacente no código de chamada.

Public Sub increase(ByVal a() As Long)
    For j As Integer = 0 To UBound(a)
        a(j) = a(j) + 1
    Next j
End Sub
Public Sub replace(ByVal a() As Long)
    Dim k() As Long = {100, 200, 300}
    a = k
    For j As Integer = 0 To UBound(a)
        a(j) = a(j) + 1
    Next j
End Sub
Dim n() As Long = {10, 20, 30, 40}
Call increase(n)
MsgBox("After increase(n): " & CStr(n(0)) & ", " & 
    CStr(n(1)) & ", " & CStr(n(2)) & ", " & CStr(n(3)))
Call replace(n)
MsgBox("After replace(n): " & CStr(n(0)) & ", " & 
    CStr(n(1)) & ", " & CStr(n(2)) & ", " & CStr(n(3)))

A primeira MsgBox chamada exibe "Após aumento(n): 11, 21, 31, 41". Como a matriz n é um tipo de referência, increase pode alterar seus membros, mesmo que o mecanismo de passagem seja ByVal.

A segunda MsgBox chamada exibe "Após substituição(n): 11, 21, 31, 41". Porque n é passado ByVal, replace não é possível modificar a variável n no código de chamada atribuindo uma nova matriz a ele. Quando replace cria a nova instância k de matriz e a atribui à variável alocal, ela perde a referência a n ser transmitida pelo código de chamada. Quando ele altera os membros do a, somente a matriz k local é afetada. Portanto, replace não incrementa os valores de matriz n no código de chamada.

Compilar o código

O padrão no Visual Basic é passar argumentos por valor. No entanto, é uma boa prática de programação incluir a palavra-chave ByVal ou ByRef em cada parâmetro declarado. Isso torna seu código mais fácil de ler.

Consulte também