ByteScout Watermarking SDK – VB.NET – Add Vertical Text Watermark

Home
/
Articles
/
ByteScout Watermarking SDK – VB.NET – Add Vertical Text Watermark

printable version:
ByteScout-Watermarking-SDK-VB-NET-Add-Vertical-Text-Watermark.pdf

How to add vertical text watermark for simpleverticaltext (vb in VB.NET and ByteScout Watermarking SDK

Step By Step Tutorial: how to add vertical text watermark for simpleverticaltext (vb in VB.NET

Every ByteScout tool contains example VB.NET source codes that you can find here or in the folder with installed ByteScout product. ByteScout Watermarking SDK was made to help with simpleverticaltext (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.

The SDK samples like this one below explain how to quickly make your application do simpleverticaltext (vb in VB.NET with the help of ByteScout Watermarking SDK. Follow the instruction and copy – paste code for VB.NET into your project’s code editor. Writing VB.NET application typically includes multiple stages of the software development so even if the functionality works please test it with your data and the production environment.

Our website provides free trial version of ByteScout Watermarking SDK that includes source code samples to help with your VB.NET project.

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 = 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 SimpleVerticalText()

        ' Set watermark text
        preset.Text = "Bytescout Watermarking"

        ' Set watermark font
        preset.Font = New WatermarkFont("Tahoma", FontStyle.Regular, FontSizeType.Points, 20)

        ' Set watermark text color
        preset.TextColor = Color.Black

        ' Set text transparency
        preset.Transparency = 20

        ' Set watermark placement
        preset.Placement = WatermarkPlacement.MiddleCenter

        ' Set text rotation
        preset.TextRotation = TextRotation.Counterclockwise

        ' Add watermark to watermarker
        waterMarker.AddWatermark(preset)

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

        ' Set output format
        waterMarker.OutputOptions.ImageFormat = OutputFormats.JPEG

        ' Apply watermarks
        waterMarker.Execute()

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

    End Sub

End Module