arg type
VB6 has 3 arg-types;
type1: with nothing(=参照渡し@VB6)
type2: with ByVal=値渡し
type3: with ByRef=参照渡し
==sample============
1: Private Sub test(a As Integer, ByVal b As Integer, ByRef c As Integer)
2: a = a + 1
3: b = b + 1
4: c = c + 1
5: End Sub
6: Private Sub Form_Load()
7: Dim a As Integer, b As Integer, c As Integer
8: a = 1
9: b = 1
10: c = 1
11: test a, b, c
12: Debug.Print a
13: Debug.Print b
14: Debug.Print c
15: End Sub
====================
↓
====================
1: 2
2: 1
3: 2
====================
ref:
http://www.atmarkit.co.jp/fdotnet/vb6tonet2/vbnet2_01/vbnet2_01_03.html
type1: with nothing(=参照渡し@VB6)
type2: with ByVal=値渡し
type3: with ByRef=参照渡し
==sample============
1: Private Sub test(a As Integer, ByVal b As Integer, ByRef c As Integer)
2: a = a + 1
3: b = b + 1
4: c = c + 1
5: End Sub
6: Private Sub Form_Load()
7: Dim a As Integer, b As Integer, c As Integer
8: a = 1
9: b = 1
10: c = 1
11: test a, b, c
12: Debug.Print a
13: Debug.Print b
14: Debug.Print c
15: End Sub
====================
↓
====================
1: 2
2: 1
3: 2
====================
ref:
http://www.atmarkit.co.jp/fdotnet/vb6tonet2/vbnet2_01/vbnet2_01_03.html
