Установка объекта в значение Nothing при создании класса отменяется?

@Ципихович Эндрю · Регистрация: 10.04.2009

Author24 — интернет-сервис помощи студентам

Visual Basic

Private Sub UserForm_Initialize()
    Dim ButtonCount As Integer
    Dim ctl As Control
    
'   Создание объектов кнопок
    ButtonCount = 0
    For Each ctl In UserForm1.Controls
        If TypeName(ctl) = "CommandButton" Then
            If ctl.Name <> "OKButton" Then 'Пропуск кнопки OKButton
                ButtonCount = ButtonCount + 1
                ReDim Preserve Buttons(1 To ButtonCount)
                Set Buttons(ButtonCount).ButtonGroup = ctl
            End If
        End If
    Next ctl
    'установка объекта в значение Nothing требуется для освобождения памяти, которая была выделена для создания этого объекта
    Set Buttons() = Nothing
End Sub

действительно отменяется или пишется в строке 17 Set Buttons() = Nothing по другому???
Спасибо

@Казанский · 01.10.2011, 20:18

Как объявлен массив Buttons? Что такое .ButtonGroup? Для очистки массива используйте

Visual Basic

1	Erase Buttons

@Ципихович Эндрю · 01.10.2011, 20:25 **[ТС]**

видимо ответ на вопрос установка объекта в значение Nothing при создании класса отменяется???отменяется!!!
пробовал по Вашей подсказке

Сообщение от Казанский

Erase Buttons

не жуётся

@Казанский · 02.10.2011, 00:13

Так зачем тут пытаться очистить массив в конце процедуры? Ведь смысл в том, чтобы он оставался в памяти, пока существует форма, поэтому он объявлен в модуле формы, а не в процедуре.
Кстати, можно создать не массив, а коллекцию контролов. Это не дает никаких преимуществ в данном случае, но более "объектно ориентировано":

Visual Basic

Option Explicit
 
Dim Buttons As New Collection
 
Private Sub UserForm_Initialize()
    Dim BtnClsIns As BtnClass
    Dim ctl As Control
    
'   Создание объектов кнопок
    For Each ctl In UserForm1.Controls
        If TypeName(ctl) = "CommandButton" Then
            If ctl.Name <> "OKButton" Then      'Пропуск кнопки OKButton
                Set BtnClsIns = New BtnClass    'новый экземпляр класса BtnClass
                Set BtnClsIns.ButtonGroup = ctl 'связывание его с контролом
                Buttons.Add BtnClsIns           'добавление его к коллекции
            End If
        End If
    Next ctl
End Sub

	02.10.2011, 00:13