Удаление Control'а объявленого с Public WithEvents

Программирование на Visual Basic, главный форум. Обсуждение тем программирования на VB 1—6.
Даже если вы плохо разбираетесь в VB и программировании вообще — тут вам помогут. В разумных пределах, конечно.
Правила форума
Темы, в которых будет сначала написано «что нужно сделать», а затем просьба «помогите», будут закрыты.
Читайте требования к создаваемым темам.
iolaus
Продвинутый пользователь
Продвинутый пользователь
 
Сообщения: 176
Зарегистрирован: 19.03.2002 (Вт) 18:33
Откуда: Москва

Удаление Control'а объявленого с Public WithEvents

Сообщение iolaus » 18.03.2007 (Вс) 16:39

Public WithEvents CSE As CSE

With Me.Controls.Add("iolausVOKPro.CSE", "CSE", Me.OsnSloi)
.Top = 0
.Visible = True
End With
Set CSE = Me.Controls("CSE")


Dim sCtlType As String
Dim Control As Control
For Each Control In Me.Controls
sCtlType = TypeName(Control)
If sCtlType = "CSE" Then
Me.Controls.Remove Control '!!!!!!!!!!!!!!!!!!
End If
Next Control

собственно не хочет он удлять такой контрол. подскажите как его убрать?

Заранее спасибо
This message will self destruct in five seconds!!!

EUGY
Бывалый
Бывалый
Аватара пользователя
 
Сообщения: 214
Зарегистрирован: 09.11.2006 (Чт) 22:51
Откуда: Мурманск

Сообщение EUGY » 18.03.2007 (Вс) 17:00

формально всё правильно:

Me.Controls.Remove "CSE"
Debug.Print Me.Controls("CSE").Name 'err 730

контрол удален из формы, но не уничтожен объект.

Set CSE = Nothing !!!


Вернуться в Visual Basic 1–6

Кто сейчас на конференции

Сейчас этот форум просматривают: Yandex-бот и гости: 17

    TopList