ByteScout Watermarking SDK – VB.NET – Add Vertical Text with Options

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

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

How to add vertical text with options for simpleverticaltext (vb in VB.NET using ByteScout Watermarking SDK

How to add vertical text with options for simpleverticaltext (vb in VB.NET: How To Tutorial

Writing of the code to add vertical text with options in VB.NET can be done by developers of any level using ByteScout Watermarking SDK. ByteScout Watermarking SDK was made to help with simpleverticaltext (vb in VB.NET. ByteScout Watermarking SDK is the powerful SDK can apply high quality visible and semivisible watermarks into PNG, JPG, BMP pictures and TIFF scans. Doznes of presets are available, multiple watermarks can be applied. Can add logo based watermark from image, can adjust font size, font family, colors.

You will save a lot of time on writing and testing code as you may just take the code below and use it in your application. For implimentation of this functionality, please copy and paste code below into your app using code editor. Then compile and run your app. Enjoy writing a code with ready-to-use sample VB.NET codes to add simpleverticaltext (vb functions using ByteScout Watermarking SDK in VB.NET.

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 = 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