Форум программистов, компьютерный форум, киберфорум
Наши страницы
Visual Basic
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.80/5: Рейтинг темы: голосов - 5, средняя оценка - 4.80
Comanche
1

Вопрос по SetParent (поэтому, наверное, это вопрос к NickStaves)

16.02.2010, 15:34. Просмотров 841. Ответов 2
Метки нет (Все метки)

Есть набор форм, назовём их 'интерфейсными'.
Есть отдельная форма, назовём её 'хранилищем'. Сама по себе она нигде не используется: лишь её ЭУ втыкаются по мере надобности в интерфейсные формы (через SetParent).

Представим себе такую задачу:
Нам надо через SetParent положить на интерфейсную форму кнопку (ЭУ CommandButton), которая по Click'у делает два действия:
1. Поменяет Caption у ЭУ Label1 (ЭУ с таким именем есть на каждой интерфейсной форме в наборе)
2. Закроет форму.
Кнопка эта берётся из 'хранилища'.

Несколько дурацкая задача, но так проще и короче объяснять.
Так вот, если б эта кнопка была для интерфейсной формы 'родной', то всё понятно: Label1.Caption = 'Tra-la-la' и затем Unload Me или Unload Form1. А вот как быть, если кнопка не 'родная', а 'пришитая' через SetParent?

Должно быть что-то вроде:
Visual Basic
1
2
3
4
5
6
7
8
Private Sub Command1_Click()
    Dim myForm As Form
    Dim formHandle As Long
    formHandle = { получить хэндл Parent-формы }
    Set myForm = { как-то получить объект типа Form по его хэндлу }
    Unload myForm
    Set myForm = Nothing
End Sub
Бред, конечно, но смысл в том, что кнопка должна понять, на кого её 'пришили', и из этого каким-то макаром получить объект типа Form: очень критично, чтобы выгрузка формы шла именно по Unload, т.к. событие QueryUnload каждой интерфейсной формы содержит определённый код.

(Ясно, что я не могу оставить просто Unload Me в коде этой кнопки: это просто выгрузит 'хранилище', в результате чего кнопка после её нажатия просто исчезнет с лица интерфейсной формы.)

Ну а как быть с изменением Label1.Caption в такой ситуации - вообще ума не приложу. Понятно, что в конечном итоге, скорее всего, через CallByName, но как добраться сначала до объекта Label1, размещённого на Parent-форме?!
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
16.02.2010, 15:34
Ответы с готовыми решениями:

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

И наверное последний вопрос связанный с файлами
Как можно автоматически отослать информацию по электронке через access

Наверное простой вопрос: как объединить данные?
Есть несколько одинаковых по структуре пар связанных таблиц. Связь между парами таблиц установлена...

Наверное детский вопрос. Подключение ноги контроллера к 12В
Здравствуйте,. Нужно организовать проверку наличия напряжения на источнике питания. Т.е...

Подскажите пожалуйста чайнику, наверное пустяковый вопрос, про аудио.
Помогите кто может. В 1989 году, мой друг записал альбом под гитару на полу профессиональной...

2
Konst_one
1 / 1 / 1
Регистрация: 19.07.2007
Сообщений: 737
16.02.2010, 16:04 2
На счет того как узнать где лежит кнопка, то это можно:

If TypeOf Command1.Container Is Form Then

else

end if

ну и так далее ...
0
Comanche
16.02.2010, 16:23 3
Чёрт, точно! В событии кнопки Click надо просто написАть:
Visual Basic
1
Unload Command1.Container
И всех дел! И как я забыл про контейнер?!
Спасибо.

Теперь и с Label1 несложно будет разобраться...

PS: Я почему-то полагал, что в данной задаче Command1.Container вернёт 'хранилище', т.е. не ожидал, что SetParent меняет свойство Container. Казалось, что это свойство работает только на 'родных' (для контейнера) контролах. Век живи - век учись...
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
16.02.2010, 16:23

Возможно ли это?? Вопрос к профи
Есть портлал xxx.ru у него много разделов сделанных поддоменами - yyy.xxx.ru Портал...

Меня давно мучает это вопрос.
Почему программисты на С\C++ в конце каждой строки своих программ подмигивают? И, главное, кому?

Наверно, это самый дурацкий вопрос:
Наверно, это самый дурацкий вопрос: какой бесплатный хост самый лучший ? Правка = ну раз так...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2019, vBulletin Solutions, Inc.
Рейтинг@Mail.ru