Вопросы Теги

Как Вы вычисляете высоту строки заголовка в VB6?

Кодировка выглядит как Юникод (от одной до четырех шестнадцатеричных цифр). Попробуйте это в bash (быстро и грязно):

echo -ne "$(< dump.sql)" > dump_utf8.sql

7
задан Clay Nichols 30 January 2009 в 22:44
поделиться

4 ответа

Вычтите его, отступите:

(Form.height-Form.ScaleHeight) - (Form.Width-Form.ScaleWidth) / 2
9
ответ дан 6 December 2019 в 06:51
поделиться

Необходимо использовать GetSystemMetrics Вызов API для получения высоты строки заголовка.

Private Declare Function GetSystemMetrics Lib "user32" (ByVal nIndex As Long) As Long
Private Const SM_CYCAPTION = 4

Property Get TitleBarHeight() as Long
    TitleBarHeight = GetSystemMetrics(SM_CYCAPTION)
End Property

Примечание: Это возвратит высоту в пикселях. При необходимости в twips, необходимо будет преобразовать использование формы ScaleY метод как так: Me.ScaleY(TitleBarHeight(), vbPixels, vbTwips)

9
ответ дан 6 December 2019 в 06:51
поделиться

Необходимо будет, вероятно, сделать вызов API Win32 GetSystemMetrics ()

1
ответ дан 6 December 2019 в 06:51
поделиться

Ответ "Recursive" выше не совсем корректен. Это вычитает дважды ширину рамки - существует граница слева и один справа!

Мы получаем лучшие результаты с этим:

(Form.Height-Form.ScaleHeight) - (Form.Width-Form.ScaleWidth)/2
3
ответ дан 6 December 2019 в 06:51
поделиться