ByteScout Watermarking SDK – VB.NET – TiledTextDiagonal

ByteScout Watermarking SDK – VB.NET – TiledTextDiagonal

Module1.vb

Imports System.Drawing

Imports Bytescout.Watermarking

Module Module1

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

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

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

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

        ' Create new watermark
        Dim preset As New Presets.TiledTextDiagonal()

        ' Set text
        preset.Text = "Sample watermark text"

        ' Set font size
        preset.Font.Style = FontStyle.Bold
        preset.Font.Size = 3

        preset.Transparency = 15

        ' 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

  Click here to get your Free Trial version of the SDK