[VB]

ByValとByRef

[動作環境]

Microsoft Vusual Basic 6.0(SP5)

[概要]

サブルーチンやファンクションで用いるByValとByRefの使い方です。

[ByVal]

値渡し。参照元には影響を与えません。

1： 呼出元

フォームにコマンドボタンを配置し、クリックイベントプロシージャに下記のコードを記述して下さい。

Dim l_arg As Long
l_arg = 1
Call msb_ByVal(l_arg)
MsgBox l_arg
	  

2： プロシージャ作成

モジュール内に下記のコードを記述して下さい。

Private Sub msb_ByVal(ByVal a_arg As Long)
	a_arg = a_arg * 100
End Sub  
	  

3： 確認

１で作成したコマンドボタンをクリックしてみて下さい。「１」と表示されたメッセージボックスが出るはずです。呼び出されたmsb_ByVal内では、a_argの値は 1* 100 = 100 になりますが、この場合引数の値は、呼出元に影響を与えませんので、呼出元のl_argの値は呼び出す前と変わらず「1」のままです。

[ByRef]

参照渡し。参照元に影響を与えます。

1： 呼出元

フォームにコマンドボタンを追加し、クリックイベントプロシージャに下記のコードを記述して下さい。

Dim l_arg As Long
l_arg = 1
Call msb_ByRef(l_arg)
MsgBox l_arg
      

2： プロシージャ作成

下記のコードを記述して下さい。

Private Sub msb_ByRef(ByRef a_arg As Long)
	a_arg = a_arg * 100
End Sub
      

3： 結果

1で作成したコマンドボタンをクリックしてみてください。今度は「100」と表示されたメッセージボックスが出るはずです。呼び出されたmsb_ByRefl内では、先ほどと同様にa_argの値は1*100=100になりますが、今回の引数の値は呼出元に影響を与えますので、呼出元のl_argの値は変更後の値「100」になります。

[応用]

ファンクションを用いた応用です。

1： 呼出元

フォームにコマンドボタンを追加し、クリックイベントプロシージャに下記のコードを記述して下さい。

Dim l_arg1 As Long
Dim l_arg2 As Long
Dim l_rst As Long

l_arg1 = 1
l_arg2 = 1
l_rst = mfn_Lesson(l_arg1, l_arg2)

MsgBox "l_arg1=" & l_arg1 & vbNewLine & _
		"l_arg2=" & l_arg2 & vbNewLine & _
		"l_rst =" & l_rst	  
	  

2： プロシージャ作成

下記のコードを記述して下さい。

Private Function mfn_Lesson(ByVal a_arg1 As Long, ByRef a_arg2 As Long) As Long
	a_arg1 = a_arg1 * 100
	a_arg2 = a_arg2 * 100
	mfn_Lesson = a_arg1 + a_arg2
End Function
	  

この段階で、メッセージボックスの値が予想してみてください。予想が出来たら、実行してみましょう。

3： 結果

この場合、ファンクションモジュール内での値はそれぞれ a_arg1 = 100, a_arg2 = 100, mfn_Lesson = 100 + 100 = 200 となります。しかし、a_arg1 は ByVal で定義されているのでファンクション内で変更された値を保持できません。結果、

l_arg1 = 1
l_arg2 = 100
l_rst = 200	  
	  

となります。予想は当たっていましたか？