Релиб / Программирование / Visual Basic / Динамические двумерные массивы / Latest Posts

RE: Динамические двумерные массивы

rank1 — Thu, 17 May 2007 09:52:54 GMT

Создаем модуль класса и называем его hash2d,в него засовываем код:

[code]

Dim h As New Scripting.Dictionary
Function item(k) As Scripting.Dictionary
If Not h.Exists(k) Then
Set h(k) = New Scripting.Dictionary
End If
Set item = h(k)
End Function

[/code]

Создаем тестовый модуль и суем в код:

[code]

Sub sdfg()
Dim x As New hash2d
For i = 1 To 100
For j = 1 To 100
x.item(i)(j) = Rnd * 10
Next j
Next i
For i = 1 To 100
For j = 1 To 100
t = t & Format(x.item(i)(j), "0000") & " "
Next j
Debug.Print t
t = ""
Next i

End Sub

[/code]

В Immediate будет распечатан массив.

Причем этот двумерный хеш может быть адресован не только числами но и любыми строками.

x.item("Документ1")("<ДатаНачалаДейстчия>")

и к томуже мы можем присвоить нетолько значение, но и ссылку на какой-то объект.

set x.item("ContextMenus")("menu 1") = new MyApiPopup

Разумеется нужно использовать Option explicit, и все объявить соответствено...

RE: Динамические двумерные массивы

mmos — Tue, 15 May 2007 15:06:21 GMT

Компилятор будет ругаться, если в ReDim указать тип, отличный от указанного в Dim. Лучше вообще не указывай тип при определении размера массива.

Динамические двумерные массивы

grey_amt — Tue, 15 May 2007 09:37:49 GMT

Помогите с созданием динамических двумерных массивов. С одномерным там усе понятно:

Dim mas() as integer

ReDim mas(i) as integer

и будет счастие, а ка быть, если надо двумерный? Если объявить его также, а потом ReDim mas(i,j) as integer - будет ругаться, нашел в интернете

Dim mas(,) as integer - компилятор ругается

......может кто знает, памажите