Перевод Pixels в Points

Пользователь

Сообщений: 2735 Регистрация: 25.12.2012

10.10.2012 11:35:48

Уважаемые коллеги!
Подскажите, ато что-то сам не могу найти ответ.
В VBA есть функция ActiveWindow.PointsToScreenPixelsX, которая переводит размеры документа в экранные пиксели. Мне же нужно совсем наоборот: знаю разрешение экрана и исходя из него хочу задать размеры формы. Есть такая функция?

З.Ы.: небольшой вопрос в догонку по теме. При активации формы меняю ее размеры и хочу расположить форму по центру. Но "Me.StartUpPosition = CenterScreen" в конце процедуры не отрабатывает. Что-то нужно сделать еще?
Заранее спасибо.
________________________
khafizovtt@gmail.com

Учимся сами и помогаем другим...

ber$erk

Пользователь

Сообщений: 2735 Регистрация: 25.12.2012

10.10.2012 11:55:27

>>> Вообще 3 поинта это 4 пиксела. Т.е. 1 поинт - 1,333 пиксела.
интересно на всех ли мониторах это так? Мне кажется это число может отличаться.
Как выход тогда буду через PointsToScreenPixelsX вычислять текущее отношение и его использовать.

>>> Что то формы, то может указать свойство StartUpPosition = 1(т.е. CenterOwner)
Это не помогло (
________________________
khafizovtt@gmail.com

Учимся сами и помогаем другим...

ber$erk Пользователь Сообщений: 2735 Регистрация: 25.12.2012	#3 10.10.2012 12:10:16 на моем широкоформатном мониторе (1920х1080) PointsToScreenPixelsX(100)=126, а PointsToScreenPixelsY(100) = 363 !!!! Как это понять? ________________________ khafizovtt@gmail.com Учимся сами и помогаем другим...

ber$erk Пользователь Сообщений: 2735 Регистрация: 25.12.2012	#4 10.10.2012 12:22:45 В общем моя цель показывать форму вот так: Прикрепленные файлы post_369575.gif (80.94 КБ) Учимся сами и помогаем другим...

ber$erk Пользователь Сообщений: 2735 Регистрация: 25.12.2012	#5 10.10.2012 12:24:09 Но пока получается только так: Покажите в чем ошибка? ________________________ khafizovtt@gmail.com Прикрепленные файлы post_369577.xls (49 КБ) Учимся сами и помогаем другим...

anvg Пользователь Сообщений: 11927 Регистрация: 22.12.2012 Excel 2016, 365	#6 10.10.2012 12:31:57 Принудительно при вызове формы Me.Left = Application.Left + (Application.Width - Me.Width) \ 2

ber$erk Пользователь Сообщений: 2735 Регистрация: 25.12.2012	#7 10.10.2012 12:38:38 Спасибо. забыл про этот способ. Сам раньше им пользовался :-) Для себя все вопросы закрыл. Еще раз всем спасибо. ________________________ khafizovtt@gmail.com Учимся сами и помогаем другим...

Читают тему