Программирование на Visual Basic, главный форум. Обсуждение тем программирования на VB 1—6.
Даже если вы плохо разбираетесь в VB и программировании вообще — тут вам помогут. В разумных пределах, конечно.
Правила форума
Темы, в которых будет сначала написано «что нужно сделать», а затем просьба «помогите», будут
закрыты.
Читайте
требования к создаваемым темам.
-
Naked
-
- Бывалый
-
-
- Сообщения: 207
- Зарегистрирован: 27.10.2004 (Ср) 3:16
- Откуда: Дальнегорск столица мира
Naked » 06.10.2005 (Чт) 3:24
как узнать из GWL = GetWindowLong(Hwnd, GWL_STYLE), есть там WS_MAXIMIZE или нет?
-
Amed
-
- Алфизик
-
-
- Сообщения: 5346
- Зарегистрирован: 09.03.2003 (Вс) 9:26
-
Amed » 06.10.2005 (Чт) 5:10
- Код: Выделить всё
If gwl = (gwl Or WS_MAXIMIZE) then
'ws_maximize flagged
else
'ws_maximize not flagged
end if
- Код: Выделить всё
MsgBox "Maximized: " & (gwl = (gwl Or WS_MAXIMIZE))
-
tyomitch
-
- Пользователь #1352
-
-
- Сообщения: 12822
- Зарегистрирован: 20.10.2002 (Вс) 17:02
- Откуда: חיפה
tyomitch » 06.10.2005 (Чт) 5:29
Amed,
Это намеренное желание сделать не как все
Обычно делают так:
- Код: Выделить всё
If gwl And WS_MAXIMIZE then
'ws_maximize flagged
else
'ws_maximize not flagged
end if
- Код: Выделить всё
MsgBox "Maximized: " & CBool(gwl And WS_MAXIMIZE)
-
tyomitch
-
- Пользователь #1352
-
-
- Сообщения: 12822
- Зарегистрирован: 20.10.2002 (Вс) 17:02
- Откуда: חיפה
tyomitch » 06.10.2005 (Чт) 18:52
Amed писал(а)::lol:
Доброе утро!
Ну тогда можно и так:
- Код: Выделить всё
If gwl > (gwl Xor WS_MAXIMIZE) then
'ws_maximize flagged
else
'ws_maximize not flagged
end if
- Код: Выделить всё
MsgBox "Maximized: " & (gwl > (gwl Xor WS_MAXIMIZE))
Конкурс на самый кривой код?
Вернуться в Visual Basic 1–6
Кто сейчас на конференции
Сейчас этот форум просматривают: Yandex-бот и гости: 96