Module1.vb
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.TextFitsPage()
' Set watermark text
preset.Text = "Bytescout Watermarking"
' 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
Sorry! This product is not available.
Please click here to visit main page for the list of all available products and solutions.
Product Links: