EnumFontFamiliesEx

[oksale]

Я вывожу весь список шрифтов(только название шрифта, т.е. lfFaceName) в ListBox:

Dim LF As LOGFONT
LF.lfCharSet = DEFAULT_CHARSET
EnumFontFamiliesEx Me.hdc, LF, AddressOf EnumFontFamProcEx, ByVal 0&, 0

При клике по ListBoxу должна выводиться информация о каждом шрифте(Charset, Bold и т.д.):

Private Sub List_Click()
Dim LF As LOGFONT

LF.lfCharSet = DEFAULT_CHARSET
LF.lfFaceName = Trim(CStr(lstTT.List(lstTT.ListIndex)))
LF.lfPitchAndFamily = 0
EnumFontFamiliesEx Me.hdc, LF, AddressOf EnumFontFamProc, 0, 0

....
End sub


Но при клике по листбоксу не вызывается callback - процедура EnumFontFamProc. Ошибка не возникает, просто курсор идет дальше при пошаговом выполнении. Подскажите, в чем дело?

И еще вопрос: можно ли при помощи этой функции вытащить незарегистрированные в системе шрифты, а , к примеру, те, которые физически находятся на каком-нибудь диске?

[kamikadze]

Я в этом не разбираюсь. Но все таки попробуй
Dim LF As LOGFONT
записать в общих обьявлениях переменных.

А так как у тебя ты просто создаешь переменную, заполняешь ее, а потом обнуляешь повторным обьявлением.

[GSerg]

Повторного объявления здесь нет.


А если не пошагово, срабатывает?

[oksale]

Посмотрите на дату создания сообщения.
Спасибо большое за ответы, но тема уже давно не актуальна.