Программирование на Visual Basic, главный форум. Обсуждение тем программирования на VB 1—6.
Даже если вы плохо разбираетесь в VB и программировании вообще — тут вам помогут. В разумных пределах, конечно.
Правила форума
Темы, в которых будет сначала написано «что нужно сделать», а затем просьба «помогите», будут
закрыты.
Читайте
требования к создаваемым темам.
-
drronnie
-
- Постоялец

-
-
- Сообщения: 793
- Зарегистрирован: 04.03.2002 (Пн) 22:29
- Откуда: Украина, Алчевск
-
drronnie » 22.06.2003 (Вс) 4:42
Господа, кто подскажет как изменить размер WorkArea?
Компиляция - перевод словесного поноса в машинный код.
-
GSerg
-
- Шаман

-
-
- Сообщения: 14286
- Зарегистрирован: 14.12.2002 (Сб) 5:25
- Откуда: Магадан
GSerg » 22.06.2003 (Вс) 7:56
- Код: Выделить всё
Declare Function SystemParametersInfo Lib "user32" Alias "SystemParametersInfoA" (ByVal uAction As Long, ByVal uParam As Long, lpvParam As Any, ByVal fuWinIni As Long) As Long
SPI_SETWORKAREA
Sets the size of the work area. The work area is the portion of the screen not obscured by the taskbar. The pvParam parameter must point to the RECT structure that contains the coordinates of the work area.
Так что
- Код: Выделить всё
Private Const SPIF_SENDWININICHANGE = &H2&
Private Type RECT
Left As Long
Top As Long
Right As Long
Bottom As Long
End Type
Private Const SPI_SETWORKAREA = 47&
Dim a as RECT
SystemParametersInfo SPI_SETWORKAREA, 0&, a, SPIF_UPDATEINIFILE
Как только вы переберёте все варианты решения и не найдёте нужного, тут же обнаружится решение, простое и очевидное для всех, кроме вас
-
drronnie
-
- Постоялец

-
-
- Сообщения: 793
- Зарегистрирован: 04.03.2002 (Пн) 22:29
- Откуда: Украина, Алчевск
-
drronnie » 23.06.2003 (Пн) 0:51
Благодарю!!!
Компиляция - перевод словесного поноса в машинный код.
Вернуться в Visual Basic 1–6
Кто сейчас на конференции
Сейчас этот форум просматривают: AhrefsBot, PetalBot, Yandex-бот и гости: 11