Функция CreateFontIndirect

Declare Function CreateFontIndirect Lib "gdi32" Alias "CreateFontIndirectA" (lplf As LOGFONT) As Long

CreateFontIndirect создает логический шрифт с заданными характеристиками. После завершения использования шрифта вашей программой удалите его функцией DeleteObject.

Возвращаемое значение

В случае ошибки функция возвращает 0 (используйте GetLastError для получения кода ошибки). В успешном случае возвращается описатель созданного логического шрифта.

Параметры

lplf

Информация, описывающая различные характеристики создаваемого шрифта

Пример

' Выводим текст на форме
' под углом 45 градусов
Dim F As LOGFONT, hPrevFont As Long, hFont As Long
F.lfEscapement = 450 ' угол 45 градусов
  FontName = "Arial Black" + Chr$(0)
  F.lfFacename = FontName
  F.lfHeight = (FontSize * -25) / Screen.TwipsPerPixelY
  F.lfUnderline = 1 ' подчеркивание
  F.lfCharSet = 204  ' русская кодировка
  hFont = CreateFontIndirect(F)
  hPrevFont = SelectObject(Me.hdc, hFont)
  CurrentX = 500
  CurrentY = Form1.Height / 2
  Print "Русский_Проект"
  hFont = SelectObject(Me.hdc, hPrevFont)
  DeleteObject hFont

Смотри также

CreateFont

Категория

Шрифты и тексты