How-To Guide

​Dim inputImages As New ArrayList()

For Each page As Page In textControl1.GetPages()
    Dim image As New MemoryStream()
    Dim bitmap As Bitmap = page.GetImage(100, TXTextControl.Page.PageContent.All)
    bitmap.Save(image, ImageFormat.Tiff)
    inputImages.Add(image)
Next

​Public Shared Sub CreateMultipageTIF(InputImages As ArrayList, Filename As String)
    ' set the image codec
    Dim info As ImageCodecInfo = Nothing
    For Each ice As ImageCodecInfo In ImageCodecInfo.GetImageEncoders()
        If ice.MimeType = "image/tiff" Then
            info = ice
            Exit For
        End If
    Next

    Dim ep As New EncoderParameters(2)

    Dim firstPage As Boolean = True

    Dim img As System.Drawing.Image = Nothing

    ' create an image instance from the 1st image
    For nLoopfile As Integer = 0 To InputImages.Count - 1
        ' get image from src file
        Dim img_src As System.Drawing.Image = System.Drawing.Image.FromStream(DirectCast(InputImages(nLoopfile), Stream))

        Dim guid As Guid = img_src.FrameDimensionsList(0)
        Dim dimension As New System.Drawing.Imaging.FrameDimension(guid)

        ' get the frames from src file
        For nLoopFrame As Integer = 0 To img_src.GetFrameCount(dimension) - 1
            img_src.SelectActiveFrame(dimension, nLoopFrame)

            ep.Param(0) = New EncoderParameter(System.Drawing.Imaging.Encoder.Compression, Convert.ToInt32(EncoderValue.CompressionLZW))

            ' if first page, then create the initial image
            If firstPage Then
                img = img_src

                ep.Param(1) = New EncoderParameter(System.Drawing.Imaging.Encoder.SaveFlag, Convert.ToInt32(EncoderValue.MultiFrame))
                img.Save(Filename, info, ep)

                firstPage = False
                Continue For
            End If

                ' add image to the next frame
                 ep.Param(1) = New EncoderParameter(System.Drawing.Imaging.Encoder.SaveFlag, Convert.ToInt32(EncoderValue.FrameDimensionPage))
            img.SaveAdd(img_src, ep)
        Next
    Next

    ep.Param(1) = New EncoderParameter(System.Drawing.Imaging.Encoder.SaveFlag, Convert.ToInt32(EncoderValue.Flush))
    img.SaveAdd(ep)
End Sub

​Dim LS As New TXTextControl.LoadSettings()
LS.ApplicationFieldFormat = ApplicationFieldFormat.MSWord
LS.ApplicationFieldTypeNames = New String() {"MERGEFIELD"}
TextControl1.Load("C:      est.docx", TXTextControl.StreamType.WordprocessingML, LS)

​Dim TableID As Integer = 10
TextControl1.Tables.Add(6, 3, tableID)
Dim Table As TXTextControl.Table = TextControl1.Tables.GetItem(TableID)
Table.Cells.GetItem(1, 1).Text = "Date / Time"
Table.Cells.GetItem(1, 2).Text = "Customer data"
Table.Cells.GetItem(1, 3).Text = "Result"
TextControl1.Selection.Start = Table.Cells.GetItem(1, 1).Start - 1
TextControl1.Selection.Length = Table.Cells.GetItem(1, 3).Start - 1 _
                               + Table.Cells.GetItem(1, 3).Length
TextControl1.Selection.Bold = True
TextControl1.Selection.ParagraphFormat.Alignment = TXTextControl.HorizontalAlignment.Center
TextControl1.Selection.Length = 0

​For Each cell As TXTextControl.TableCell In table.Cells
    If cell.Row = 1 Then
        Continue For
    End If
    If cell.Column = 1 Then
        cell.Text = DateTime.UtcNow.ToString()
    End If
    If cell.Column = 2 Then
            textControl1.Selection.Start = cell.Start - 1
            Dim appField As New TXTextControl.ApplicationField(
                TXTextControl.ApplicationFieldFormat.MSWord, _
                "MERGEFIELD", _
                cell.Row.ToString(), _
                New String() {"FieldName"})
            appField.DoubledInputPosition = True
            appField.ShowActivated = True
            textControl1.ApplicationFields.Add(appField)
            textControl1.Selection.ParagraphFormat.Alignment = TXTextControl.HorizontalAlignment.Center
    End If
    If cell.Column = 3 Then
        cell.Text = Guid.NewGuid().ToString().Substring(1, 10)
    End If
Next

​' Get the current section to work with.
Dim currentSection As TXTextControl.Section = TextControl1.Sections.GetItem()

' Get the current header.
Dim currentHeader As TXTextControl.HeaderFooter =
      currentSection.HeadersAndFooters.GetItem(TXTextControl.HeaderFooterType.Header)

' Check if there is already a header present.
If currentHeader Is Nothing Then
' no header found in the current section, so we will add one.
    currentSection.HeadersAndFooters.Add(TXTextControl.HeaderFooterType.Header)
    currentHeader = currentSection.HeadersAndFooters.GetItem(TXTextControl.HeaderFooterType.Header)
End If

' Add image to the header with alignment to the right page border.
                currentHeader.Images.Add(New TXTextControl.Image(), _
                TXTextControl.HorizontalAlignment.Right, _
                0, _
                TXTextControl.ImageInsertionMode.DisplaceText)

' Add some text to the header, left aligned.
currentHeader.Selection.Text = "This is a header with an image aligned to the right."

