Передача массива в функцию

[IIIypuk]

Вот примерно код:

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

Option Explicit

Private Type tpOne
   Name As String
   Count As Integer
   '...
End Type

Private Type tpTwo
   Name As String
   Len As Long
   '...
End Type

Private Sub Form_Load()
Dim one(1 To 10) As tpOne
Dim i As Integer, tempInt As Integer
   
   For i = 1 To 10
      one(i).Name = CStr(i)
   Next i
   
   tempInt = Run_scr(one)
   ' ...
End Sub

Private Function Run_scr(  ?arrTemp?  ) As Integer
Dim i As Integer

   For i = 1 To 10
      If arrTemp(i).Name = "9" Then Run_scr = 1
   Next i
   Run_scr = 0
   
End Function

Два типа не имеют друг к другу никакого отношения, кроме одинакого элемента Name. Вот собственно два вопроса: как передать массив в функцию и еще вопрос. Если у элементов Name разное название (т.е. не Name а Name1 и Name2 напр.), можно ли добратся до них таким же способом, если это единственный String в типе (<-чистое любопытство).

[lister]

... как передать массив в функцию...

Почитай здесть:
http://bbs.vbstreets.ru/viewtopic.php?t ... torder=asc

Если у элементов Name разное название (т.е. не Name а Name1 и Name2 напр.), можно ли добратся до них таким же способом, если это единственный String в типе (<-чистое любопытство).

Хм... Не понятно

[IIIypuk]

1. Помоему не то. Мне нужно передать массив Arr(), а не набор значений.
2.

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

Private Type tpOne
   Name1 As String
   Count As Integer
   '...
End Type

Private Type tpTwo
   Name2 As String
   Len As Long
   '...
End Type
Dim one(1 To 10) As tpOne, two(1 To 10) As tpTwo

Как передать Name1 или Name2 всего массива.

[GSerg]

Со всем массивом.

[IIIypuk]

Что т я не понял вас. Пока приходится копировать в отдельный массив, чтоб передать. И всё же, какое верное решение?

[GSerg]

Передать весь массив.

[IIIypuk]

Но массивы разных типов, а Variant в функции он не принемает, пишет:

Only user-defined types defined in public object modules can be coerced to or from a variant or passed to late-bound functions.

З.Ы. Типы у меня объявлены как Public в отдельном модуле.

[Matew]

IIIypuk, я так понял тебе надо передавать один массив целиком и одно поле из второго? Тогда передавай оба массива, а в процедуре, если надо, присваивай нужные значения(поля) одного другому.

[GSerg]

Объявить две функции, принимающие массивы разных типов.

[IIIypuk]

GSerg, я так и сделал, но хотелось найти все же решение...

Matew, нет. Не так понял. Мне нужно в зависимости от ситуации, передавать в функцию массивы разных типов.

[Viper]

В ОДНУ функцию массивы разных типов нельзя передать.

[zHackLeX]

*мысли вслух*
1. что-то знакомое...
2. вспомнил вдруг статьи GSerg'a про указатели и массивы... Но забыл тембр бубна...
3. Пожалуй, три параметра - два для массивов (оба сразу), третий определяет, какой НУЖЕН (естессно все Optional) - самое простое и удачное решение
4. (полный изврат) Сделать класс с двумя полями соответствующих типов, создал экземпляр - пихнул в процедуру...

[IIIypuk]

Насчет 3-го отчасти да, я в итоге так и сделал. Всем спасибо за внимание.

[Zenitchik]

А что мешает передавать их через вариантную переменную?
Что она не принимает юзерские типы - гонево. Пробовал - принимает. вот с МАССИВАМИ юзерского типа не пробовал... Хотя, по идее, должно быть еще проще, т.к. массив не хранится в переменной физически.

А потом проверять функцией TypeName.

Лучший вариант: заменить типы классами и гнать через Object или "виртуальный" класс.

[Konst_One]

делай не массивы а коллекции на основе своего класса, а главный класс имплементируй сколько тебе надо (Implements)

ЗЫ
пока сочинял, уже опередили

[Zenitchik]

В принципе - там и массивы прекрасно себя чувствовать будут.

[GSerg]

Zenitchik, некрофилия на этом форуме не приветствуется. Особенно если в некрофильном посте содержится никак не относящаяся к проблеме информация, к тому же неверная.

[Andrey Fedorov]

А можно и так:

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

Private Type tpOne
   Name As String
   Count As Integer
   '...
End Type

Private Type tpTwo
   Name As String
   Len As Long
   '...
End Type

Private Type tpAll
    Type As Integer
    mOne() As tpOne
    mTwo() As tpTwo
End Type

Private Sub Main()
    Dim v As Variant
    Dim mAll(1 To 3) As tpAll
    Dim i As Integer, j As Integer

    For j = LBound(mAll) To UBound(mAll)
        With mAll(j)
            .Type = j
            If j = 1 Or j = 3 Then
                ReDim .mOne(1 To 5)
                For i = LBound(.mOne) To UBound(.mOne)
                    .mOne(i).Name = "One " & j & "-" & CStr(i)
                Next i
            End If
            If j = 2 Or j = 3 Then
                ReDim .mTwo(1 To 5)
                For i = LBound(.mTwo) To UBound(.mTwo)
                    .mTwo(i).Name = "Two " & j & " - " & CStr(i)
                Next i
            End If
        End With
   Next j
   
   Debug.Print Run_scr(mAll(1))
   Debug.Print "---------"
   Debug.Print Run_scr(mAll(2))
   Debug.Print "---------"
   Debug.Print Run_scr(mAll(3))
   Debug.Print "========="
   Debug.Print mAll(1).mOne(4).Name
   Debug.Print vbCrLf
End Sub

Private Function Run_scr(mTemp As tpAll) As Integer
    Dim i As Integer, j As Integer

    With mTemp
        If .Type = 1 Or .Type = 3 Then
            For i = LBound(.mOne) To UBound(.mOne)
                With .mOne(i)
                    If Right$(.Name, 1) = "4" Then
                        Debug.Print .Name
                        .Name = "+" & .Name
                        Run_scr = mTemp.Type
                    End If
                End With
            Next i
        End If
        If .Type = 2 Or .Type = 3 Then
            For i = LBound(.mTwo) To UBound(.mTwo)
                With .mTwo(i)
                    If Right$(.Name, 1) = "4" Then
                        Debug.Print .Name
                        Run_scr = mTemp.Type
                    End If
                End With
            Next i
        End If
    End With
End Function