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 StampFitsPage() ' Set stamp type preset.ImageFile = "[DONOTCOPY]" ' Set stamp color preset.ColorizeByColor(Color.Red) ' Set stamp transparency preset.Transparency = 75 ' 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: