TabsAlignment.vb
- ''
- '' This code is part of Document Solutions for PDF demos.
- '' Copyright (c) MESCIUS inc. All rights reserved.
- ''
- Imports System.IO
- Imports System.Drawing
- Imports GrapeCity.Documents.Pdf
- Imports GrapeCity.Documents.Text
- Imports GrapeCity.Documents.Drawing
-
- '' This sample demonstrates how to use TextLayout.TabStops to render columns
- '' of floating point numbers aligned in different ways:
- '' - aligned on the decimal point via TabStopAlignment.Separator
- '' - left-aligned on the tab position using TabStopAlignment.Leading
- '' - centered around the tab position using TabStopAlignment.Center
- '' - right-aligned on the tab position using TabStopAlignment.Trailing.
- Public Class TabsAlignment
- Function CreatePDF(ByVal stream As Stream) As Integer
- '' Create and set up the document:
- Dim doc = New GcPdfDocument()
- Dim page = doc.NewPage()
- Dim g = page.Graphics
- '' Create and set up a TextLayout object to print the text:
- Dim tl = g.CreateTextLayout()
- tl.MaxWidth = page.Size.Width
- tl.MaxHeight = page.Size.Height
- tl.MarginLeft = 36
- tl.MarginRight = 36
- tl.MarginTop = 36
- tl.MarginBottom = 36
-
-
- tl.DefaultFormat.Font = StandardFonts.Times
- tl.DefaultFormat.FontSize = 10
- tl.DefaultFormat.BackColor = Color.FromArgb(217, 217, 217)
- '' Add tab stops with different alignment types
- '' (the 1st ctor creates a TabStopAlignment.Separator TabStop):
- tl.TabStops = New List(Of TabStop)() From {
- New TabStop(72, "."c),
- New TabStop(72 * 2.5F, TabStopAlignment.Leading),
- New TabStop(72 * 5, TabStopAlignment.Center),
- New TabStop(72 * 7.5F, TabStopAlignment.Trailing)
- }
- '' Render sample text:
- tl.Append($"TabStopAlignment:{vbCrLf}{vbTab}Separator '.'{vbTab}Leading{vbTab}Center{vbTab}Trailing{vbCrLf}")
- Dim v0 As Double = 1
- Dim q As Double = (1 + Math.Sqrt(5)) / 2
- For i = 1 To 50
- tl.Append($"{vbTab}{v0:R}{vbTab}{v0:R}{vbTab}{v0:R}{vbTab}{v0:R}{vbCrLf}")
- v0 *= q
- Next
-
- tl.PerformLayout(True)
- '' Draw the text and images:
- g.DrawTextLayout(tl, PointF.Empty)
- ''
- '' Done:
- doc.Save(stream)
- Return doc.Pages.Count
- End Function
- End Class
-