Как удалить элемент управления?

[avor]

На форме есть массив текстовых окон, количество которых должно меняться. Добавляются через Load они без проблем, а вот удаляться через Unload не хотят, выходит ошибка.

[Cyrax]

На форме есть массив текстовых окон, количество которых должно меняться. Добавляются через Load они без проблем, а вот удаляться через Unload не хотят, выходит ошибка.

какая именно?

[avor]

Run-time error '365'
Unable to unload within this context

[Cyrax]

Run-time error '365'
Unable to unload within this context

а код можно посмотреть? потому что, так не очень понятно, как ты их грузиш/выгружаеш

[Firestorm]

это помойму запарка с кодом, видимо обращается к несуществующему контролу...

[avor]

Весь код написать сложновато, так какдобавляются эти контролы в одной части программы, а убираютя в другой, но даже если пробую так:
На форме есть одна метка с индексом ноль, далее добавляю по мере надобности
Dim WorkLabel as Label
n = Int((i - 1) / 7) * 4 + j
Set WorkLabel = LblCaption(n)
Load WorkLabel
WorkLabel.Caption = NCaption
WorkLabel.Left = LStartTabl - WorkLabel.Width - 40
WorkLabel.Height = RowHeight
WorkLabel.Top = HStartTabl + Int((i - 1) / 7) * RowHeight * 5 + RowHeight * j + 50
WorkLabel.FontSize = FontNum
WorkLabel.Visible = True
Метка добавлена, все отлично, теперь сразу пробую убрать
Unload LblCaption(n)
и здесь вылезает ошибка

[Cyrax]

все правильно. он тебе и будет ругатся. так как ты создал совсем другой лэбел.

делай так

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

Option Explicit

Dim lblCount As Integer ' количество надписей
Dim AllLabel() As Integer ' а в этом массиве будем отслеживать загруженные надписи.

Private Form_Load()
    lblCount = 0
End Sub

Private Sub AddLabel
    Dim OpenPos As Integer ' будем искать свободный индекс для надписи
    Dim i As Integer
    If lblCount > 0 Then
        For i = 1 To lblCount
            If AllLabel(i) = 0 Then ' если индекс свободен
                OpenPos = i
                Exit For
            End If
        Next i
    End If

    If OpenPos = 0 Then
        OpenPos = lblCount + 1
        lblCount = lblCount + 1
        ReDim Preserve AllLabel(1 To lblCount)
    End If

    AllLabel(OpenPos) = 1

    Load lbl(OpenPos)

    тут инициализируй новую лэблу
   
    lbl(OpenPos).Visible = True
End Sub


Private Sub RemoveLabel(Index As Integer)
    Unload lbl(Index)
    AllLabel(Index) = 0 ' освобождаем индекс
End Sub


[avor]

Да нет, лэбл какой и положено. Знаешь, что мне кажется? Что процедура у меня стоит как раз на те события, на которых Unload почему-то не работает:Form_resize() и ComboBox_Click()!