Делегаты

[Skif-F]

Есть класс ClassTextBox:

Option Explicit
Public WithEvents Control As MSForms.TextBox
Private Sub Control_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
	'Отсюда надо вызвать процедуру MouseClick()
End Sub

и класс ClassFrame:

Public WithEvents Control As MSForms.Frame
Private TextBoxArr As ClassTextBox   'Массив Текстбоксов
Public Sub SetControl()
    Dim Ctr As Control
    Set Ctr = Control.Controls.Add("Forms.TextBox.1", "Head" & i, True) 
    Set TextBoxArr = New ClassTextBox		'Подготавливаем элемент массива
    Set TextBoxArr.Control = Ctr			'Сохраняем ссылку на TextBox
End Sub
'Вот эту процедуру необходимо вызвать из класса ClassTextBox
Public Sub MouseClick()
	'...
End Sub

Класс ClassFrame используется в UserForm:

Public MyFrame As ClassFrame
Private Sub UserForm_Initialize()
    Set Ctr = Me.Controls.Add("Forms.Frame.1", "New", True)
    Set MyFrame = New ClassFrame
    Set MyFrame.Control = Ctr
End Sub

Во "взрослых" языках программирования имеются средства для передачи ссылок на подпрограммы, типа делегатов в C#.
Можно ли добиться подобной функциональности средствами VBA? Пока единственная моя идея - это использовать для связи между классами стандартный модуль VBA

[IgorGO]

положите это в программый модуль:

Sub subN1()
  MsgBox "SUB N1"
End Sub

Sub subN2()
  MsgBox "SUB N2"
End Sub

Sub bbb()
  Do
    c = MsgBox("Yes - Call sub1," & Chr(10) & " No - Call sub2," & Chr(10) & " Cancel - Exit", _
    vbYesNoCancel, "Press any button")
    If c = vbCancel Then Exit Sub
    If c = vbYes Then s = "subn1" Else s = "subn2"
    Run s
  Loop Until False
End Sub

выполните bbb

[Skif-F]

Сообщение от IgorGO

выполните bbb

Я знаю про эту возможность. При вызове процедур из программных (стандартных) модулей данная возможность срабатывает, а вот с классами - нет.
Я пробовал так:
- в UserForm задал Public MyFrame As ClassFrame
- создал в классе ClassFrame процедуру bbb()
- передавал в класс ClassTextBox строку: "UserForm.MyFramy.bbb"
- вызывал командами Run "UserForm.MyFramy.bbb" или Call "UserForm.MyFramy.bbb"

VBA ругался что "Процедура не найдена или макросы отключены"

[Skif-F]

Вот подготовил пример для опытов

[EducatedFool]

Что значит "вызвать процедуру"?
Процедуры пишутся в стандартных модулях, и оттуда без проблем вызываются.

В состав модулей класса процедуры включаются только в том случае, если они привязаны к объекту - экземпляру класса.


Вот надо вам вызвать из ClassTextBoxForFrame какой-то метод объекта ClassFrame
Вопрос: а какого из объектов ClassFrame? Любого? Если да, - то зачем?

Чтобы вызвать метод объекта ClassTextBoxForFrame, этот объект надо сначала создать (или найти среди ранее созданных)
Где код создания объекта ClassTextBoxForFrame?

Создайте объект ClassTextBoxForFrame, найдите перебором родительский объект ClassFrame, - и для этого объекта и вызывайте ту процедуру.

PS: Мне кажется, вы перемудрили с кодом.
Лучше бы на словах описали, что есть изначально, и что надо получить.

[Skif-F]

Сообщение от EducatedFool

В состав модулей класса процедуры включаются только в том случае, если они привязаны к объекту - экземпляру класса.
Лучше бы на словах описали, что есть изначально, и что надо получить.

Я пытаюсь написать объект, подобный ListView, но основанный на TextBox'ах, расположенных на Frame.
Для этого я создаю класс ClassFrame, и создаю в UserForm объект это класса:

Private MyFrame As ClassFrame
Set MyFrame.Control = Me.Controls.Add("Forms.Frame.1", "New", True)

В классе ClassFrame (в объекте MyFrame) я создаю "таблицу" из объектов класса ClassTextBoxForFrame:

Private TextBoxArr() As ClassTextBoxForFrame
Set TextBoxArr = New ClassTextBoxForFrame
Set TextBoxArr.Control = Control.Controls.Add("Forms.TextBox .1", "Head", True)

Теперь, при клике на одном из TextBox'ов, необходимо выделить цветом всю строку в таблице.
Полагаю, что Вы согласитесь, что эта операция привязана к объекту MyFrame (классу ClassFrame) и должна выполняться в нём?
Я пытался выполнить это действие, ловя событие _DblClick объекта ClassTextBoxForFrame и передавая данные в вышестоящий объект.
Конечно, можно наплодить кучу модулей, но хотелось бы минимизировать их количество.