ByteScout Image To Video SDK - VB.NET - Conversion Progress GUI - ByteScout

ByteScout Image To Video SDK – VB.NET – Conversion Progress GUI

  • Home
  • /
  • Articles
  • /
  • ByteScout Image To Video SDK – VB.NET – Conversion Progress GUI

conversion progress GUI in VB.NET and ByteScout Image To Video SDK

Write code in VB.NET to make conversion progress GUI with this How-To tutorial

Today we will explain the steps and algorithm of implementing conversion progress GUI and how to make it work in your application. ByteScout Image To Video SDK was made to help with conversion progress GUI in VB.NET. ByteScout Image To Video SDK is the software development kit that can take a set of images and generate video slide show from them. Includes built-in support for 100+ of 2-D and 3-D slide transitions effects. Supports output in WMV, AVI, WEBM video formats.

Fast application programming interfaces of ByteScout Image To Video SDK for VB.NET plus the instruction and the VB.NET code below will help you quickly learn conversion progress GUI. VB.NET sample code is all you need: copy and paste the code to your VB.NET application’s code editor, add a reference to ByteScout Image To Video SDK (if you haven’t added yet) and you are ready to go! Enjoy writing a code with ready-to-use sample VB.NET codes to implement conversion progress GUI using ByteScout Image To Video SDK.

ByteScout Image To Video SDK free trial version is available for download from our website. Free trial also includes programming tutorials along with source code samples.

Try ByteScout Image To Video SDK today: Get 60 Day Free Trial or sign up for Web API

Partial Class Form1 ''' <summary> ''' Required designer variable. ''' </summary> Private components As System.ComponentModel.IContainer = Nothing ''' <summary> ''' Clean up any resources being used. ''' </summary> ''' <param name="disposing">true if managed resources should be disposed; otherwise, false.</param> Protected Overloads Overrides Sub Dispose(disposing As Boolean) If disposing AndAlso (components IsNot Nothing) Then components.Dispose() End If MyBase.Dispose(disposing) End Sub #Region "Windows Form Designer generated code" ''' <summary> ''' Required method for Designer support - do not modify ''' the contents of this method with the code editor. ''' </summary> Private Sub InitializeComponent() Me.buttonConvert = New System.Windows.Forms.Button Me.label1 = New System.Windows.Forms.Label Me.progressBar1 = New System.Windows.Forms.ProgressBar Me.SuspendLayout() ' 'buttonConvert ' Me.buttonConvert.Location = New System.Drawing.Point(18, 57) Me.buttonConvert.Name = "buttonConvert" Me.buttonConvert.Size = New System.Drawing.Size(254, 33) Me.buttonConvert.TabIndex = 0 Me.buttonConvert.Text = "Convert slides with conversion preview" Me.buttonConvert.UseVisualStyleBackColor = True ' 'label1 ' Me.label1.AutoSize = True Me.label1.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(204, Byte)) Me.label1.Location = New System.Drawing.Point(15, 9) Me.label1.Name = "label1" Me.label1.Size = New System.Drawing.Size(126, 13) Me.label1.TabIndex = 2 Me.label1.Text = "Conversion progress:" ' 'progressBar1 ' Me.progressBar1.Location = New System.Drawing.Point(18, 28) Me.progressBar1.Name = "progressBar1" Me.progressBar1.Size = New System.Drawing.Size(254, 23) Me.progressBar1.TabIndex = 3 ' 'Form1 ' Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font Me.ClientSize = New System.Drawing.Size(284, 102) Me.Controls.Add(Me.progressBar1) Me.Controls.Add(Me.label1) Me.Controls.Add(Me.buttonConvert) Me.Name = "Form1" Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen Me.Text = "Form1" Me.ResumeLayout(False) Me.PerformLayout() End Sub #End Region Private WithEvents buttonConvert As System.Windows.Forms.Button Private label1 As System.Windows.Forms.Label Private progressBar1 As System.Windows.Forms.ProgressBar End Class

Try ByteScout Image To Video SDK today: 60 Day Free Trial (on-premise version) or sign up for Web API (on demand version)

Imports System.Windows.Forms Imports BytescoutImageToVideo Public Partial Class Form1 Inherits Form Public Const WM_APP As Integer = &H8000 Public Const WM_CONVERSION_PROGRESS As Integer = WM_APP + 1 Private converter As New ImageToVideo() Public Sub New() InitializeComponent() converter.RegistrationName = "demo" converter.RegistrationKey = "demo" End Sub Private Sub buttonConvert_Click(ByVal sender As Object, ByVal e As EventArgs) Handles buttonConvert.Click If Not converter.IsRunning Then ' Set default "in" effect for slides (you can also set effects for each single slide) converter.Slides.DefaultSlideInEffect = 1 ' teFadeIn (1) - fades in effect for slides transition converter.Slides.DefaultSlideInEffectDuration = 500 ' 500 msec for in effect ' Add images and set the duration for every slide Dim slide As Slide slide = converter.AddImageFromFileName("..\..\..\..\slide1.jpg") slide.Duration = 3000 ' 3000ms = 3s slide = converter.AddImageFromFileName("..\..\..\..\slide2.jpg") slide.Duration = 3000 slide = converter.AddImageFromFileName("..\..\..\..\slide3.jpg") slide.Duration = 3000 ' Set output video size converter.OutputWidth = 400 converter.OutputHeight = 300 ' Set output video file name converter.OutputVideoFileName = "result.wmv" ' Set progress notification target window converter.SetProgressNotifyWindow(Handle.ToInt32(), WM_CONVERSION_PROGRESS, 0) ' Run the conversion converter.Run() End If End Sub Protected Overloads Overrides Sub WndProc(ByRef m As Message) If m.HWnd = Handle AndAlso m.Msg = WM_CONVERSION_PROGRESS Then progressBar1.Value = m.WParam.ToInt32() End If MyBase.WndProc(m) End Sub End Class

Try ByteScout Image To Video SDK today: 60 Day Free Trial (on-premise version) or sign up for Web API (on demand version)

Imports System.Windows.Forms NotInheritable Class Program Private Sub New() End Sub <STAThread()> _ Friend Shared Sub Main() Application.EnableVisualStyles() Application.SetCompatibleTextRenderingDefault(False) Application.Run(New Form1()) End Sub End Class

Try ByteScout Image To Video SDK today: 60 Day Free Trial (on-premise version) or sign up for Web API (on demand version)



Get 60 Day Free Trial or Visit ByteScout Image To Video SDK page

Explore ByteScout Image To Video SDK documentation


Sign Up for free Web API key

Explore Web API Documentation