Вопрос: определение координат на форме по отношению к экрану / Visual Basic

ReSQL.ru

Мобильная версия Контакт Правила FAQ Помощь

Гость

Войти | Регистрация | Профиль | Очистить

Новые сообщения | Избранное

Форумы | Пользователи | Статистика | Мод. лог | Поиск

Цитировать

Написать

Автор*:

Ввести пароль для входа

Тема*:

Сообщение

Данное сообщение тематическое

Сообщение содержит картинки или видео 18+

Автор:

ВНИМАНИЕ! На данном подфоруме действуют строгие правила. Удостоверьтесь, что ваше сообщение соответствует им!

Форум или тема закрыты для гостей. Необходима авторизация!

Загрузить последнюю сохраненную версию

Вложение:

Вставить как галерею

Максимальный размер вложений: 4,0 МБ, аудио/видео: 8,0 МБ. Картинки большего размера ужимаются, если возможно.

Введите код, изображенный на картинке. Если код нечитаемый, кликните картинку, чтобы загрузить другой вариант.

Отправляя сообщение, я выражаю свое согласие с правилами форума и принимаю пользовательское соглашение.

Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр

Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Вопрос: определение координат на форме по отношению к экрану

3 сообщений из 3, страница 1 из 1

Вопрос: определение координат на форме по отношению к экрану

#34329447

konstsu

Гость

Задача:
Есть форма, есть некий заголовок окна. Нужно определить размер (высоту) заголовка окна.
или определить разность координат формы и начала координат в форме относительно координатной сетки экрана.

...

Рейтинг:

0 / 0

14.02.2007, 11:14

| Ответить | Цитировать | Написать

Вопрос: определение координат на форме по отношению к экрану

#34329508

Бенедикт

Участник

Сообщения: 2 108

Рейтинг: 0 / 0

konstsu,
GetWindowRect, ClientToScreen.

...

Рейтинг:

0 / 0

14.02.2007, 11:27

| Ответить | Цитировать | Написать

Вопрос: определение координат на форме по отношению к экрану

#34329881

konstsu

Гость

Бенедиктkonstsu,
GetWindowRect, ClientToScreen.
Спасибо.
Если кому интересно, подробнее:

Код: plaintext

1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.

Private Type RECT
  Left As Long
  Top As Long
  Right As Long
  Bottom As Long
End Type

Private Declare Function ClientToScreen Lib "user32" (ByVal hWnd As Long, lpPoint As Any) As Long

Private Sub Timer1_Timer()
Dim rcTarg As RECT
    ClientToScreen Me.hWnd, rcTarg
Label1.Caption = rcTarg.Left & " " & rcTarg.Top
End Sub

...

Рейтинг:

0 / 0

14.02.2007, 12:38

| Ответить | Цитировать | Написать

3 сообщений из 3, страница 1 из 1

Читали тему (0):

Читали форум (0):

Пользователи онлайн (0):

start [/forum/topic.php?fid=60&fpage=246&tid=2164515]:	0ms
get settings:	8ms
get forum list:	12ms
check forum access:	2ms
check topic access:	2ms
track hit:	54ms
get topic data:	8ms
get forum data:	2ms
get page messages:	26ms
get tp. blocked users:	1ms
others:	222ms

total:	337ms

	Необходимые cookie
	Cookie для сбора статистики
	Cookie для маркетинга и рекламы