VPF::Динамические массивы в классе

Одессит

Дата 14.5.2006, 16:59 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 2
Регистрация: 13.10.2005

Репутация: нет
Всего: нет

Мне необходимо работать с классами, а свойства класса являются динамическими массивами.
Ну, примерно такой код

Private Name() As String

.... какая-то функция
ReDim Name(0)
kol = 0
kol = kol + 1
ReDim Preserve Name(kol)
Set Name(kol) = "e" либо Name(kol) = "e"

....
В первом случае выдаётся ошибка Object required
Во втором вообще синтаксическая ошибка.

Наверно как-то по другому нужно это реализовывать. а как?

Naghual

Дата 15.5.2006, 09:08 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1893
Регистрация: 15.5.2004
Где: Украина, Днепр

Репутация: 26
Всего: 49

Для начала, Name - зарезервированное слово. Его нельзя использовать как название переменной.

--------------------

Я желаю всем Счастья!

Тутанхамец

Дата 15.5.2006, 09:19 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 612
Регистрация: 10.10.2005
Где: в пирамидЕ!

Репутация: 4
Всего: 6

Set используется только при рабоет с объектами. Вот и говорит, что требует объект.
Кроме того, кажется, redim name(0) вообще может задавать массив нулевой длины. Т.к.:

Цитата

The lower bound (массива) is zero if no Option Base statement is present.

То есть если у тебя массив от нуля с количеством элементов kol, то последнйи элемент будет иметь индекс kol-1.

Лучше писать так: redim name(1 to 1). Задаешь сразу и нижнюю и верхнюю границы массива.

Пример:

1) модуль класса MyClass

Код


Option Explicit

Private Names() As String
Public Count As Long


Public Sub Set10()
ReDim Names(1 To 10)
Count = UBound(Names)
End Sub

Public Function Random()
Dim i As Long, j As Long
For i = 1 To Count
For j = 1 To 7
Names(i) = Names(i) + Chr$((Rnd * 100) + 30)
Next j
Next i
End Function

Public Sub Message()
Dim i As Long
Dim s As String
For i = 1 To Count
s = s + CStr(i) + ": " + Names(i) + vbCrLf
Next i
MsgBox s
End Sub

2) Форма, юзающая этот модуль:

Код


Option Explicit

Private Sub Command1_Click()
Dim mc As MyClass
Set mc = New MyClass
mc.Set10
mc.Random
mc.Message
Set mc=nothing
End Sub

Добавлено @ 09:21

Цитата

Для начала, Name - зарезервированное слово. Его нельзя использовать как название переменной.

В VB6 вроде можно.

Код


Private Sub Command2_Click()
Dim name As String
name = "qq"
MsgBox name
End Sub

--------------------

Мой блог / Мои фотки / Моё Skolkobudet.ru

Тутанхамец

Дата 15.5.2006, 10:18 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 612
Регистрация: 10.10.2005
Где: в пирамидЕ!

Репутация: 4
Всего: 6

Поправка. Name - это свойство текущей формы. А если объявить в процедуре свою name, то она замещает это свойство.

--------------------

Мой блог / Мои фотки / Моё Skolkobudet.ru

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| VB6 \| Следующая тема »