Неявно определить дочерние формы родительской формы
Правила форума
Темы, в которых будет сначала написано «что нужно сделать», а затем просьба «помогите», будут закрыты.
Читайте требования к создаваемым темам.
Темы, в которых будет сначала написано «что нужно сделать», а затем просьба «помогите», будут закрыты.
Читайте требования к создаваемым темам.
Сообщений: 9
• Страница 1 из 1
- Source
- Постоялец
- Сообщения: 351
- Зарегистрирован: 04.09.2007 (Вт) 11:21
Неявно определить дочерние формы родительской формы
Source » 24.10.2007 (Ср) 16:42
Дана родительская форма frmParent. Как неявно (не указывая конкретные имена) определить все её дочерние формы, чтобы выгрузить их?
- BV
- Thinker
-
- Сообщения: 3987
- Зарегистрирован: 12.09.2004 (Вс) 0:55
- Откуда: Молдавия, г. Кишинёв
BV » 24.10.2007 (Ср) 17:06
- Код: Выделить всё
Dim f As Form
For Each f In VB.Forms
If GetParent(f.hWnd) = frmParent.hWnd Then
Unload f
End If
Next f
const char *out = "|*0>78-,+<|"; size_t cc = char_traits<char>::length(out);
for (size_t i=0;i<cc;i++){cout<<static_cast<char>((out[i]^89));}cout<<endl;
for (size_t i=0;i<cc;i++){cout<<static_cast<char>((out[i]^89));}cout<<endl;
- Lumen
- Постоялец
-
- Сообщения: 841
- Зарегистрирован: 03.12.2005 (Сб) 16:09
- Откуда: Брянск
Lumen » 24.10.2007 (Ср) 18:36
Так попробуй:
А код, приведенный выше и будет возвращать 0.
- Код: Выделить всё
Dim f as form
For each f in Forms
If f.hwnd <> frmParent.hwnd then Unload f
Next
А код, приведенный выше и будет возвращать 0.
Подпись проходит рефакторинг
- Source
- Постоялец
- Сообщения: 351
- Зарегистрирован: 04.09.2007 (Вт) 11:21
Source » 24.10.2007 (Ср) 19:49
код Lumen будет работать когда в проекте 1 родитель, остальные дети. Код BV универсальнее. Но всё же не работает 
Мож флаги надо какие указывать при показе формы?
Мож флаги надо какие указывать при показе формы?- Вложения
-
GetParent.zip- (1.34 Кб) Скачиваний: 39
Вот, господа, мы и допрограммились - BV
- Thinker
-
- Сообщения: 3987
- Зарегистрирован: 12.09.2004 (Вс) 0:55
- Откуда: Молдавия, г. Кишинёв
BV » 25.10.2007 (Чт) 9:43
Замени GetParent на GetWindowLong GWL_HWNDPARENT
const char *out = "|*0>78-,+<|"; size_t cc = char_traits<char>::length(out);
for (size_t i=0;i<cc;i++){cout<<static_cast<char>((out[i]^89));}cout<<endl;
for (size_t i=0;i<cc;i++){cout<<static_cast<char>((out[i]^89));}cout<<endl;
Сообщений: 9
• Страница 1 из 1
Кто сейчас на конференции
Сейчас этот форум просматривают: YaCy [Bot], Yandex-бот и гости: 72