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

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

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

How to add simple text watermark for simpletext (vb in VB.NET using ByteScout Watermarking SDK

How to add simple text watermark in VB.NET with easy ByteScout code samples to make simpletext (vb. Step-by-step tutorial

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 simpletext (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.

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. Test VB.NET sample code examples whether they respond your needs and requirements for the project.

ByteScout Watermarking SDK – free trial version is on available our website. Also, there are other code samples to help you with your VB.NET application included into trial version.

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 SimpleText()

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

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

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

        ' Set text transparency
        preset.Transparency = 40

        ' Set watermark placement
        preset.Placement = WatermarkPlacement.MiddleCenter

        ' 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