ASP Painter
Home
Home
Samples
Samples
Purchase
Purchase
Download
Download
Documentation
Documentation


ASPPainter::Text::Exist.vbs

							
'============================================================
'Sample 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



home samples purchase documentation download