User Control

[Sorch]

Столкнулся с такой проблемой: оказывается существует ограничение на колличество элементов на одной форме, пришлось переделывать, начал раскидывать эл-ты по User Control -ам, а вот как теперь до них достучаться? Как обращаться к элементам расположенным на User Control - ле из основной формы и наоборот?

[Konst_One]

надо сделать public метод Controls доступным в каждом своем контроле:

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

Public Function Controls() as Object
   Set Controls=Usercontrol.Controls
End Function

[Sorch]

а по подробней можно?

[Konst_One]

допустим у тебя есть твой OCX, его MyControl. В его код ты добавляешь функцию, что я написал раннее. Затем ты свой контрол вставляешь на форму под именем MyControl1. Тогда в коде формы ты можешь всегда написать так:

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

Debug.Print Me.MyControl1.Controls("Label1").Caption

Label1 - это label, который есть в твоем контроле MyControl

Теперь понятней

[Sorch]

Не работает, ругается

[Konst_One]

кидай сюда свой код и будем разбираться

[Konst_One]

вот пример:

[Sorch]

Да кидать то пока нечего. Добавил то что ты и прислал. Есть User Control, на нем куча элементов. Я хочу из основной формы менять свойства этих элементов.
Пишу так:

Form1.UserControl.Controls("Label1").Caption = "Test"

[Konst_One]

см. мой пример

[Sorch]

Спасибо, разобрался, ошибка была в том что я вместо Set Controls = UserControl.Controls писал имя моего Contrl-a

[Sorch]

А как добраться до вторго User Control - a ? Сделал все то же - почему то не работает???!!

[Konst_One]

второй - это какой и где?

если у тебя второй - это тот , что лежит внутри первого, тогда так:

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

Dim ctl as MySecondControl

Set ctl=me.MyControl1.Controls("MySecondControl1")

MyControl1 - имя контрола №1 на форме
MySecondControl - объектное имя контрола №2
MySecondControl1 - имя контрола №2 ,лежащего внутри контрола №1

[Sorch]

разобрался, банальная невнимательность .... )

Еще один вопрос по этой теме!

Пишу так:
Form1.UserControl.Controls("ListView1").ListItems.Add = txt

Компилятор ругается что объект не поддерживет данное свойство или метод!!!???

Но ведь если ListView лежит на основной форме то добавить в него строку возможно .....

ListView1.ListItems.Add = txt

В чем проблема????

[Konst_One]

ListView1.ListItems.Add = txt

это неправильный вызов, нажми F2 и посмотри как правильно нужно для объекта ListView вызывать этот метод

[Sorch]

Не знаю что ты подразумеваешь по "неправильный вызов", но именно в таком виде у меня все работает ....!
Только что еще раз проэксперементировал.
Не работает когда ListView лежит на UserControl

[Sorch]

Добавил: Add(1) все заработало ... ???!!!
Edit_Rec.Microdoz.Controls("ListView_wf66a").ListItems.Add(1) = txt

[Konst_One]

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

Dim lv as ListView

Set lv=Form1.UserControl.Controls("ListView1")
lv.ListItem.Add ,"new key","some text"
set lv=nothing

[Sorch]

Спасибо Все получилось!

[Vadim_n]

Как сделать в модуле функцию одну для нескольких форм?
модуль

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

Public Sub ComboF1(i As Integer)
Form1.Controls("Combo" & i).AddItem "1"
Form1.Controls("Combo" & i).AddItem "2"
…………
End Sub

Public Sub ComboF2(i As Integer)
Form2.Controls("Combo" & i).AddItem "2"
Form2.Controls("Combo" & i).AddItem "3"
…………
End Sub

Потом на нескольких формах заполняю ComboBox

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

Private Sub Form_Load()
ComboF1 1
ComboF1 2
……….