Dim currentFooter As TXTextControl.HeaderFooter =
      currentSection.HeadersAndFooters.GetItem(TXTextControl.HeaderFooterType.Footer)
If currentFooter Is Nothing Then
    currentSection.HeadersAndFooters.Add(TXTextControl.HeaderFooterType.Footer)
    currentFooter = currentSection.HeadersAndFooters.GetItem(TXTextControl.HeaderFooterType.Footer)
End If
currentFooter.Selection.Text = "Page "

' Add PageNumberField text field to the footer to display the current page number.
currentFooter.PageNumberFields.Add(New TXTextControl.PageNumberField(1, TXTextControl.NumberFormat.ArabicNumbers))

' Add static page count to the footer.
' PLEASE NOTE: You will have to update this number programmatically if the page count changes!
'Best solution would be to do that in the Changed event.
currentFooter.Selection.Text = " of " & TextControl1.Pages.ToString()

' Center the footer content.
currentFooter.Selection.ParagraphFormat.Alignment = TXTextControl.HorizontalAlignment.Center

​Private Sub textControl1_KeyPress(sender As Object, e As KeyPressEventArgs)
    If e.KeyChar.Equals(ControlChars.Cr) Then
        e.Handled = True
        textControl1.Selection.Text = vbVerticalTab
    End If
End Sub

​Private Sub scrollToTextPosition(ByVal textPosition As Integer)
    Dim newScrollLocation As Point = textControl1.ScrollLocation
    If textPosition + 1 <= textControl1.TextChars.Count Then
        newScrollLocation = New Point(0, textControl1.TextChars(textPosition + 1).Bounds.Y)
    Else
        newScrollLocation = New Point(0, textControl1.Lines(textControl1.Lines.Count).TextBounds.Y)
    End If
    textControl1.ScrollLocation = newScrollLocation
End Sub

​Dim PrintDoc As New PrintDocument()
Dim PrintCtl As PrintController = New StandardPrintController()
PrintDoc.PrintController = PrintCtl
TextControl1.Print(PrintDoc)

​textControl1.[Select](0, 5)
textControl1.Selection.Bold = True
textControl1.Selection.Italic = True
textControl1.Selection.Text = "New Text"

​Dim sel As New TXTextControl.Selection()
sel.Text = "New Text"
sel.Bold = True
sel.Italic = True
textControl1.Selection = sel

​Private Sub RemoveEmptyPages()
    Dim pageEnum As TXTextControl.PageCollection.PageEnumerator =
                    textControl1.GetPages().GetEnumerator()
    pageEnum.MoveNext()
    Dim pageCounter As Integer = textControl1.GetPages().Count
    For i As Integer = 0 To pageCounter - 1
        Dim curPage As TXTextControl.Page =
                    DirectCast(pageEnum.Current, TXTextControl.Page)
        If curPage.Length = 1 Then
            textControl1.[Select](curPage.Start - 1, 1)
            textControl1.Selection.Text = ""
        Else
            pageEnum.MoveNext()
        End If
    Next
End Sub

​Public Sub New(ByVal columns As Integer, columnWidths As Integer(), columnDistances As Integer())

​Private Sub InsertColumns(FirstColumnWidth As Integer, ColumnDistance As Integer)
    textControl1.Sections.Add(TXTextControl.SectionBreakKind.BeginAtNewLine)
    Dim currentFormat As TXTextControl.SectionFormat = textControl1.Sections.GetItem().Format
    Dim iSecondColumnWidth As Integer = CInt(Math.Truncate(
            (currentFormat.PageSize.Width * 14.4) -
            (currentFormat.PageMargins.Left * 14.4) -
            (currentFormat.PageMargins.Right * 14.4) -
            FirstColumnWidth -
            ColumnDistance))

            Dim newSectionFormat As New TXTextControl.SectionFormat(
            2,
            New Integer() {FirstColumnWidth, iSecondColumnWidth},
            New Integer() {ColumnDistance})

    textControl1.Sections.GetItem().Format = newSectionFormat
End Sub

​Private Function GetPageAtScrollPosition() As Integer
    Return textControl1.Lines.GetItem(New Point(0, textControl1.Height / 2)).Page
End Function

​Private Sub textControl1_VScroll(sender As Object, e As EventArgs)
    Dim iPageNumber As Integer = GetPageAtScrollPosition()
    Console.WriteLine("Page " +
        iPageNumber.ToString() +
        " of " +
        textControl1.Pages.ToString())

    Console.WriteLine("Section " +
        textControl1.GetPages()(iPageNumber).Section +
        " of " +
        textControl1.Sections.Count.ToString())
End Sub

​Dim CurrentPage As Integer = 2
Dim MyPrintDoc As PrintDocument = New PrintDocument()
MyPrintDoc.DefaultPageSettings.PaperSize = New PaperSize("default",
                                                         TextControl1.PageSize.Width,
                                                         TextControl1.PageSize.Height)
MyPrintDoc.DefaultPageSettings.Margins = New Margins(TextControl1.PageMargins.Left,
                                                     TextControl1.PageMargins.Right,
                                                     TextControl1.PageMargins.Top,
                                                     TextControl1.PageMargins.Bottom)
MyPrintDoc.PrinterSettings.PrintRange = PrintRange.SomePages
MyPrintDoc.PrinterSettings.FromPage = CurrentPage
MyPrintDoc.PrinterSettings.ToPage = CurrentPage
TextControl1.Print(MyPrintDoc)