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

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

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

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.

Try ByteScout Watermarking SDK today:  60 Day Free Trial (on-premise) or  Web API (on-demand version)

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

Try ByteScout Watermarking SDK today:  60 Day Free Trial (on-premise) or  Web API (on-demand version)

VIDEO

ON-PREMISE VERSION INFORMATION

Get 60 Day Free Trial or Visit ByteScout Watermarking SDK Home Page

Explore ByteScout Watermarking SDK Documentation

Get ByteScout Watermarking SDK Free Training

WEB API

Get Your Free API Key

Explore Web API Documentation

Tutorials:

prev
next