Test fontu |
![]() |
Funkce: ' Test, zda je jméno a velikost fontu podporována. ' Pokud ano, vrací True, jinak False. ' Pokud je podporován font a ne jeho velikost, funkce vrací ' ve druhém argumentu aktuální velikost fontu. ' Pokud není font podporován vůbec, funkce vrátí v argumentech ' jméno a velikost systémového fontu. Function CheckFont(fontName As String, Optional fontSize As Integer) As Boolean On Error Resume Next '
Vytvoření dočasného objektu StdFont End Function |
![]() |
Autor: The Bozena |