Программирование на Visual Basic, главный форум. Обсуждение тем программирования на VB 1—6.
Даже если вы плохо разбираетесь в VB и программировании вообще — тут вам помогут. В разумных пределах, конечно.
Правила форума
Темы, в которых будет сначала написано «что нужно сделать», а затем просьба «помогите», будут
закрыты.
Читайте
требования к создаваемым темам.
-
iolaus
-
- Продвинутый пользователь
-
-
- Сообщения: 176
- Зарегистрирован: 19.03.2002 (Вт) 18:33
- Откуда: Москва
-
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
Кто сейчас на конференции
Сейчас этот форум просматривают: Google-бот, SemrushBot и гости: 102