Option Explicit

Private Type UserType

Field1 As Long

Field2 As Byte

Field3 As String

End Type

Dim MyArray(20) As UserType

Private Sub Form_Load()

MyArray(4).Field3 = "Old"

Call MySub(MyArray(4))

MsgBox MyArray(4).Field3

End Sub

Private Sub MySub(ByRef Element As UserType)

Element.Field3 = "New"

End Sub

Ответить

Нет. Так понятно. Но надо вот что:

Option Explicit

Private Type TypeTest

a As Long

b As Long

End Type

Private arTest() As TypeTest

Private Sub Form_Load()

ReDim arTest(1 To 2)

arTest(1).a = 1

Call GetInitType

MsgBox arTest(1).a ' // Должно выводиться 10. Выводится 1

End Sub

Private Sub GetInitType()

Dim tp As TypeTest

GetType tp

tp.a = 10

End Sub

Private Sub GetType(ByRef tpTest As TypeTest)

' !!! Здесь надо вернуть по ссылке элемент массива, а не его копию !!!

tpTest = arTest(1) ' // Копирует

End Sub

Ответить

Ты хочешь чтобы две переменные указывали на одно место в памяти? Это тебе не С++, не прокатит. И, если не секрет - зачем это надо? Зачем промежуточная структура нужна? Передавай сразу элемент массива по ссылке - получишь то что хочешь.

Через CopyMemory можно сделать разве что нечто подобное

Option Explicit

Private Type TypeTest

a As Long

b As Long

End Type

Private arTest() As TypeTest

Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (Destination As Any, Source As Any, ByVal Length As Long)

Private Sub Form_Load()

ReDim arTest(1 To 2)

arTest(1).a = 1

Call GetInitType

MsgBox arTest(1).a ' // ?????? ?????????? 10. ????????? 1

End Sub

Private Sub GetInitType()

Dim tp As TypeTest

tp.a = 10

Call GetType(tp)

End Sub

Private Sub GetType(ByRef tpp As TypeTest)

CopyMemory ByVal VarPtr(arTest(1)), ByVal VarPtr(tpp), Len(arTest(1))

' !!! ????? ???? ??????? ?? ?????? ??????? ???????, ? ?? ??? ????? !!!

'tpTest = arTest(1) ' // ????????

End Sub

Ответить

1. CopyMemory ByVal VarPtr(arTest(1)), ByVal VarPtr(tpp), Len(arTest(1)) тоже самое что и CopyMemory arTest(1), tpp, Len(arTest(1))

2. Это копирование. Оно не подходит хотя бы из-за вложенности массивов. Да и не хочется копировать.

3. Массив приватно определен в одном модуле, а используется в другом.

Соответственно, заранее неизвестно с каким элементом неоходимо работать.

И не получется не запросить элемент массива, не запросить весь массив.

4. Пока только одна идея работает. Это передавать весь массив по ссылке сразу во все функции, где он может понадобиться.

Ответить

Так, еще раз...

Зачем тебе временная структура? Неважно во скольких модулях ты хочешь использовать элемент своего приватного массива, лишь бы тип был побличный:

'Модуль 1

Option Explicit

Public Type MyType

Field1 As Long

Field2 As Long

End Type

Private Massive(20) As MyType

Sub main()

Call mass(Massive(10))

MsgBox Massive(10).Field1

End Sub

'Модуль 2

Option Explicit

Sub mass(ByRef Elem As MyType)

Elem.Field1 = 123

End Sub

Где тут копирование???

Ответить

Ты спросил зачем несколько функций. Я ответил, что в разных модулях. Конечно не важно что в нескольких.

'Модуль 1

Option Explicit

Public Type MyType

Field1 As Long

Field2 As Long

End Type

Private Massive(20) As MyType

Sub main()

Call mass(Massive(10)) ' !!!!! Еще раз. Здесь неизвестен еще индекс элемента, который нужен. Поэтому нельзя передавать конкретный элемент.

MsgBox Massive(10).Field1

End Sub

'Модуль 2

Option Explicit

Sub mass(ByRef Elem As MyType)

Elem.Field1 = 123

End Sub

Ответить

Ну, если это так принципиально и никак не обойтись, то проблема.

Дурной способ:

Option Explicit

Private Type TypeTest

a As Long

b As Long

End Type

Private arTest() As TypeTest

Private Declare Function ReadProcessMemory Lib "kernel32" (ByVal hProcess As Long, lpBaseAddress As Any, lpBuffer As Any, ByVal nSize As Long, lpNumberOfBytesWritten As Long) As Long

Private Declare Function WriteProcessMemory Lib "kernel32" (ByVal hProcess As Long, lpBaseAddress As Any, lpBuffer As Any, ByVal nSize As Long, lpNumberOfBytesWritten As Long) As Long

Private Declare Function GetCurrentProcess Lib "kernel32" () As Long

Dim hProcess As Long

Private Sub Form_Load()

hProcess = GetCurrentProcess

ReDim arTest(1 To 2)

arTest(1).a = 1

Call GetInitType

MsgBox arTest(1).a ' //

End Sub

Private Sub GetInitType()

Dim tp As TypeTest

Dim Address As Long

Dim Value As Long

GetType Address, 1

Value = 10

WriteProcessMemory hProcess, ByVal Address, Value, ByVal 4&, ByVal 0& 'записывает по адресу значение

End Sub

Private Sub GetType(ByRef Address, ByRef Index)

Address = VarPtr(arTest(Index)) 'определяет адрес

End Sub

Ответить

CopyMemory так же можно делать.

Конечно, неплохо. Но неудобно так работать со структурой

Тогда все преимущества их использования выпадают.

Ответить

Вообще, конечно, можно и проще. Запомнить адрес первого элемента, а затем вычислять последующие. Они фиксированной длины. Меньше кода и пересылок.

Ответить

Сложно это очень получается. Там вложенные массивы других UDT. Их тоже надо заполнять.

Я так думаю, что самое простое передавать весь массив сразу.

Еще наверное что то можно сделать с SafeArray.

Ответить

Похоже, тебе надо в OLEAUT32 лезть:

DECLARE FUNCTION SafeArrayGetDim LIB "OLEAUT32.DLL" ALIAS "SafeArrayGetDim" (BYVAL psa AS DWORD) AS DWORD
DECLARE FUNCTION SafeArrayGetElement LIB "OLEAUT32.DLL" ALIAS "SafeArrayGetElement" (BYVAL psa AS DWORD, rgIndices AS LONG, pData AS ANY) AS LONG
DECLARE FUNCTION SafeArrayGetLBound LIB "OLEAUT32.DLL" ALIAS "SafeArrayGetLBound" (BYVAL psa AS DWORD, BYVAL nDim AS WORD, lbDim AS LONG) AS LONG
DECLARE FUNCTION SafeArrayGetUBound LIB "OLEAUT32.DLL" ALIAS "SafeArrayGetUBound" (BYVAL psa AS DWORD, BYVAL nDim AS WORD, ubDim AS LONG) AS LONG
DECLARE FUNCTION SafeArrayRedim LIB "OLEAUT32.DLL" ALIAS "SafeArrayRedim" (BYVAL psa AS DWORD, BoundNew AS SAFEARRAYBOUND) AS LONG

Передавать в функцию указатель на массив, в функции восстанавливать LBound, UBound, и делать со своим массивом какие - либо действия

Ответить

как вариант. но там массивы надо лочить и так далее.

поэтому видимо проще чем сказал - не сделать.

Ответить