Местоположение формы

@Anatolyscher · Регистрация: 30.03.2011

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

Доброго времени суток!
Как можно сделать, чтобы форма при появление, появлялась в углу экрана (у трея, например)?
Может какие либо особые значения для свойства StartUpPosition? Или еще чего там есть (только не использовать экран, в котором можно выбрать местоположение, поскольку под разные мониторы - поразному).

@gitarillo · 27.07.2011, 09:16

Сообщение от Anatolyscher

Может какие либо особые значения для свойства StartUpPosition? Или еще чего там есть (только не использовать экран, в котором можно выбрать местоположение, поскольку под разные мониторы - поразному).

Почему не использовать? Для каждого монитора и будет свое значение положения.

Visual Basic
1
2
3
4
Private Sub Command1_Click()
Me.Left = Screen.Width - Me.Width
Me.Top = Screen.Height - Me.Height
End Sub

@gaw · 27.07.2011, 12:46

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Private Declare Function SystemParametersInfo Lib "user32" Alias "SystemParametersInfoA" (ByVal uAction As Long, ByVal uParam As Long, lpvParam As Any, ByVal fuWinini As Long) As Long
Const SPI_GETWORKAREA = 48
 
Private Type RECT
l As Long
t As Long
w As Long
h As Long
End Type
 
Private Sub Command1_Click()
Dim RC As RECT
Dim X As Long
X = SystemParametersInfo(SPI_GETWORKAREA, vbNull, RC, 0)
Me.Move RC.w * Screen.TwipsPerPixelX - Me.Width, _
RC.h * Screen.TwipsPerPixelY - Me.Height
End Sub

@Ципихович Эндрю · 27.07.2011, 17:11

Сообщение от gaw

As RECT

что за зверь???

@gaw · 27.07.2011, 18:53

Visual Basic
1
2
3
4
5
6
Private Type RECT
l As Long
t As Long
w As Long
h As Long
End Type

@Ципихович Эндрю · 27.07.2011, 19:03

понял, спасибо

@antonboom · 09.01.2013, 13:06

Но так форма уезжает за панель задач (если у той не стоит свойство скрываться), а как сделать так, чтобы чуть выше была форма?

@Апострофф · 09.01.2013, 14:31

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Private Declare Function SystemParametersInfo Lib "user32" Alias "SystemParametersInfoA" (ByVal uAction As Long, ByVal uParam As Long, lpvParam As Any, ByVal fuWinini As Long) As Long
Const SPI_GETWORKAREA = 48
 
Private Type RECT
  Left As Long
  Top As Long
  Right As Long
  Bottom As Long
End Type
 
Private Sub Form_Load()
Dim RC As RECT
Dim X As Long
  X = SystemParametersInfo(SPI_GETWORKAREA, vbNull, RC, 0)
  Left = (RC.Right - RC.Left) * Screen.TwipsPerPixelX - Width
  Top = (RC.Bottom - RC.Top) * Screen.TwipsPerPixelY - Height
End Sub

Новые блоги и статьи Все статьи Все блоги /
Owen Logic: О недопустимости использования связки «аналоговый ПИД» + RegKZR ФедосеевПавел 06.01.2026 Owen Logic: О недопустимости использования связки «аналоговый ПИД» + RegKZR ВВЕДЕНИЕ Введу сокращения: аналоговый ПИД — ПИД регулятор с управляющим выходом в виде числа в диапазоне от 0% до. . .	Модель микоризы: классовый агентный подход 2 anaschu 06.01.2026 репозиторий https:/ / github. com/ shumilovas/ fungi ветка по-частям. коммит Create переделка под биомассу. txt вход sc, но sm считается внутри мицелия. кстати, обьем тоже должен там считаться. . . .	Расчёт токов в цепи постоянного тока igorrr37 05.01.2026 / * Дана цепь постоянного тока с сопротивлениями и напряжениями. Надо найти токи в ветвях. Программа составляет систему уравнений по 1 и 2 законам Кирхгофа и решает её. Последовательность действий:. . .	Новый CodeBlocs. Версия 25.03 palva 04.01.2026 Оказывается, недавно вышла новая версия CodeBlocks за номером 25. 03. Когда-то давно я возился с только что вышедшей тогда версией 20. 03. С тех пор я давно снёс всё с компьютера и забыл. Теперь. . .
Модель микоризы: классовый агентный подход anaschu 02.01.2026 Раньше это было два гриба и бактерия. Теперь три гриба, растение. И на уровне агентов добавится между грибами или бактериями взаимодействий. До того я пробовал подход через многомерные массивы,. . .	Советы по крайней бережливости. Внимание, это ОЧЕНЬ длинный пост. Programma_Boinc 28.12.2025 Советы по крайней бережливости. Внимание, это ОЧЕНЬ длинный пост. Налог на собак: https:/ / ********/ gallery/ V06K53e Финансовый отчет в Excel: https:/ / ********/ gallery/ bKBkQFf Пост отсюда. . .	Кто-нибудь знает, где можно бесплатно получить настольный компьютер или ноутбук? США. Programma_Boinc 26.12.2025 Нашел на реддите интересную статью под названием Anyone know where to get a free Desktop or Laptop? Ниже её машинный перевод. После долгих разбирательств я наконец-то вернула себе. . .	Thinkpad X220 Tablet — это лучший бюджетный ноутбук для учёбы, точка. Programma_Boinc 23.12.2025 Рецензия / Мнение/ Перевод Нашел на реддите интересную статью под названием The Thinkpad X220 Tablet is the best budget school laptop period . Ниже её машинный перевод. Thinkpad X220 Tablet —. . .

@Anatolyscher 1 / 1 / 0 Регистрация: 30.03.2011 Сообщений: 44

	Местоположение формы 27.07.2011, 01:36. Показов 1201. Ответов 7 Метки нет (Все метки) Доброго времени суток! Как можно сделать, чтобы форма при появление, появлялась в углу экрана (у трея, например)? Может какие либо особые значения для свойства StartUpPosition? Или еще чего там есть (только не использовать экран, в котором можно выбрать местоположение, поскольку под разные мониторы - поразному). 0

@Ципихович Эндрю 1711 / 578 / 76 Регистрация: 10.04.2009 Сообщений: 9,298
	27.07.2011, 19:03
	понял, спасибо 0

@antonboom bmstu-team 301 / 136 / 91 Регистрация: 10.01.2012 Сообщений: 420 Записей в блоге: 10
	09.01.2013, 13:06
	Но так форма уезжает за панель задач (если у той не стоит свойство скрываться), а как сделать так, чтобы чуть выше была форма? 0