VB 中的 BY REF

Question

Dim a(10) As IntegerPrivate Sub Command1_Click()
Dim s(5) As Integers(1) = BYref (a(1))
是否可用BYref 赋值~~难道就只能在参数传递才能这样??我想对S的操作a同样发生改变~~End Sub

Answer 1

Byref 关键字似乎只能在函数定义时的参数表里出现哦。
想要实现C那样的指针效果，可以用VB的VarPtr()+CopyMemory()实现。
下面是示例代码段：
Dim a(10) As Integer
Dim p As Long
p = VarPtr(a(0))
p = p + 2
Call CopyMemory(ByVal p, 122, 2)
Debug.Print a(1)