src/texsourc/lib/libhpdf/if/vb.net/demo/FontDemo.vb

   1 Imports HPdf
   2
   3 Module TextDemo
   4
   5     Dim font_list As String() = {"Courier", _
   6                                     "Courier-Bold", _
   7                                     "Courier-Oblique", _
   8                                     "Courier-BoldOblique", _
   9                                     "Helvetica", _
  10                                     "Helvetica-Bold", _
  11                                     "Helvetica-Oblique", _
  12                                     "Helvetica-BoldOblique", _
  13                                     "Times-Roman", _
  14                                     "Times-Bold", _
  15                                     "Times-Italic", _
  16                                     "Times-BoldItalic", _
  17                                     "Symbol", _
  18                                     "ZapfDingbats"}
  19
  20     Sub Main()
  21         Console.WriteLine("libhpdf-" & HPdfDoc.HPdfGetVersion())
  22
  23         Try
  24             Const page_title As String = "FontDemo"
  25
  26             Dim pdf As HPdfDoc = New HPdfDoc()
  27             Dim page As HPdfPage = pdf.AddPage()
  28
  29             Dim height As Single = page.GetHeight()
  30             Dim width As Single = page.GetWidth()
  31
  32             ' Print the lines of the page.
  33             page.SetLineWidth(1)
  34             page.Rectangle(50, 50, width - 100, height - 110)
  35             page.Stroke()
  36
  37             ' Print the title of the page (with positioning center).
  38             Dim def_font As HPdfFont = pdf.GetFont("Helvetica", Nothing)
  39             page.SetFontAndSize(def_font, 24)
  40
  41             Dim tw As Single = page.TextWidth(page_title)
  42             page.BeginText()
  43             page.TextOut((width - tw) / 2, height - 50, page_title)
  44             page.EndText()
  45
  46             ' output subtitle.
  47             page.BeginText()
  48             page.SetFontAndSize(def_font, 16)
  49             page.TextOut(60, height - 80, "<Standard Type1 fonts samples>")
  50             page.EndText()
  51
  52             page.BeginText()
  53             page.MoveTextPos(60, height - 105)
  54
  55             For i As Integer = 1 To font_list.Length - 1
  56
  57                 Const samp_text As String = "abcdefgABCDEFG12345!#$%&+-@?"
  58                 Dim font As HPdfFont = pdf.GetFont(font_list(i), Nothing)
  59
  60                 ' print a label of text
  61                 page.SetFontAndSize(def_font, 9)
  62                 page.ShowText(font_list(i))
  63                 page.MoveTextPos(0, -18)
  64
  65                 ' print a sample text.
  66                 page.SetFontAndSize(font, 20)
  67                 page.ShowText(samp_text)
  68                 page.MoveTextPos(0, -20)
  69             Next
  70
  71             page.EndText()
  72
  73             pdf.SaveToFile("FontDemo.pdf")
  74
  75         Catch ex As Exception
  76             Console.Error.WriteLine(ex.Message)
  77         End Try
  78     End Sub
  79
  80 End Module
  81