Object= объясните ламеру :)

[Хакер]

Допустим. Но ведь мы не пролетаем?

[Antonariy]

Пролетаем с обработчиком Control_Event(Index As Integer), размещенным в форме, и с таким явлением, как "массив контролов" вообще, но не пролетаем с возможностью обрабатывать события классическим способом.

[arthur2]

Что за тема? Вероятно там была речь о чем-то другом, нежели мы тут обсуждаем.

http://bbs.vbstreets.ru/viewtopic.php?p=6693567#p6693567

Тем, что ты его лишь только что внятно сформулировал.

А так же необходимостью таскать мусорные формы, нужные лишь для обработки ошибок их загрузки

Нет, ещё для обработки событий. По-моему, не так уж и накладно, учитывая, что такая реализация будет гораздо проще.

[Antonariy]

Что за тема? Вероятно там была речь о чем-то другом, нежели мы тут обсуждаем.

http://bbs.vbstreets.ru/viewtopic.php?p=6693567#p6693567

Собственно, это то, о чем говорил Хакер, и это уже не массив контролов.

[arthur2]

собственно, да Но вполне его заменяет, если это понадобится. Но мы отклонились от темы - с формой в моём варианте - этих ухищрений не понадобится

[Хакер]

Antonariy, что (какие свойства, возможности и особенности) ты понимаешь под массивом контролов? Что из этого у предлагаемого мной варианта отсутствует или не удовлетворяет тебя?

[Antonariy]

Antonariy, что (какие свойства, возможности и особенности) ты понимаешь под массивом контролов?

Механизм динамического создания контролов, присущий только VB.

Что из этого у предлагаемого мной варианта отсутствует или не удовлетворяет тебя?

Ничего.

[0xy]

Чет не получается:

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

Set Form1.Control1.Container = Me

говорит Error 425

[arthur2]

хм... действительно, Container работает только в пределах формы и с одной на другую перебросить не получается

Ну тады SetParent или способ Antonariy

[Хакер]

Если что-то в VB нельзя сделать, но можно сделать с помощью API, первая мысль, которая должна возникать: подобное отсутствие возможности —это не недостаток VB, это продуманность VB. И попытка заполучить желаемую возможность с помощью API ни к чему хорошему не приведёт.

Не вспомню сходу случай, в котором это правило не работает.

[arthur2]

И в чём будут грабли здесь?

[Хакер]

В том, что это наглый обман ActiveX-контрола. С обычным окном, созданным с помощью CreateWIndow, делать SetParent можно как угодно. Оно кроме хендла родителя ничего не знает.

У ActiveX-контрола с контейнером гораздо более сложные взаимоотношения (можешь поискать пример тёмыча с ручным (на чистых API) созданием контрола в окне). А вы тут со свей черной магией.

[0xy]

Вот Ёпст!

Тогда объясните, где искать этот Controls.Add?

[Antonariy]

Controls — свойство формы.
А ищется всё в Object Browser'е, который, как всегда, невозбранно доступен по кнопке F2.

[0xy]

Property Controls As object
read-only

Но я так и не понял, чего с этим делать, а также где искать Controls.Add
Объсни, плииз, на пальцах, чего нужно сделать, чтобы при недоступности контрола, форма успешно загружалась без него?

[Хакер]

Это видимо так сложно.

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

Private Sub Command1_Click
    MsgBox TypeName(Me.Controls)
    Me.Controls.Add "VB.CommandButton", "gagaga"
    With Me.Controls!gagaga
        .Caption = "foo bar"
        .Visible = True
    End With
End Sub


[0xy]

Да... в жизни б не догадался!

"VB.CommandButton"

Теперь вопрос: как должна выглядеть сия магическая строка для контрола из COMCTL?
(COMCTL(32).ControlName не катит).

[Денис]

Теперь вопрос: как должна выглядеть сия магическая строка для контрола из COMCTL?

Тоже в жись не догадаешься. Покидай контролы на форму, сохрани ее и открой FRM-файл блокнотом. Впереди в секциях begin control .. end ты увидишь интересующие тебя магические имена.

[alibek]

Для контролов ActiveX нужно еще лицензии добавить.

[0xy]

Покидай контролы на форму, сохрани ее и открой FRM-файл блокнотом. Впереди в секциях begin control .. end ты увидишь интересующие тебя магические имена.

Так ругаеццо:

Run-time error '739':

Cannot add control 'ComctlLib.ProgressBar'. Dynamically adding ActiveX Controls requires the use of the ProgId which can be different from LibraryName.Class for some controls. The ProgId for this control is 'COMCTL.ProgCtrl.1'.

[Antonariy]

Вы понимаете смысл ругательства?

[hclubmk]

Так ругаеццо

Тебе нужен OLE/COM Object Viewer, ветка Controls, и дальше ProgID

[0xy]

Вы понимаете смысл ругательства?

Смысл то понятем. Однако вопрос остается актуальным:

как должна выглядеть сия магическая строка для контрола из COMCTL?

Иными словами, где можно узнать полный синтаксис этого метода .Add ???

[hclubmk]

Add бывают разные.
смотри в MSDN топики: Add Method (Controls Collection), Add Method (Licenses Collection)

[Денис]

Смысл то понятем. Однако вопрос остается актуальным

Как же смысл мог быть "понятем", если вопрос остался актуальным?

Невозможно добавить контрол 'ComctlLib.ProgressBar'.Динамическое добавление ActiveX-контрола требует использования ProgId, разного с LibraryName.Class для этого контрола. ProgId для этого контрола это: 'COMCTL.ProgCtrl.1'.

ComctlLib.ProgressBar.1 - пробовали?

[0xy]

По-вашему, именно такой вариант строки однозначно следует из "смысла ругательства"
Но, походу, так не рулит: говорит 711

[alibek]

Невозможно добавить контрол 'ComctlLib.ProgressBar'.Динамическое добавление ActiveX-контрола требует использования ProgId, разного с LibraryName.Class для этого контрола. ProgId для этого контрола это: 'COMCTL.ProgCtrl.1'.

ComctlLib.ProgressBar.1 - пробовали?

Денис, хватит уже нести чушь. Причем тут "ComctlLib.ProgressBar.1" если черным по белому написано "COMCTL.ProgCtrl.1"?

[0xy]

По наводке hclubmk, мне наконец то удалось разыскать нужный заговор:

Syntax
object.Add (ProgID, name, container)

Прочитав его, я сразу же решился применить строку из "ругательства" в неизменном виде, и... О ЧУДО! Заработало!

Однако к добавленному контролу не получается обращаться просто по имени (VB его не видит)--только через Me.Controls! или через объектную переменную.
Так и должно быть??

[hclubmk]

Да

[Денис]

Денис, хватит уже нести чушь.

Будь добрее, чувак. И люди потянутся к тебе.
Ну ошибся разок, так что ж теперь? Сразу говорить что я чушь говорю? Просто ошибся.

Но и в моей ошибке был резон: я думал, он пробовал применить COMCTL.ProgCtrl.1 и у него ничего не получилось. А он просто, не читая, код ошибки запостил и ждал готовенького ответа.

Прочитав его, я сразу же решился применить строку из "ругательства" в неизменном виде, и... О ЧУДО! Заработало!

Экий Вы нерешительный, из-за вас меня обругали.