ASPPainter::Text::Exist.vbs
Dim pic
Set pic = CreateObject("ASPPainter.Pictures.1")
pic.SetBKColor 255,0,0,255
pic.Create 200,250
pic.SetbkColor 0,255,0,255
pic.SetFontName "Arial"
if pic.ExistFont = 1 then
str = "Arial Exist"
else
str = "Arial No Exist"
end if
msgbox str
pic.SetFontName "Arialq"
if pic.ExistFont = 1 then
str = " Arialq Exist"
else
str = " Arialq No Exist"
end if
msgbox str
pic.DestroyAll
Set pic = Nothing
More samples:
Antialias,
Exist font, Font,
Fonts, Rotate text,
Style,
Text gradient, Text in
rectangle
See also:
TextOut,
SetFontBold, SetFontItalic,
SetFontUnderline,
SetFontStrikeOut,
GetFontHeight,
SetFontSize, SetFontName,
SetFontAntialias,
SetFontOrientation,
SetJpegQuality,
ExistFont, SetFontRectangle,
ClearFontRectangle,
SetTextAlign,
SetColorIndex, SetGradient,
ClearGradient,
SetColor, SetBKColor,
Create ,
SaveToFile , DestroyALL