Изменение шрифта с помощью ComboBox

[Alexandrius]

Подскажите, как изменить шрифт TexBoxа находяшегося на другой форме?Список шрифтов загружен в ComboBox.

[dr.MIG]

ИмяДругойФормы.TextBox.Font.Name=Combo1.Text

[Alexandrius]

Спасибо! Может ещё кто подскажет, как загрузить в ComboBox все доступные размеры шрифта?

[alibek]

For S = 1 To 1000 Step 0.5

[Alexandrius]

А, если серьёзно? Ведь каждый шрифт имеет свой диапазон размеров. Как сделать, чтобы именно эти размеры отображались, когда шрифт выбран в соседнем ComboBox

[iGrok]

:D
А, если серьёзно? Ведь каждый шрифт имеет свой диапазон размеров. Как сделать, чтобы именно эти размеры отображались, когда шрифт выбран в соседнем ComboBox

ЕМНИП, все TrueType вполне себе спокойно масштабируются под любой кегль.

[Alexandrius]

И всё же? Ведь не все масштабируются.

[alibek]

Все векторные шрифты масштабируются под любой размер.

[Alexandrius]

Когда клацаешь Font (для любого элемента VB), то видно, что некоторые шрифты имеют ограниченный диапазон размеров. рядом, в ComboBox виден этот диапазон. Я хочу сделать нечто подобное.

[CAPITALIST]

Подскажи, а как ты загрузил все доступные шрифты в ComboBox?

[Alexandrius]

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

Private Sub Form_Load()
Dim I As Integer
For I = 0 To Screen.FontCount - 1
Combo1.AddItem Screen.Fonts(I)
Next
End Sub

[CAPITALIST]

Странный подход. Шрифты берутся не из системы, а из какого-то Screen. Ясно что это будет не везде работать. Например в VBA этого Screen нет. Да и в других языках этот алгоритм не катит.
Есть более универсальный способ?

[Денис]

Странный подход. Шрифты берутся не из системы, а из какого-то Screen. Ясно что это будет не везде работать. Например в VBA этого Screen нет. Да и в других языках этот алгоритм не катит.
Есть более универсальный способ?

Screen это псевдоним рабочего стола. А рабочий стол это потомок системного процесса. Что уж может быть универсальнее?

[alibek]

Есть более универсальный способ?

Да. EnumFontFamilies(Ex) или EnumFonts, смотря что тебе надо.