Подгонка UserForm

[MYF]

Криворукие программисты сделали закрытый проект на VBA.
Доступ к скриптам и формам закрыт. Но есть возможность вносить коррективы "налету", во время выполнения скриптов, добавленных позднее.
Выкручиваюсь как могу:

Код: Выделить всё

UserForm1.Caption = "Это моя форма"
UserForm1.Width = 150 'должно автоматически подгоняться под Caption

UserForm1.CommandButton1.Caption = "Закрыть"
UserForm1.CommandButton1.AutoSize = True
UserForm1.CommandButton1.Top = UserForm1.InsideHeight - UserForm1.CommandButton1.Height - 2 'Я идиот! Убейте меня, кто-нибудь!
UserForm1.CommandButton1.Left = UserForm1.InsideWidth - UserForm1.CommandButton1.Width - 2 'Я идиот! Убейте меня, кто-нибудь!
UserForm1.Show

Здесь UserForm1 (взята для примера) - компонент закрытого проекта.
Нужно:

1. Автоматически подгонять ширину формы так, чтобы строка Caption отображалась полостью. При разных настройках системы (например в зависимости от выбранной темы оформления) ширина одной и той же строки получается разная. Ширина символов тоже разная: строка из 5 символов "ШШШШШ" почти в 3 раза длиннее, чем "lllll". Так что просто умножить количество символов на константу - не вариант.
2. В последних строчках кнопка сдвигается точно в правый нижний угол. Смотрится это как-то некрасиво. По-этому делаю отступ "2". Но это число взято "от балды"... И в зависимости от настроек смотрится по-разному. Надо подставить что-то "более правильное". Например на одно деление сетки, по которой выравниваются элементы при ручной расстановке. Но где это число взять?

[Qwertiy]

Код: Выделить всё

UserForm1.CommandButton1.AutoSize = True
UserForm1.CommandButton1.Caption = "Закрыть"
UserForm1.Width = UserForm1.CommandButton1.Right + 8

Не? Возможно, последнее действие надо делать из хендлера ресайза кнопки.

[MYF]

Qwertiy, то-ли вы недопоняли, то-ли я криво объяснил...
Задача с точностью до наоборот:

1. Первая и основная задача.
В титульной строке окна UserForm1 отображается некая строка. Её содержимое зависит от ситуации. И соответственно длинна разная. Изначально форма такая узкая, что в титуле вообще ничего вразумительного не помещается.
Нужно подогнать ширину формы так, чтобы эта строка полностью уместилась.
То есть рассчитать параметр UserForm1.Width в зависимости от реальной ширины (в пикселях) строки UserForm1.Caption. А ширина эта зависит в свою очередь от темы оформления и шрифта. Да ещё, в зависимости от шрифта, длинна символов может отличаться. Да ещё надо добавить место под кнопки закрытия формы и что там ещё...
Для примера, MsgBox изменяет свои размеры для того, чтобы сообщение уместилось в него.

2. Вторая задача чисто косметическая.
После того, как форма обрела свою новую ширину, элементы выравниваются внутри неё. Для примера кнопка переносится в правый-нижний угол. Но не до упора, а с некоторым отступом от нижнего и правого края. Так же другие элементы выравниваются по левому и верхнему краям.
Где взять величину этих отступов?
Она должна быть где-то в системе. Оптимальный вариант наверное - взять величину шага сетки, которая задаётся в редакторе VBA меню Tools - Options - General - Grid Units: Points - Width/Height. Обычно она равна 6 points. Но я нашёл её только в меню.

[alibek]

http://msdn.microsoft.com/en-us/library/windows/desktop/ff728831(v=vs.85).aspx

Ширина сетки в интерфейсе среды разработки никак не связана с системными константами и размерами.
Есть руководство по дизайну приложений, в котором все подробно описано. Для отступов от края окна ЕМНИП рекомендуется использовать 60 или 90 твипов (4 или 6 пикселов при стандартном масштабе).

[MYF]

alibek, спасибо. Интересная статья. Но это по второму пункту.

А что на счёт первой части? Про изменение ширины формы, чтобы надпись в титульной строке уместилась.

Как мне представляется, окно UserForm в VBA аналогично другим окнам? Например стандартному окну любого приложения в Windows... Может быть там есть какие-то средства для определения, сколько места на экране займёт надпись в титульной строке? И тогда уже как-то от этого отталкиваться...

[alex77755]

UserForm1.Width = 150 'должно автоматически подгоняться под Caption
После того, как форма обрела свою новую ширину, элементы выравниваются внутри неё.

Бред какой-то. Всё зависти от длины заголовка?!

[MYF]

UserForm1.Width = 150 'должно автоматически подгоняться под Caption.

Бред какой-то. Всё зависти от длины заголовка?!

Да-да. И "зависти" тут ни при чём.
Надо подогнать ширину формы так, чтобы надпись в титульной строке уместилась.
Задавать ширину ручную - и есть бред. Так как на разных компьютерах в зависимости от выбранных в теме шрифтов ширина надписи значительно отличается.
Вы никогда не замечали, как ловко MsgBox подстраивает свои размеры под выводимый текст? И не только ширину, но и высоту.

[pronto]

GetThemeTextExtent

Calculates the size and location of the specified text when rendered in the visual style font

Вычисляет размер и положение текста при его отображении шрифтом с заданным стилем оформления