События для динамически созданных контролов.

[QguR]

Посоветуйте, требуется среагировать на обращение к динамически созданному объекту. Основные свойства конечно задются при созданиии, а как например удалить одну из кнопок, когда ее имя уже "забыто"?

[SHURUP]

В каком смысле "забыто"?
На бумажку записывать надо!
Можно подробнее как создается, как забывается?

[QguR]

Private Sub Command1_Click()
mCount = mCount + 1
ControlName = "Controls" & Str(mCount)
/*следующие 5 строк извращений для того чтобы имя без пробела было, а то зараза автоматом добавляет */
stroka$ = ""
For i% = 1 To Len(ControlName)
If Mid(ControlName, i%, 1) <> " " Then stroka$ = stroka$ + Mid(ControlName, i%, 1)
Next i%
ControlName = stroka$
Set NewButton = Controls.Add("VB.CommandButton", ControlName)
NewButton.Visible = True
NewButton.Height = 500
NewButton.Width = 1000
NewButton.Top = (mCount - 1) * 500 + 50
NewButton.Left = 50
NewButton.Caption = "Баттон"
End Sub

//При
Private WithEvents NewButton As CommandButton
//и
Private Sub NewButton_Click()
MsgBox "Кликед!"
End Sub
//работает только последняя созданная кнопка

А как сделать обработчик событий для остальных кнопок, ведь мы заранее не знаем сколько их будет и как они будут обзываться. ЗЫ: Я и Private WithEvents NewButton As CommandButton не больно понял.

[SHURUP]

1) А не легче ли использовать Index? (если трафик не закончится - через пару минут выложу)
2) Насчет 5 строк извращений - ! Ничего автоматом добавляться не должно! А вот каким методом от гипотетических пробелов избавляетесть - вот тут, действительно, малость, изврат.

[SHURUP]

Раз обещал:

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

Option Explicit

Private Sub Command1_Click(Index As Integer)
Dim counter%
counter% = nControl.count
Load nControl(counter%)
With nControl(counter%)
    .Width = 1000
    .Height = 500
    .Left = 50
    .Visible = True
    .Top = (counter% - 1) * 500 + 50
    .Caption = "Control" & counter% ' <-- так никаких пробелов нету
    'А если через Str$ то пробелы действительно появляются, но бороться с ними
    'можно с помощью Trim$:
    '.Caption = "Control" & Trim$(Str$(counter%))
End With
End Sub

Private Sub nControl_Click(Index As Integer)
    MsgBox "Control" & Index
End Sub


[QguR]

Большое спасибо! Счас еще научусь индексы менять будет вообще хорошо.