font - Форум на исходниках

WWW.ИСХОДНИКИ.РУ cpp.sources.ru

java.sources.ru web.sources.ru soft.sources.ru

jdbc.sources.ru asp.sources.ru api.sources.ru

  Форум на исходниках
  Visual Basic
  font
СПРОСИТЬ  ОТВЕТИТЬ
профайл | регистрация | faq

Автор Тема:   font

aker13 опубликован 18-02-2002 10:34 MSK
kak proverit nalichiye togo ili inogo shrifta (k primeru Tahoma), t.e. esli etot shrift ustanovlen to vidat msgbox esli net to drugoy msgbox.
i chtobi bilo bez ukazivaniya adresa papki.
spasibo za vnimaniye
Lamer опубликован 22-02-2002 22:54 MSK
Dim i As Integer
Dim IsFontExist As Boolean
IsFontExist = False
For i = 1 To Screen.FontCount
If LCase(Screen.Fonts(i)) = "tahoma" Then IsFontExist = True 'lcase для верности
Next
If IsFontExist Then MsgBox "Font exist!" Else MsgBox "Font doesn't exist!"
vmj опубликован 27-02-2002 02:14 MSK
Неплохо добавить аналогичную проверку и для объекта Printer
СПРОСИТЬ  ОТВЕТИТЬ
Перейти:

E-mail | WWW.ИСХОДНИКИ.RU

Powered by: Ultimate Bulletin Board, Freeware Version 5.10a
Purchase our Licensed Version- which adds many more features!
© Infopop Corporation (formerly Madrona Park, Inc.), 1998 - 2000.

Автор	Тема: font
aker13	опубликован 18-02-2002 10:34 MSK kak proverit nalichiye togo ili inogo shrifta (k primeru Tahoma), t.e. esli etot shrift ustanovlen to vidat msgbox esli net to drugoy msgbox. i chtobi bilo bez ukazivaniya adresa papki. spasibo za vnimaniye
Lamer	опубликован 22-02-2002 22:54 MSK Dim i As Integer Dim IsFontExist As Boolean IsFontExist = False For i = 1 To Screen.FontCount If LCase(Screen.Fonts(i)) = "tahoma" Then IsFontExist = True 'lcase для верности Next If IsFontExist Then MsgBox "Font exist!" Else MsgBox "Font doesn't exist!"
vmj	опубликован 27-02-2002 02:14 MSK Неплохо добавить аналогичную проверку и для объекта Printer