Шрифт из файла ресурсов в GDI+

[alexmckey]

Здравствуйте ВСЕ
Помогите пожалуйста с решением следующей прблемы
в проекте есть файл ресурсов с шрифтом "Myfont"

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

dim fp as string:fp = App.path & "\mf.ttf"
Dim ByteData() As Byte: ByteData = LoadResData(101, "CUSTOM")
Open fp For Binary Access Write As #1
Put #1, 1, ByteData
Close #1
AddFontResource fp


вопрос: как использовать шрифт "Myfont" в функциях GDI+
например

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

Public Declare Function GdipAddPathString Lib "gdiplus" (ByVal path As Long, ByVal str As String, ByVal length As Long, ByVal family As Long, ByVal style As Long, ByVal emSize As Single, layoutRect As RECTF, ByVal StringFormat As Long) As GpStatus


где взять family

[VBTerminator]

Сначала зарегестрируй шрифт функцией AddFontMemResourceEx, после этого в GdipAddPathString используешь его имя.

Кстати, AddFontMemResourceEx регистрирует шрифт не в реестре, а только для текущего запуска твоего приложения.

[alexmckey]

VBTerminator,спасибо,что откликнулся.
Эту функцию я пытался использовать, но уменя не получилось.
Посмотри пожалуйста,что не так

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

Private Declare Function AddFontMemResourceEx Lib "gdi32.dll" (ByRef pvoid As Any, ByVal dword As Long, ByRef DESIGNVECTOR, ByRef pDword As Long) As Long
Private Declare Function RemoveFontMemResourceEx Lib "gdi32.dll" (ByVal handle As Long) As Long

Private Sub Form_Load()
Dim ByteData() As Byte: ByteData = LoadResData(101, "CUSTOM")
Dim siz As Long: siz = UBound(ByteData)
Dim nFonts As Long
Dim m_fonthandle As Long
m_fonthandle = AddFontMemResourceEx(ByteData(0), siz, 0, nFonts)
'        data,      // font resource
'        len,       // number of bytes in font resource
'        NULL,      // Reserved. Must be 0.
'        &nFonts    // number of fonts installed

End Sub


m_fonthandle возвращает 0

[alexmckey]

разобрался,спасибо

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

Dim siz As Long: siz = UBound(ByteData)+1


[alexmckey]

И снова здравствуйте
Не получается с загруженным шрифтом создать fontfamily
Посоветуйте что-нибудь,пожалуйста