колекция контролов

[Sirik]

допусти на форме есть несколько котролов CommandButton, причём индексы у них идёт не подрят, а например 0,2,4,6

как прокрутить эти котролы в цикле?

зы. метод:
for i=1 to CommandButton.Count
if ....
next
не подходит, так как индексы не подрят

зы2. по-моему следует использовать for each ... in ... , но это только догадки...

[Igor_123]

Dim c as Object
For Each c in Form1.Controls
If TypeName(c) = "CommandButton" Then
'Работаем нашли кнопку
EndIf
Next

[Sirik]

это понятно, но если меня интересует имеено массив кнопок COMBUTT
и на форме есть куча других кнопок. данным цикл выдаст все кнопки, которые лежат на форме

[alibek]

Создаешь коллекцию colButtons и добавляешь в нее нужные тебе кнопки. Потом работаешь с коллекцией. Чтобы кнопки в коллекции были нужными, проверяешь c.Name.

[Alex_2005]

а Можешь и так сделать:

Dim CB as Object
For Each CB in Form1.Controls
If TypeOf is CommandButton Then
'Ну а дальше уже твои добавки (ну, не бульонные конечно)....
End If
Next



ЗЫ: Кажись я опоздал...

[Konst_One]

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

Dim cmd As CommandButton

    For Each cmd In Me.Command1
        Debug.Print cmd.Index
    Next cmd

[Mikle]

А если типа этого, нет VB проверить:

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

for n=min to max
  if not COMBTN(n) is Nothing then
    '............
  end if
next n


[tyomitch]

А если типа этого, нет VB проверить:

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

for n=min to max
  if not COMBTN(n) is Nothing then
    '............
  end if
next n


Не заработает.

А у Konst_One имхо правильнее всех - без пробега по лишним контролам

[alibek]

Если массив, то да. А если нужно выбрать все CommandButton?

[Alex_2005]

Смотри выше уже было написано.

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


Dim CB as Object
For Each CB in Form1.Controls
If TypeOf is CommandButton Then
'Ну а дальше уже твои добавки
End If
Next


[alibek]

1. Лучше не As Object, а As Control
2. Правильно было бы добавить еще Select Case CB.Name

[Alex_2005]

Слушай, что то я не понял, зачем тебе CB.NAME если тебе нужны все Buttons Или может я что то упустил А на счёт As Control это ты верно заметил. а ещё может даже лучьше As CommandButton.

[alibek]

As CommandButton нельзя.
А Name затем, если нужны все-таки не все кнопки.

[Alex_2005]

объясни тугодуму (если конечно не лень), почему CommandButton нельзя, тебе ведь только кнопки нужны.

[GSerg]

Потому что перебираться будут контролы, и ты получишь 13 на первой же некнопке.

[Alex_2005]

о!! Точно!! Вот шо значит недосыпание...

[Igor_123]

alibek
Спасибо за поправки. По коллекциям контролов практически не бегаю.

[lord0n]

допусти на форме есть несколько котролов CommandButton, причём индексы у них идёт не подрят, а например 0,2,4,6

как прокрутить эти котролы в цикле?

зы. метод:
for i=1 to CommandButton.Count
if ....
next
не подходит, так как индексы не подрят

зы2. по-моему следует использовать for each ... in ... , но это только догадки...

а непроще ли сделать так:

for i=1 to CommandButton.Count step 2
if ....
next

[alibek]

А не проще ли перечитать посты? Этот вариант ему не подходит.

[Antonariy]

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

dim x as integer
dim c as Control
on error resume next
for x=Command1.lbound to Command1.ubound
   set c = Command1(x)
   if not c is nothing then
      ...
      set c = nothing
   end if
next x

[alibek]

А чем этот код лучше, чем код Konst_One?

[Antonariy]

Тем, что ему пох какие индексы у контролов.

[Sirik]

я уже давно решил данную задачу, зачем постить?

[alibek]

Тем, что ему пох какие индексы у контролов.

Пересмотри еще раз его код. Там вообще не используются индексы.

[Antonariy]

Пересмотри еще раз его код. Там вообще не используются индексы.

А у меня используются.

допусти на форме есть несколько котролов CommandButton, причём индексы у них идёт не подрят,

copy-paste из первого поста. арфахрафия аффтара сахранена.
Т. е. индексы все-таки есть.

[alibek]

Ты похоже не смотрел его код.
Код Konst_One перебирает весь массив контролов и при этом вообще не зависит от того, насколько последовательного идут индексы, т.к. в коде индексы не используются. Причем не нужны обработчики ошибок. Советую нарисовать форму с массивом кнопок и прогнать его код под отладчиком.

[Antonariy]

Перепутал Konst_One с автором топика. У него действительно правильнее.