Как прочитать индекс элемента коллекции Controls? - VB

Формулировка задачи:

Народ, подскажите пожалуйста как прочитать индекс элемента, допустим CommandButton из коллекции динамически созданных элементов. Пишу:

                    Листинг программы
                
 
                        
                          
                    
ReDim c(Nc) As CommandButton
Set c(Nc) = FormShab.Controls.Add("VB.CommandButton", "Command" & Nc)
With c(Nc)
.Visible = True
.Caption = .Name
.DragMode = 1
End With

Читаю: MsgBox c(Nc).Index Говорит, что данные отсутсвуют и вообще элемент массива отсутсвует. В чем может быть дело? Заранее благодарен.

Решение задачи: «Как прочитать индекс элемента коллекции Controls?»

textual
                            Листинг программы 
                        
Private Sub Command1_Click(Index As Integer)
 Dim i As Integer
 i = Index + 1
 Load Command1(i)
    
 Command1(i).Top = 0
 Command1(i).Visible = True
 
 MsgBox Command1(i).Index
 
End Sub

Оцени полезность:

9 голосов , оценка 3.778 из 5

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

Похожие ответы