ByteScout Watermarking SDK – VB.NET – Add and Show Progress Indicator

Home
/
Articles
/
ByteScout Watermarking SDK – VB.NET – Add and Show Progress Indicator

printable version:
ByteScout-Watermarking-SDK-VB-NET-Add-and-Show-Progress-Indicator.pdf

How to add and show progress indicator in VB.NET and ByteScout Watermarking SDK

Write code in VB.NET to add and show progress indicator with this step-by-step tutorial

Learn how to add and show progress indicator in VB.NET with this source code sample. Want to add and show progress indicator in your VB.NET app? ByteScout Watermarking SDK is designed for it. ByteScout Watermarking SDK is the library for software developers that can be used to quickly add image watermarking features into your web or desktop applications. Use ready to use presets or create your own to be applied for input PNG, JPG, BMP images. Can customize fonts, text position and rotation if required.

You will save a lot of time on writing and testing code as you may just take the VB.NET code from ByteScout Watermarking SDK for add and show progress indicator below and use it in your application. Just copy and paste the code into your VB.NET application’s code and follow the instruction. Enjoy writing a code with ready-to-use sample VB.NET codes.

Trial version of ByteScout Watermarking SDK is available for free. Source code samples are included to help you with your VB.NET app.

On-demand (REST Web API) version:
Web API (on-demand version)

On-premise offline SDK for Windows:
60 Day Free Trial (on-premise)

Program.vb

      Imports System.IO
Imports Bytescout.Watermarking
Imports Bytescout.Watermarking.Presets

Class Program
	Friend Shared Sub Main(args As String())
		' Create Watermarker instance
		Dim waterMarker As New Watermarker()

		' Initialize library
		waterMarker.InitLibrary("demo", "demo")

		' Add images to apply watermarks to
		waterMarker.AddInputFile("image1.jpg", "image1_watermarked.jpg")
		waterMarker.AddInputFile("image2.jpg", "image2_watermarked.jpg")
		waterMarker.AddInputFile("image3.jpg", "image3_watermarked.jpg")

		' Create new watermark
		Dim preset As New TextFitsPage()

		' Set watermark text
		preset.Text = "My Watermark (c) Me 2010"

		' Add watermark to watermarker
		waterMarker.AddWatermark(preset)

		' Add Progress event handler
		AddHandler waterMarker.Progress, New ProgressEventHandler(AddressOf waterMarker_Progress)

		' Apply watermarks
		waterMarker.Execute()

		Console.WriteLine()
		Console.WriteLine("Hit any key...")
		Console.ReadKey()
	End Sub

	Private Shared Sub waterMarker_Progress(percent As Double, status As String, processedFile As String, ByRef abort As Boolean)
		Dim message As String

        If Not String.IsNullOrEmpty(processedFile) Then
            message = String.Format("{0}: {1}: {2:f02}%", Path.GetFileName(processedFile), status, percent)
        Else
            message = String.Format("{0}: {1:f02}%", status, percent)
        End If

		Console.WriteLine(message.PadRight(Console.WindowWidth))
	End Sub
End Class