Нельзя ли попроще???

[newonline]

У меня в проге одновременно загружено множество экземпляров формы-эталона. При наступлении определенного события необходимо запретить использовать одно из кнопок - разумеется на каждом экземпляре.
Я сделал так:

Dim Ctrl As Control
Dim frm As Form

For Each frm In Forms
For Each Ctrl In frm.Controls
If CStr(Ctrl.Name) = "ИмяТойСамойКнопки" Then
Ctrl.Enabled = False
End If
Next
Next

Не слишком ли загонно? Може есть путь попроще?

[GSerg]

И при наступлении какого же события?

[newonline]

Вообщем каждая такая форма - это хранилище данных в виде таблицы.
На этой форме есть кнопка (та самая!) которая инициализирует создание нового экземпляра этой же формы:

Dim frmData As frmData
Set frmData = New frmData

Количество таких форм не должно превышать заданного значения (например: 6). Как только будет создан 6-ой экземпляр (включая и саму форму-шаблон), то и наступает это событие и необходимо заблокировать все 6 экземпляров кнопок на каждой форме. Вот.

[Mikle]

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

For Each frm In Forms
  frm.имятойсамойкнопки.Enabled = False
Next


[newonline]

Вообщем не знает ( или неподдерживает он такой метод или свойство)
Вот что я ему написал:

For Each frm In Forms
frm.cmdNewDataForm.Enabled = False
'For Each Ctrl In frm.Controls
'If CStr(Ctrl.Name) = "cmdNewDataForm" Then
'Ctrl.Enabled = False
'End If
'Next
Next

А он ошибки швыряет Runtime 438 Вообщем не знает ( или неподдерживает он такой метод или свойство)

Что не так...

[Mikle]

newonline
А у тебя, случайно, не попадаются формы другого типа, на которых НЕТ этой кнопки?

[newonline]

Да, по-видимому попадается. Должно быть это головная MDI форма приложения. У нее нет этой кнопки.

[Amed]

Тогда так:

For Each frm In Forms
if frm.name<>"frmMdiMain" then frm.имятойсамойкнопки.Enabled = False
Next

[newonline]

Простите неуча.
Спасибо, ребята. Работает.

[Mikle]

Создай форму с кнопкой Command1 и с таким кодом:

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

Option Explicit

Private Sub Command1_Click()
  NewForm
End Sub


и такой модуль:

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

Option Explicit

Dim f(3) As Form
Public frmCnt As Long

Sub Main()
  Set f(0) = New frmMain
  frmCnt = 1
  f(0).Show
End Sub

Public Sub DisableAll()
Dim frm As Form
  For Each frm In Forms
    frm.Command1.Enabled = False
  Next
End Sub

Public Sub NewForm()
  Set f(frmCnt) = New frmMain
  f(frmCnt).Show
  frmCnt = frmCnt + 1
  If frmCnt = 4 Then DisableAll
End Sub


Project\StartUp - Sub Main.
Все работает.

[newonline]

Да. предыдущий вариант проще и грамотно. Спасибо.
if frm.name<>"frmMdiMain" then frm.имятойсамойкнопки.Enabled = False