Выбор шрифтов

[-=TsA=-]

Получаю список шрифтов установленные в системе:

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

Dim m As Integer
'запускаем цикл, который повториться столько раз, сколько имеется
'шрифтов минус один, т.к. счёт идёт от нуля
For m = 0 To Screen.FontCount - 1
    'в List1 добавляем элемент массива Screen.Fonts cоответсвующий числу m
    List1.AddItem Screen.Fonts(m)
Next


Ребята, а как программно определить и выкинуть оттуда шрифты которые не содержат русские буквы (кириллицу)?

PS. ни у кого нету контрола, который отображает начертания шрифтов а ля MS Office?

[alibek]

EnumFontFamiliesEx и смотри поддерживаемые charset.

[-=TsA=-]

Спасибо

[-=TsA=-]

Блин на всех шрифтах charset=0

[alibek]

Хм... А как вызываешь?
Еще попробуй GetFontData.

[-=TsA=-]

Блин на всех шрифтах charset=0

Вот нашел простой способ:

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

Public Function IsCyrillics(ByVal FontName As String) As Boolean
    Dim oFont As StdFont
    Set oFont = New StdOle.StdFont
    oFont.Name = FontName
    IsCyrillics = oFont.Charset = 204
End Function