ActiveX Control

[Che]

Всем привет.
Есть некий проект в котором User Control и модули.
Подскажите кто знает как обратится к Контролам расположенным на User Control из модулей. Строка типа: UserControl1.Text1.Text="aaa" -не работает.

[Хакер]

Предоставить коду модулей ссылку на элементы любым способом. Переваривай.

[Денис]

Врядли переварит, я всё-таки рискну прямо подсказать:

Чтобы сработала строка UserControl1.Text1.Text="aaa", надо в коде контрола указать следующее:

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

Public Text1 as textbox

а потом публичному Text1 присвоить приватный текстбокс, который ты кинул на контрол.

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

Set Text1 = txtTextOne

Что неудобно.

Лучше всего сделать пропертю (Publiс Property) Text1Text, в которой будет присваиваться ссылка на свойство Text внутреннего контрола.

Это можно сделать через контрол-интерфейс-визард (если у тебя нормальная студия (не портативная).

Если ты все сделаешь правильно, то ты будешь обращаться к пропертям контрола, а уж он будет делать то, что ему надо, (это вообще-то называется Инкапсуляция)
UserControl1.Text1Text="aaa"

[Antonariy]

А лучше сделать readonly-свойство, возвращающее сам текстбокс.

[Денис]

А лучше сделать readonly-свойство, возвращающее сам текстбокс.

Не согласен. Не лучше нисколько. Зачем передавать ссылку на объект, объявлять объект, который примет ссылку, потом уничтожать его, когда можно просто получать/передавать строку. И я уверен, более чем передача строки, автору не требуется на данном этапе.

[Хакер]

Денис, ты говоришь глупость. Какое ещё создание и уничтожение объекта? Какой объект будет создаваться и уничтожаться?

[Andrey Fedorov]

Всем привет.
Подскажите кто знает как обратится к Контролам расположенным на User Control из модулей. Строка типа: UserControl1.Text1.Text="aaa" -не работает.

Отдать наружу коллекцию контролов...

[Денис]

Денис, ты говоришь глупость. Какое ещё создание и уничтожение объекта? Какой объект будет создаваться и уничтожаться?

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

Отдать наружу коллекцию контролов...

А это уж точно черезчур.

[Хакер]

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

И? Даже если работать так, как работал бы ты, о каком создании и уничтожении объектов может быть речь?

[Antonariy]

Он говорил о создании и обнулении объектной ссылки. В меру своего владения терминологией.

Денис
Нет никакой потребности сначала объявлять переменную, потом присваивать ей ссылку на текстбокс, потом присваивать текстбоксу тест, потом уничтожать ссылку, если можно присвоить текст СРАЗУ.

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

Public Property Get TextBox() As TextBox
    Set TextBox = TextBox1
End Property

UserControl.TextBox.Text = "text"

если кто еще не понял…

[Хакер]

Создании и обнулении? Если имеется в виду AddRef/Release, то это даже менее затратно, чем TextboxText: ind/dec (в хорошем для нас, но плохом в целом) или InterlockedIncrement/InterlockedDecrement (в плохом для нас, но хорошем в целом случае) против SysAllocString/SysFreeString.

А во-вторых, вне зависимости от того, используется ли доп. переменная или используется код Antonariy, происходить будут всё-равно одни и те же действия.

[Antonariy]

Только в моем случае меньше букв

[Денис]

Да, всё верно. Я сначала недопонял и думал, что предлагается создавать переменную X as Object, потом Set X = Y.Text1, потом Set X = Nothing

А на самом деле предлагалось, как и хотелось автору, использовать конструкцию Y.Text1.Text = "x"

[Хакер]

Они отличаются только внешним видом.

[Денис]

Все равно, передавать наружу из юзерконтрола ссылку на весь внутренний объект, это - плохой тон. Не одобряю. Мой выбор: Get/Let Property которое обновляет какие либо свойства внутренних объектов.

[Хакер]

Почему никого не бесит, что у формы это автоматически делается?

[Денис]

Почему никого не бесит, что у формы это автоматически делается?

Полагаю, на то есть идеологически выверенное обоснование. Нэ?

[Che]

Хороший получился диспут. Спасибо всем