Как уничтожить Shape?

[Jin]

Здравствуйте!
На форме имеется некоторое количество Shape и Line. Нужно их уничтожить.
Set line1 = Nothing
не помогает. Из-за чего и как Быть?

[GSerg]

Невидимыми делай...

[Jin]

Невидимыми не хочется - их там много, нечего их плодить, да и удалять нужно не все, а некоторые группы, боюсь, если делать невидимыми такая путаница начнется!

[xolod]

Создавай массивы shape'ов и unload'ом их.. По другому - никак.

[Jin]

Попробую, но хочется понять почему не работает Set line1 = Nothing

[tyomitch]

Потому что нельзя!
Потому что Line1 - это read-only свойство твоей формы.
Потому что такой язык.

[xolod]

А что по твоему значит конструкция вида

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

Set SomeObject = Nothing


Shape, это вообще иструкции VM basic'а рисовать через API фигуры

[edit]tyomitch, сорь за дублирование, я второй, как обычно [/edit]

[tyomitch]

xolod, так бы работало:

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

Dim s As Shape
Set s = Line1
Set s = Nothing


Так что дело не в том, инструкции это или не инструкции. Просто s - это переменная, а Line1 - read-only свойство.

[Amed]

[offtop]tyomitch, а эта проблема не решается с помощью твоей чудо-обёртки!? [/offtop]

[Jin]

Какое же это свойство, когда пишу:

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

Dim Line1 as Line
Dim c as Control
Set Line1 = Controls.Add("VB.Line", "Line1")
Set Line2 = Controls.Add("VB.Line", "Line2")
...
Set Line99 = Controls.Add("VB.Line", "Line99")
....
For Each c In Me.Controls
    if TypeName(c)="Line" then Set c = Nothing
Next


По-моему это все-таки объект, а не свойство

[xolod]

Ты бы сразу сказал.. Все-таки стоит использовать Controls.Remove

[tyomitch]

Что мешает свойству быть объектом?
Может быть числом, может - строкой, а может - объектом, как в этом случае. Никаких проблем.

[Jin]

Всем спасибо.