Работа с активными контролами

[Space]

как определить, входит ли активный контрол Me.ActiveControl в массив контролов и как обращаться к контролу в Me.Controls, зная его имя Me.ActiveControl.Name и индекс Me.ActiveControl.Index?

[Viper]

Вопрос, а зачем это надо? Сформулируешь вопрос, возможно сам же и получишь ответ.

[VB-constructor]

Сформулируешь вопрос, возможно сам же и получишь ответ.

Гы, так автор уже его сформулировал и получил)) все ответы есть в вопросе, который он задал

как определить, входит ли активный контрол Me.ActiveControl в массив контролов

проверить свойство index)

как обращаться к контролу в Me.Controls, зная его имя Me.ActiveControl.Name и индекс Me.ActiveControl.Index?

ну тут я даже не знаю что добавить, ответ сформулирован исчерпывающе

[Space]

как определить, входит ли активный контрол Me.ActiveControl в массив контролов и как обращаться к контролу в Me.Controls, зная его имя Me.ActiveControl.Name и индекс Me.ActiveControl.Index?

Обращение к Me.ActiveControl.Index при контроле, не входящем в массив, приводит к ошибке. Более правильного способа нет?

ну тут я даже не знаю что добавить, ответ сформулирован исчерпывающе

Установи BackColor для Text1(0) неявным способом, если фокус на Text1(0).

[Amed]

Если имя контрола уникальное (массива нет):

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

MsgBox Me.Controls("Text1").Text

Если имя не уникальное (массив контролов):

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

Dim s As Control

For Each s In Controls
    If s.Name = "Text1" And s.Index = 1 Then
        s.Text = "sss"
        Exit For
    End If
Next s

[Space]

If s.Name = "Text1" And s.Index = 1 Then

Я так полагаю, что этой строкой мы хотим сказать, что мы знаем, что Text1 является массивом контролов. А если это не массив, то мы получим ошибку на s.Index. Конечно, отловив ошибку, можно определить, что контрол не входит в массив, но нет ли более правильного способа? Мне не нужно перебирать все контролы, мне нужно всего лишь установить BackColor активному контролу TextBox, не зная заранее, входит он в массив или нет. Можно как-нибудь без перебора, напрямую обратиться, ведь нам уже известно Name и с горем пополам Index?

[VB-constructor]

Обращение к Me.ActiveControl.Index при контроле, не входящем в массив, приводит к ошибке. Более правильного способа нет?

хм, наверно ошибку ловить придется ((

[VB-constructor]

Если имя не уникальное (массив контролов):

можно еще так, имхо легче

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

Me.Controls("Command1", 0).Caption = 1

[Space]

Если имя не уникальное (массив контролов):

можно еще так, имхо легче

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

Me.Controls("Command1", 0).Caption = 1

вот, это то, что нужно! Премного благодарен. А как можно узнать, какие существуют параметры у Me.Controls (всплывающей подсказки нет)? А то я знал, что можно имя контрола указывать, а про индекс через запятую и не догадывался

Осталось узнать способ выявления принадлежности (или нет) контрола к массиву без
On Error GoTo err1
i = Me.ActiveControl.Index

Кто чего знает? Пишите.

[Konst_One]

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

Dim ctl As Control
   
    For Each ctl In Me.Controls
'        Debug.Print TypeName(Me.Controls(ctl.Name))
        If VBA.VarType(Me.Controls(ctl.Name)) = vbObject Then
            Debug.Print ctl.Name & "(" & ctl.Index & ")"
        Else
            Debug.Print ctl.Name
        End If
    Next

сложные формы не проверял, на простых вроде будет работать