Pomogite

[Vicenza]

Zdraste,
skajite kak mne trehmerni massiv skajem
Dim Arr(2,2,2) as string
pereslat v funkizyu ? Ves.

Eto vozmojno?

Ya umeu v vidu pervuyu strochku funkzii, ee obyavlenie.

[ALX_2002]

Ну по идее через byref можно это сделать. Т.е

Код: Выделить всё

Dim ARR(2, 2, 2) As String

Private Sub Form_click()
ARR(1, 1, 1) = 1
ARR(2, 2, 2) = 2
MsgBox GetArr(ARR)
End Sub

Function GetArr(ByRef RefArr)
GetArr = ARR(1, 1, 1)
End Function


[ShadowCaster]

Sub someAction (arr() as String)[/b]

[Vicenza]

Spasibo ogromnoe , pomogli.