推 fumizuki:vb6 預設是 ByRef 編譯器會自動拿掉這個關鍵字 09/07 07:12
推 colawei:平常我也不會加,有時想到就很自然的加上去了...Orz 09/07 21:02
推 fumizuki:vb.net 預設是 ByVal 囧 09/09 12:41
實在看不懂你想做啥. 不過如果你想傳陣列到SUB 或FUNCTION
那大致上是這樣吧...
Sub aaa()
Dim y(1 To 5) As Integer
For i = 1 To 5
y(i) = i
Next
bbb(2, 1) = y(2) + 1
variable_cal y()
End Sub
Sub variable_cal(ByRef y() As Integer)
Dim cal() As Integer
For y(1) = 1 To 5
ReDim Preserve cal(1 To y(1)) As Integer
cal(y(1)) = bbb(2, 1)
a = a + cal(y(1))
Next y(1)
End Sub
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 219.81.195.242