Функция AddFontResource

Declare Function AddFontResource Lib "gdi32" Alias "AddFontResourceA" (ByVal lpFileName As String) As Long

AddFontResource добавляет ресурс шрифта в систему из заданного файла шрифта. Как правило шрифты хранятся в папке C:\Windows\Fonts. После вызова функции AddFontResource нужно известить все приложения о том, что таблица шрифтов была изменена. Для этого отправьте в HWND_BROADCAST сообщение WM_FONTCHANGE, которое даст указание Windows послать данное сообщение во все открытые окна. Эта функция устанавливает новый шрифт только на текущий период. При перезагрузке шрифт не будет присутствовать в системе. Для сохранения шрифта в системе требуется запись в реестре.

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

В случае ошибки функция возвращает 0. В успешном случае возвращается число добавленных шрифтов

Параметры

lpFileName

Имя файла, содержащего ресурс шрифта. Файл может иметь различные расширения(например, *.fon, *.fnt, *.ttf, *.fot и др.)

Пример

' Добавляем новый шрифт в систему
AddFontResource App.Path + "myfont.ttf"
' Выводим текст на форме новым шрифтом
Me.AutoRedraw = True
Me.FontName = "myfont"
Me.Print "Русский_Проект: Тест!"
SendMessage(HWND_BROADCAST, WM_FONTCHANGE, 0,0)

Смотри также

RemoveFontResource

Категория

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

Реклама