方法 : プロシージャ引数の値を変更する

[アーティクル]
09/30/2008

更新 : 2007 年 11 月

プロシージャを呼び出すときに指定する各引数は、プロシージャに定義されたパラメータのいずれかに対応します。場合によっては、プロシージャのコードで、呼び出し元のコードにある引数の基の値が変更されることもあります。または、引数のローカルコピーだけがプロシージャで変更される場合もあります。

プロシージャを呼び出すと、Visual Basic は ByVal で渡されたすべての引数のローカルコピーを作成します。ByRef で渡された各引数に対しては、プロシージャコードから呼び出し元のコードにある引数の基のプログラミング要素を直接参照できるように、Visual Basic が操作します。

呼び出し元のコードにある基の要素が可変であり、引数が ByRef で渡されていれば、プロシージャコードから呼び出し元のコードにある要素の値を直接参照して変更できます。

基の値を変更する

呼び出し元のコードにある、プロシージャ引数の基の値を変更するには

プロシージャ宣言で、引数に対応するパラメータに ByRef を指定します。
呼び出し元のコードで、可変のプログラミング要素を引数として渡します。
呼び出し元のコードで、引数を引数リストのかっこで囲まないでください。
プロシージャコードでパラメータ名を使用して、呼び出し元のコードにある基の要素に値を代入します。

詳しくは、後に示すコード例を参照してください。

ローカルコピーの変更

呼び出し元のコードにある基の要素が不変であるか、または引数が ByVal で渡されている場合、プロシージャから呼び出し元のコードにある基の値を変更できません。ただし、プロシージャからこの引数のローカルコピーを変更できます。

プロシージャコードにある、プロシージャ引数のコピーを変更するには

プロシージャ宣言で、引数に対応するパラメータに ByVal を指定します。

または

呼び出し元のコードで、引数を引数リストのかっこで囲みます。こうすると、Visual Basic は引数に対応するパラメータに ByRef が指定されている場合でも、引数を値渡しで渡します。
プロシージャコードでパラメータ名を使用して、引数のローカルコピーに値を代入します。呼び出し元のコードにある基の値は変更されません。

使用例

次の例には、配列変数を受け取ってその要素を操作する 2 つのプロシージャがあります。increase プロシージャは、各要素に単純に 1 を加算します。replace プロシージャは、パラメータ a() に新しい配列を代入してから各要素に 1 を加算します。

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(ByRef 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)))

最初に MsgBox を呼び出すと、"After increase(n): 11, 21, 31, 41" が表示されます。配列 n が参照型なので、引数渡しの方法が ByVal であっても replace からそのメンバを変更できます。

2 度目に MsgBox を呼び出すと、"After replace(n): 101, 201, 301" が表示されます。n が ByRef で渡されたため、 replace から呼び出し元のコードにある変数 n を変更でき、新しい配列を変数に代入できます。 n が参照型なので、 replace からそのメンバを変更することもできます。

プロシージャから呼び出し元のコードにある変数そのものを変更しないようにできます。「方法 : プロシージャ引数の値が変化しないようにする」を参照してください。