динамический массив

[alexmckey]

например такой код:

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

Private Sub Command1_Click()
dim i as integer
dim massiv() as long:massiv=func(false,i)
'массив получил размерность?
dim b as integer:b=Ubound(massiv)
End Sub

Private function func(boo as boolean,ind as integer) as long()
if boo then
redim d(ind) as long
'bla bla bla
end if
func=d
End function


как узнать, что массив получил размерность

[SLIM]

Проверить верхнюю границу массива

[Денис]

Рекомендую передавать массив как ByRef-аргумент в функцию, а сама функция пусть возвращает true если массив получил размерность и false если не получил.

[alexmckey]

это как,например?

[Денис]

это как,например?

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

Option Explicit

Private Sub Command1_Click()
   
   Dim i As Integer
   Dim Massiv() As Long
   
   i = 12
   
   If Func(False, i, Massiv()) Then
      'массив получил размерность!
      Debug.Print UBound(Massiv)
   End If

End Sub

Private Function Func(SaveData As Boolean, Ind As Integer, Arr As Variant) As Boolean
   
   If SaveData Then
      ReDim Preserve Arr(Ind) As Long
      Func = True
   Else
      ReDim Arr(Ind) As Long
      Func = True
   End If

End Function

как-то так