Форум программистов [Powered by Invision Power Board]

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