Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Как из UserControl "увидеть" контролы на той же форме? / 9 сообщений из 9, страница 1 из 1
09.03.2005, 13:53:11
    #32951277
Worobjoff
Worobjoff
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как из UserControl "увидеть" контролы на той же форме?
Хочу сделать комбик со списком ImageList размещенных на форме (PropertyPages).
Не могу найти как достучаться до контролов на форме, куда положат мой UserControl.
Или, может, это делается как то по-другому?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
09.03.2005, 13:54:50
    #32951284
Antonariy
Antonariy
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как из UserControl "увидеть" контролы на той же форме?
UserControl.Parent.Controls
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
09.03.2005, 14:39:01
    #32951391
Worobjoff
Worobjoff
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как из UserControl "увидеть" контролы на той же форме?
Кажется вопрос неправильно задал:
Мне надо из PropertyPages получить доступ к контролам на форме, где расположен UserControl (в дизайн-тайме).
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
09.03.2005, 14:50:41
    #32951422
Antonariy
Antonariy
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как из UserControl "увидеть" контролы на той же форме?
В свой юзерконтрол добавь

Public Property Get ParControls as Object
Set ParControls = UserControl.ParentControls
End Property

В пропертипейдже обращайся - SelectedControls(0).ParControls
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
09.03.2005, 14:59:45
    #32951444
Worobjoff
Worobjoff
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как из UserControl "увидеть" контролы на той же форме?
Сделал так:
В UserControl:
Код: plaintext
1.
2.
Public Property Get My_Form() As Form
   Set My_Form = UserControl.Parent
End Property
А в PropertyPages:
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
Private Sub Combo1_DropDown()
   Dim c As Control
   Combo1.Clear
   For Each c In SelectedControls( 0 ).My_Form.Controls
      If TypeOf c Is ImageList Then
         Combo1.AddItem c.Name
      End If
   Next
End Sub
- Работает.
Спасибо.
Сам не сообразил так выкрутиться.
ps:
Странно, что он "видит" именно форму, а не свой контейнер.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
09.03.2005, 15:13:21
    #32951477
Konst_One
Konst_One
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как из UserControl "увидеть" контролы на той же форме?
для контейнера у него есть свойство, чтобы найти: UserControl.ContainerHwnd
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
09.03.2005, 15:31:27
    #32951552
Worobjoff
Worobjoff
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как из UserControl "увидеть" контролы на той же форме?
Konst_Oneдля контейнера у него есть свойство, чтобы найти: UserControl.ContainerHwnd
Я подзабыл, что есть разница между Container и Parent :-)
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
09.03.2005, 16:07:06
    #32951700
Konst_One
Konst_One
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как из UserControl "увидеть" контролы на той же форме?
Container - это некий контрол, в котором содержится твой Usercontrol
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
09.03.2005, 16:20:57
    #32951744
Worobjoff
Worobjoff
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как из UserControl "увидеть" контролы на той же форме?
Да нет, это я об этой своей фразе:
>>Странно, что он "видит" именно форму, а не свой контейнер.
не удивился бы если б вовремя вспомнил.
В общем вопрос исчерпан.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Как из UserControl "увидеть" контролы на той же форме? / 9 сообщений из 9, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 357ms
Закрыть
start [/forum/topic.php?fid=60&tablet=1&tid=2168130]:
 0ms
get settings:
 7ms
get forum list:
 15ms
check forum access:
 2ms
check topic access:
 2ms
track hit:
 49ms
get topic data:
 9ms
get forum data:
 2ms
get page messages:
 42ms
get tp. blocked users:
 1ms
others: 228ms
total:  357ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]