Как задать максимальный размер окна в режиме Maximized

11.05.2006, 15:01. **Показов** 3010. **Ответов** 4

Студворк — интернет-сервис помощи студентам

Есть форма, сайзабле, без кэпшена и контролБокса.

На максимизирование реагирует не так как хотелось бы (открываеться перекрывая панель пуск и другие панели)

Нужно чтобы максимизировалась, но при этом в доступной области виндовсе, а не на весь скин.

Как можно? посоветуйте пожалуйста.

@Alexey Spirin · 11.05.2006, 15:14

Можно, конечно, вот так, но оно криво:

Me.Caption = "1"

Me.WindowState = vbMaximized

Me.Caption = ""

Скорее всего единственный выход - через API узнать высоту таскбара и ресайзить не через WindowState, а вручную.

@pl · 11.05.2006, 15:27

Создать окно с заголовком, максимизировать, измерить, закрыть, отрыть свое, изменить размер.

@Alexey Spirin · 11.05.2006, 15:31

Угу, можно и так.

Но все равно хедер на какую то долю секунды появляется.

@shurezz · 11.05.2006, 21:39

Решение через GetSysetMetrics и SetWindowPos:

Option Explicit

Const SM_CYCAPTION = 4

Const SM_CXSCREEN = 0

Const SM_CYSCREEN = 1

Private Declare Function GetSystemMetrics Lib "user32" (ByVal nIndex As Long) As Long

Const SWP_SHOWWINDOW = &H40

Private Declare Function SetWindowPos Lib "user32" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, _

ByVal x As Long, ByVal y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long

Private Sub Form_DblClick()

Dim lngCY As Long

Dim lngCX As Long

Dim lngCaption As Long

lngCY = GetSystemMetrics(SM_CYSCREEN)

lngCX = GetSystemMetrics(SM_CXSCREEN)

lngCaption = GetSystemMetrics(SM_CYCAPTION)

Call SetWindowPos(Me.hwnd, 0, 0, 0, lngCX, lngCY - lngCaption, SWP_SHOWWINDOW)

End Sub

Новые блоги и статьи Все статьи Все блоги /
Загрузка PNG-файла с альфа-каналом с помощью библиотеки SDL3_image на Android 8Observer8 27.01.2026 Содержание блога SDL3_image - это библиотека для загрузки и работы с изображениями. Эта пошаговая инструкция покажет, как загрузить и вывести на экран смартфона картинку с альфа-каналом, то есть с. . .	влияние грибов на сукцессию anaschu 26.01.2026 Бифуркационные изменения массы гриба происходят тогда, когда мы уменьшаем массу компоста в 10 раз, а скорость прироста биомассы уменьшаем в три раза. Скорость прироста биомассы может уменьшаться за. . .	Воспроизведение звукового файла с помощью SDL3_mixer при касании экрана Android 8Observer8 26.01.2026 Содержание блога SDL3_mixer - это библиотека я для воспроизведения аудио. В отличие от инструкции по добавлению текста код по проигрыванию звука уже содержится в шаблоне примера. Нужно только. . .	Установка Android SDK, NDK, JDK, CMake и т.д. 8Observer8 25.01.2026 Содержание блога Перейдите по ссылке: https:/ / developer. android. com/ studio и в самом низу страницы кликните по архиву "commandlinetools-win-xxxxxx_latest. zip" Извлеките архив и вы увидите. . .
Вывод текста со шрифтом TTF на Android с помощью библиотеки SDL3_ttf 8Observer8 25.01.2026 Содержание блога Если у вас не установлены Android SDK, NDK, JDK, и т. д. то сделайте это по следующей инструкции: Установка Android SDK, NDK, JDK, CMake и т. д. Сборка примера Скачайте. . .	Использование SDL3-callbacks вместо функции main() на Android, Desktop и WebAssembly 8Observer8 24.01.2026 Содержание блога Если вы откроете примеры для начинающих на официальном репозитории SDL3 в папке: examples, то вы увидите, что все примеры используют следующие четыре обязательные функции, а. . .	моя боль iceja 24.01.2026 Выложила интерполяцию кубическими сплайнами www. iceja. net REST сервисы временно не работают, только через Web. Написала за 56 рабочих часов этот сайт с нуля. При помощи perplexity. ai PRO , при. . .	Модель сукцессии микоризы anaschu 24.01.2026 Решили писать научную статью с неким РОманом

@Alexey Spirin 2 / 2 / 1 Регистрация: 18.10.2007 Сообщений: 1,748
	11.05.2006, 15:14
	Можно, конечно, вот так, но оно криво: Me.Caption = "1" Me.WindowState = vbMaximized Me.Caption = "" Скорее всего единственный выход - через API узнать высоту таскбара и ресайзить не через WindowState, а вручную. 0

@pl 51 / 17 / 6 Регистрация: 18.05.2007 Сообщений: 1,322
	11.05.2006, 15:27
	Создать окно с заголовком, максимизировать, измерить, закрыть, отрыть свое, изменить размер. 0

@Alexey Spirin 2 / 2 / 1 Регистрация: 18.10.2007 Сообщений: 1,748
	11.05.2006, 15:31
	Угу, можно и так. Но все равно хедер на какую то долю секунды появляется. 0

@shurezz 1 / 1 / 0 Регистрация: 18.11.2010 Сообщений: 139
	11.05.2006, 21:39
	Решение через GetSysetMetrics и SetWindowPos: Option Explicit Const SM_CYCAPTION = 4 Const SM_CXSCREEN = 0 Const SM_CYSCREEN = 1 Private Declare Function GetSystemMetrics Lib "user32" (ByVal nIndex As Long) As Long Const SWP_SHOWWINDOW = &H40 Private Declare Function SetWindowPos Lib "user32" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, _ ByVal x As Long, ByVal y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long Private Sub Form_DblClick() Dim lngCY As Long Dim lngCX As Long Dim lngCaption As Long lngCY = GetSystemMetrics(SM_CYSCREEN) lngCX = GetSystemMetrics(SM_CXSCREEN) lngCaption = GetSystemMetrics(SM_CYCAPTION) Call SetWindowPos(Me.hwnd, 0, 0, 0, lngCX, lngCY - lngCaption, SWP_SHOWWINDOW) End Sub 0