ByteScout Watermarking SDK - VB.NET - TextFitsPageDiagonal (advanced) - ByteScout

ByteScout Watermarking SDK – VB.NET – TextFitsPageDiagonal (advanced)

  • Home
  • /
  • Articles
  • /
  • ByteScout Watermarking SDK – VB.NET – TextFitsPageDiagonal (advanced)

ByteScout Watermarking SDK – VB.NET – TextFitsPageDiagonal (advanced)

Module1.vb

[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 TextFitsPageDiagonal()

‘ Set watermark text
preset.Text = “Bytescout Watermarking”

‘ Set watermark font
preset.Font = New WatermarkFont(“Tahoma”, FontStyle.Regular, FontSizeType.Points, 30)

‘ Set watermark text color
preset.TextColor = Color.Black

‘ Set text transparency
preset.Transparency = 40

‘ Set watermark orientation
preset.Orientation = DiagonalOrientation.FromTopLeftToBottomRight

‘ Add watermark to watermarker
watermarker.AddWatermark(preset)

‘ Set output directory
watermarker.OutputOptions.OutputDirectory = “.”

‘ Set output format
watermarker.OutputOptions.ImageFormat = OutputFormats.JPEG

‘ Apply watermarks
watermarker.Execute()

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

End Sub

End Module

[/vb]


  Click here to get your Free Trial version of the SDK

Tutorials:

prev
next