ByteScout Watermarking SDK – VB.NET – Set Options for Tiled Text Watermark

Home
/
Articles
/
ByteScout Watermarking SDK – VB.NET – Set Options for Tiled Text Watermark

printable version:
ByteScout-Watermarking-SDK-VB-NET-Set-Options-for-Tiled-Text-Watermark.pdf

How to set options for tiled text watermark for tiledtext (vb in VB.NET and ByteScout Watermarking SDK

How to set options for tiled text watermark for tiledtext (vb in VB.NET: Step By Step Tutorial

Here you may find thousands pre-made source code pieces for easy implementation in your own programming projects. ByteScout Watermarking SDK helps with tiledtext (vb in VB.NET. ByteScout Watermarking SDK is the software development kit that helps to quickly implement adding of watermarks on top of PNG, JPG, BMP images as well as on multipaged TIFF files. You may select ready to use presets or create your own preset with semitransparent logo images, text lines with adjustable font size, family, color, rotation.

VB.NET code samples for VB.NET developers help to speed up the application’s code writing when using ByteScout Watermarking SDK. Open your VB.NET project and simply copy & paste the code and then run your app! Further enhancement of the code will make it more vigorous.

ByteScout free trial version is available for FREE download from our website. Programming tutorials along with source code samples are included.

On-demand (REST Web API) version:
Web API (on-demand version)

On-premise offline SDK for Windows:
60 Day Free Trial (on-premise)

Module1.vb

      Imports System.Drawing

Imports Bytescout.Watermarking
Imports Bytescout.Watermarking.Presets

Module Module1

    Sub Main()
        ' Create Watermarker instance
        Dim waterMarker As New Watermarker()

        Dim inputFilePath As String
        Dim outputFilePath As String

        ' Initialize library
        waterMarker.InitLibrary("demo", "demo")

        ' Set input file name
        inputFilePath = "my_sample_image.jpg"
        ' Set output file title
        outputFilePath = "my_sample_output.jpg"

        ' Add image to apply watermarks to
        waterMarker.AddInputFile(inputFilePath, outputFilePath)

        ' Create new watermark
        Dim preset As New TiledText()

        ' Set text
        preset.Text = "Bytescout Watermarking"

        ' Set fillrate
        preset.FillRate = 80

        ' Set transparency
        preset.Transparency = 25

        ' Set font size
        preset.Font.Size = 3

        ' Set font style
        preset.Font.Style = FontStyle.Bold

        ' Add watermark to watermarker
        waterMarker.AddWatermark(preset)

        ' Set output directory
        waterMarker.OutputOptions.OutputDirectory = "."

        ' Apply watermarks
        waterMarker.Execute()

        ' open generated image file in default image viewer installed in Windows
        Process.Start(outputFilePath)

    End Sub

End Module