Seznam nainstalovaných fontů
Na formulář přidejte ListBox a na událost Form_Load zapište:
Dim intCount
For intCount = 1 To
Screen.FontCount
List1.AddItem Screen.Fonts(intCount)
Next intCount
|
Seznam nainstalovaných fontů |
|
|
|
Postup: Na formulář přidejte ListBox a na událost Form_Load zapište: Dim intCount For intCount = 1 To
Screen.FontCount |
|
|
| Autor: The Bozena |