ByteScout Watermarking SDK – VB.NET – Use Macros for Watermarks

Home
/
Articles
/
ByteScout Watermarking SDK – VB.NET – Use Macros for Watermarks

printable version:
ByteScout-Watermarking-SDK-VB-NET-Use-Macros-for-Watermarks.pdf

How to use macros for watermarks for annotationmacros (vb in VB.NET using ByteScout Watermarking SDK

Step By Step Tutorial: how to use macros for watermarks for annotationmacros (vb in VB.NET

The coding tutorials are designed to help you test the features without need to write your own code. ByteScout Watermarking SDK helps with annotationmacros (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.

The SDK samples like this one below explain how to quickly make your application do annotationmacros (vb in VB.NET with the help of ByteScout Watermarking SDK. Open your VB.NET project and simply copy & paste the code and then run your app! Test VB.NET sample code examples whether they respond your needs and requirements for the project.

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 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.png"

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

        ' Create new watermark
        Dim preset As New TextAnnotation()

        ' Set radius of the corners of the rectangle
        preset.Radius = 30

        ' Set text
        preset.Text = "Date and Time: {{LOCAL_DATE_LONG}} {{LOCAL_TIME}}" + vbCrLf
        preset.Text += "Path: {{DIRECTORY}}" + vbCrLf
        preset.Text += "Filename: {{FILENAME}}" + vbCrLf
        preset.Text += "Manufacturer: {{EXIF_EQUIPMENT_MANUFACTURER}}" + vbCrLf
        preset.Text += "Model: {{EXIF_EQUIPMENT_MODEL}}" + vbCrLf
        preset.Text += "Software: {{EXIF_SOFTWARE_USED}}" + vbCrLf
        preset.Text += "Date/Time: {{EXIF_ORIGINAL_DATE}}" + vbCrLf
        preset.Text += "Exposure Time: {{EXIF_EXPOSURE_TIME}} sec" + vbCrLf
        preset.Text += "Exposure Program: {{EXIF_EXPOSURE_PROGRAM}}" + vbCrLf
        preset.Text += "Exposure Bias: {{EXIF_EXPOSURE_BIAS}} EV" + vbCrLf
        preset.Text += "F Number: F {{EXIF_F_NUMBER}}" + vbCrLf
        preset.Text += "ISO Speed Rating: ISO {{EXIF_ISO_SPEED}}" + vbCrLf
        preset.Text += "Flash: {{EXIF_FLASH}}" + vbCrLf
        preset.Text += "Focal Length: {{EXIF_FOCAL_LENGTH}} mm" + vbCrLf
        preset.Text += "Metering Mode: {{EXIF_METERING_MODE}}" + vbCrLf

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

        ' Add watermark to watermarker
        watermarker.AddWatermark(preset)

        ' Set output directory
        watermarker.OutputOptions.OutputDirectory = "."

        ' Set output format
        watermarker.OutputOptions.ImageFormat = OutputFormats.PNG

        ' Apply watermarks
        watermarker.Execute()

        ' open generated image file in default image viewer installed in Windows
        Process.Start(outputFilePath)

    End Sub

End Module