ByteScout Image To Video SDK - VB.NET - Full Featured Demo - ByteScout

ByteScout Image To Video SDK – VB.NET – Full Featured Demo

  • Home
  • /
  • Articles
  • /
  • ByteScout Image To Video SDK – VB.NET – Full Featured Demo

full featured demo in VB.NET using ByteScout Image To Video SDK

Write code in VB.NET to make full featured demo with this How-To tutorial

Sample source codes below will show you how to cope with a difficult task, for example, full featured demo in VB.NET. ByteScout Image To Video SDK was made to help with full featured demo 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 full featured demo. This VB.NET sample code should be copied and pasted into your application’s code editor. Then just compile and run it to see how it works. Use of ByteScout Image To Video SDK in VB.NET is also explained in the documentation included along with the product.

Our website provides free trial version of ByteScout Image To Video SDK. It comes along with all these source code samples with the goal to help you with your VB.NET application implementation.

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

MainForm.Designer.vb
      
Partial Class MainForm ''' <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 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() Dim resources As New System.ComponentModel.ComponentResourceManager(GetType(MainForm)) Me.groupBox1 = New System.Windows.Forms.GroupBox() Me.lvInputFiles = New System.Windows.Forms.ListView() Me.columnHeader1 = New System.Windows.Forms.ColumnHeader() Me.columnHeader2 = New System.Windows.Forms.ColumnHeader() Me.btnMoveDown = New System.Windows.Forms.Button() Me.btnMoveUp = New System.Windows.Forms.Button() Me.btnRemoveAll = New System.Windows.Forms.Button() Me.btnRemove = New System.Windows.Forms.Button() Me.btnAddFolder = New System.Windows.Forms.Button() Me.btnAddImage = New System.Windows.Forms.Button() Me.label1 = New System.Windows.Forms.Label() Me.label2 = New System.Windows.Forms.Label() Me.tbMovieWidth = New System.Windows.Forms.TextBox() Me.label3 = New System.Windows.Forms.Label() Me.tbMovieHeight = New System.Windows.Forms.TextBox() Me.label4 = New System.Windows.Forms.Label() Me.label5 = New System.Windows.Forms.Label() Me.label6 = New System.Windows.Forms.Label() Me.cmbVisualEffect = New System.Windows.Forms.ComboBox() Me.label7 = New System.Windows.Forms.Label() Me.cmbSlideRotation = New System.Windows.Forms.ComboBox() Me.label8 = New System.Windows.Forms.Label() Me.groupBox4 = New System.Windows.Forms.GroupBox() Me.nudTransitionEffectAfterDuration = New System.Windows.Forms.NumericUpDown() Me.label14 = New System.Windows.Forms.Label() Me.nudTransitionEffectBeforeDuration = New System.Windows.Forms.NumericUpDown() Me.label12 = New System.Windows.Forms.Label() Me.label15 = New System.Windows.Forms.Label() Me.cmbTransitionEffectAfter = New System.Windows.Forms.ComboBox() Me.label13 = New System.Windows.Forms.Label() Me.label11 = New System.Windows.Forms.Label() Me.cmbTransitionEffectBefore = New System.Windows.Forms.ComboBox() Me.label10 = New System.Windows.Forms.Label() Me.label16 = New System.Windows.Forms.Label() Me.tbBackgroundImage = New System.Windows.Forms.TextBox() Me.label17 = New System.Windows.Forms.Label() Me.btnBackgroundImageBrowse = New System.Windows.Forms.Button() Me.btnAudioTrackBrowse = New System.Windows.Forms.Button() Me.tbAudioTrack = New System.Windows.Forms.TextBox() Me.label18 = New System.Windows.Forms.Label() Me.groupBox2 = New System.Windows.Forms.GroupBox() Me.nudVisualEffectDuration = New System.Windows.Forms.NumericUpDown() Me.label20 = New System.Windows.Forms.Label() Me.cmbVisualEffectTransition = New System.Windows.Forms.ComboBox() Me.label21 = New System.Windows.Forms.Label() Me.label19 = New System.Windows.Forms.Label() Me.tabControl1 = New System.Windows.Forms.TabControl() Me.tabPage1 = New System.Windows.Forms.TabPage() Me.nudSlideDuration = New System.Windows.Forms.NumericUpDown() Me.tabPage2 = New System.Windows.Forms.TabPage() Me.groupBox3 = New System.Windows.Forms.GroupBox() Me.label22 = New System.Windows.Forms.Label() Me.tabControl2 = New System.Windows.Forms.TabControl() Me.tabPageWmv = New System.Windows.Forms.TabPage() Me.label28 = New System.Windows.Forms.Label() Me.label9 = New System.Windows.Forms.Label() Me.tbBitrate = New System.Windows.Forms.TextBox() Me.cmbWmvAudioFormats = New System.Windows.Forms.ComboBox() Me.label23 = New System.Windows.Forms.Label() Me.cmbWmvAudioCodecs = New System.Windows.Forms.ComboBox() Me.label24 = New System.Windows.Forms.Label() Me.cmbWmvVideoCodecs = New System.Windows.Forms.ComboBox() Me.label25 = New System.Windows.Forms.Label() Me.tabPageAvi = New System.Windows.Forms.TabPage() Me.cmbAviAudioCodecs = New System.Windows.Forms.ComboBox() Me.label26 = New System.Windows.Forms.Label() Me.cmbAviVideoCodecs = New System.Windows.Forms.ComboBox() Me.label27 = New System.Windows.Forms.Label() Me.btnVideoCodecProps = New System.Windows.Forms.Button() Me.tbFPS = New System.Windows.Forms.TextBox() Me.btnBackgroundColor = New System.Windows.Forms.Button() Me.cbKeepAspectRatio = New System.Windows.Forms.CheckBox() Me.cbAutoFitImages = New System.Windows.Forms.CheckBox() Me.cbPlayGeneratedFile = New System.Windows.Forms.CheckBox() Me.statusStrip1 = New System.Windows.Forms.StatusStrip() Me.toolStripStatusLabel1 = New System.Windows.Forms.ToolStripStatusLabel() Me.toolStripProgressBar1 = New System.Windows.Forms.ToolStripProgressBar() Me.btnCreateMovie = New System.Windows.Forms.Button() Me.cbTransitionEffectBeforeRandom = New System.Windows.Forms.CheckBox() Me.cbTransitionEffectAfterRandom = New System.Windows.Forms.CheckBox() Me.linkVisitSDKHome = New System.Windows.Forms.LinkLabel() Me.groupBox1.SuspendLayout() Me.groupBox4.SuspendLayout() DirectCast(Me.nudTransitionEffectAfterDuration, System.ComponentModel.ISupportInitialize).BeginInit() DirectCast(Me.nudTransitionEffectBeforeDuration, System.ComponentModel.ISupportInitialize).BeginInit() Me.groupBox2.SuspendLayout() DirectCast(Me.nudVisualEffectDuration, System.ComponentModel.ISupportInitialize).BeginInit() Me.tabControl1.SuspendLayout() Me.tabPage1.SuspendLayout() DirectCast(Me.nudSlideDuration, System.ComponentModel.ISupportInitialize).BeginInit() Me.tabPage2.SuspendLayout() Me.groupBox3.SuspendLayout() Me.tabControl2.SuspendLayout() Me.tabPageWmv.SuspendLayout() Me.tabPageAvi.SuspendLayout() Me.statusStrip1.SuspendLayout() Me.SuspendLayout() ' ' groupBox1 ' Me.groupBox1.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles) Me.groupBox1.Controls.Add(Me.lvInputFiles) Me.groupBox1.Controls.Add(Me.btnMoveDown) Me.groupBox1.Controls.Add(Me.btnMoveUp) Me.groupBox1.Controls.Add(Me.btnRemoveAll) Me.groupBox1.Controls.Add(Me.btnRemove) Me.groupBox1.Controls.Add(Me.btnAddFolder) Me.groupBox1.Controls.Add(Me.btnAddImage) Me.groupBox1.Location = New System.Drawing.Point(12, 12) Me.groupBox1.Name = "groupBox1" Me.groupBox1.Size = New System.Drawing.Size(285, 424) Me.groupBox1.TabIndex = 0 Me.groupBox1.TabStop = False Me.groupBox1.Text = "Input Images" ' ' lvInputFiles ' Me.lvInputFiles.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) Or System.Windows.Forms.AnchorStyles.Left) Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) Me.lvInputFiles.Columns.AddRange(New System.Windows.Forms.ColumnHeader() {Me.columnHeader1, Me.columnHeader2}) Me.lvInputFiles.FullRowSelect = True Me.lvInputFiles.HeaderStyle = System.Windows.Forms.ColumnHeaderStyle.Nonclickable Me.lvInputFiles.HideSelection = False Me.lvInputFiles.Location = New System.Drawing.Point(6, 19) Me.lvInputFiles.MultiSelect = False Me.lvInputFiles.Name = "lvInputFiles" Me.lvInputFiles.Size = New System.Drawing.Size(172, 398) Me.lvInputFiles.TabIndex = 7 Me.lvInputFiles.UseCompatibleStateImageBehavior = False Me.lvInputFiles.View = System.Windows.Forms.View.Details AddHandler Me.lvInputFiles.SelectedIndexChanged, New System.EventHandler(AddressOf Me.lvInputFiles_SelectedIndexChanged) ' ' columnHeader1 ' Me.columnHeader1.Text = "#" Me.columnHeader1.Width = 30 ' ' columnHeader2 ' Me.columnHeader2.Text = "File" Me.columnHeader2.Width = 120 ' ' btnMoveDown ' Me.btnMoveDown.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) Me.btnMoveDown.Image = My.Resources.arrow_down Me.btnMoveDown.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft Me.btnMoveDown.Location = New System.Drawing.Point(184, 119) Me.btnMoveDown.Name = "btnMoveDown" Me.btnMoveDown.Padding = New System.Windows.Forms.Padding(2, 0, 0, 0) Me.btnMoveDown.Size = New System.Drawing.Size(95, 24) Me.btnMoveDown.TabIndex = 4 Me.btnMoveDown.Text = "Move Down" Me.btnMoveDown.TextAlign = System.Drawing.ContentAlignment.MiddleRight Me.btnMoveDown.TextImageRelation = System.Windows.Forms.TextImageRelation.ImageBeforeText Me.btnMoveDown.UseVisualStyleBackColor = True AddHandler Me.btnMoveDown.Click, New System.EventHandler(AddressOf Me.btnMoveDown_Click) ' ' btnMoveUp ' Me.btnMoveUp.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) Me.btnMoveUp.Image = My.Resources.arrow_up Me.btnMoveUp.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft Me.btnMoveUp.Location = New System.Drawing.Point(184, 89) Me.btnMoveUp.Name = "btnMoveUp" Me.btnMoveUp.Padding = New System.Windows.Forms.Padding(2, 0, 0, 0) Me.btnMoveUp.Size = New System.Drawing.Size(95, 24) Me.btnMoveUp.TabIndex = 3 Me.btnMoveUp.Text = "Move Up" Me.btnMoveUp.TextAlign = System.Drawing.ContentAlignment.MiddleRight Me.btnMoveUp.TextImageRelation = System.Windows.Forms.TextImageRelation.ImageBeforeText Me.btnMoveUp.UseVisualStyleBackColor = True AddHandler Me.btnMoveUp.Click, New System.EventHandler(AddressOf Me.btnMoveUp_Click) ' ' btnRemoveAll ' Me.btnRemoveAll.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) Me.btnRemoveAll.Image = My.Resources.bin_closed Me.btnRemoveAll.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft Me.btnRemoveAll.Location = New System.Drawing.Point(184, 190) Me.btnRemoveAll.Name = "btnRemoveAll" Me.btnRemoveAll.Padding = New System.Windows.Forms.Padding(2, 0, 0, 0) Me.btnRemoveAll.Size = New System.Drawing.Size(95, 24) Me.btnRemoveAll.TabIndex = 6 Me.btnRemoveAll.Text = "Remove All" Me.btnRemoveAll.TextAlign = System.Drawing.ContentAlignment.MiddleRight Me.btnRemoveAll.TextImageRelation = System.Windows.Forms.TextImageRelation.ImageBeforeText Me.btnRemoveAll.UseVisualStyleBackColor = True AddHandler Me.btnRemoveAll.Click, New System.EventHandler(AddressOf Me.btnRemoveAll_Click) ' ' btnRemove ' Me.btnRemove.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) Me.btnRemove.Image = My.Resources.delete Me.btnRemove.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft Me.btnRemove.Location = New System.Drawing.Point(184, 160) Me.btnRemove.Name = "btnRemove" Me.btnRemove.Padding = New System.Windows.Forms.Padding(2, 0, 0, 0) Me.btnRemove.Size = New System.Drawing.Size(95, 24) Me.btnRemove.TabIndex = 5 Me.btnRemove.Text = "Remove" Me.btnRemove.TextAlign = System.Drawing.ContentAlignment.MiddleRight Me.btnRemove.TextImageRelation = System.Windows.Forms.TextImageRelation.ImageBeforeText Me.btnRemove.UseVisualStyleBackColor = True AddHandler Me.btnRemove.Click, New System.EventHandler(AddressOf Me.btnRemove_Click) ' ' btnAddFolder ' Me.btnAddFolder.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) Me.btnAddFolder.Image = My.Resources.add Me.btnAddFolder.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft Me.btnAddFolder.Location = New System.Drawing.Point(184, 49) Me.btnAddFolder.Name = "btnAddFolder" Me.btnAddFolder.Padding = New System.Windows.Forms.Padding(2, 0, 0, 0) Me.btnAddFolder.Size = New System.Drawing.Size(95, 24) Me.btnAddFolder.TabIndex = 2 Me.btnAddFolder.Text = "Add Folder" Me.btnAddFolder.TextAlign = System.Drawing.ContentAlignment.MiddleRight Me.btnAddFolder.TextImageRelation = System.Windows.Forms.TextImageRelation.ImageBeforeText Me.btnAddFolder.UseVisualStyleBackColor = True AddHandler Me.btnAddFolder.Click, New System.EventHandler(AddressOf Me.btnAddFolder_Click) ' ' btnAddImage ' Me.btnAddImage.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) Me.btnAddImage.Image = My.Resources.add Me.btnAddImage.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft Me.btnAddImage.Location = New System.Drawing.Point(184, 19) Me.btnAddImage.Name = "btnAddImage" Me.btnAddImage.Padding = New System.Windows.Forms.Padding(2, 0, 0, 0) Me.btnAddImage.Size = New System.Drawing.Size(95, 24) Me.btnAddImage.TabIndex = 1 Me.btnAddImage.Text = "Add Image" Me.btnAddImage.TextAlign = System.Drawing.ContentAlignment.MiddleRight Me.btnAddImage.TextImageRelation = System.Windows.Forms.TextImageRelation.ImageBeforeText Me.btnAddImage.UseVisualStyleBackColor = True AddHandler Me.btnAddImage.Click, New System.EventHandler(AddressOf Me.btnAddImage_Click) ' ' label1 ' Me.label1.AutoSize = True Me.label1.Location = New System.Drawing.Point(6, 14) Me.label1.Name = "label1" Me.label1.Size = New System.Drawing.Size(47, 13) Me.label1.TabIndex = 0 Me.label1.Text = "Duration" ' ' label2 ' Me.label2.AutoSize = True Me.label2.Location = New System.Drawing.Point(145, 14) Me.label2.Name = "label2" Me.label2.Size = New System.Drawing.Size(20, 13) Me.label2.TabIndex = 2 Me.label2.Text = "ms" ' ' tbMovieWidth ' Me.tbMovieWidth.Location = New System.Drawing.Point(109, 108) Me.tbMovieWidth.Name = "tbMovieWidth" Me.tbMovieWidth.Size = New System.Drawing.Size(40, 20) Me.tbMovieWidth.TabIndex = 5 ' ' label3 ' Me.label3.AutoSize = True Me.label3.Location = New System.Drawing.Point(6, 111) Me.label3.Name = "label3" Me.label3.Size = New System.Drawing.Size(67, 13) Me.label3.TabIndex = 3 Me.label3.Text = "Movie Width" ' ' tbMovieHeight ' Me.tbMovieHeight.Location = New System.Drawing.Point(109, 134) Me.tbMovieHeight.Name = "tbMovieHeight" Me.tbMovieHeight.Size = New System.Drawing.Size(40, 20) Me.tbMovieHeight.TabIndex = 6 ' ' label4 ' Me.label4.AutoSize = True Me.label4.Location = New System.Drawing.Point(6, 137) Me.label4.Name = "label4" Me.label4.Size = New System.Drawing.Size(70, 13) Me.label4.TabIndex = 5 Me.label4.Text = "Movie Height" ' ' label5 ' Me.label5.AutoSize = True Me.label5.Location = New System.Drawing.Point(155, 111) Me.label5.Name = "label5" Me.label5.Size = New System.Drawing.Size(18, 13) Me.label5.TabIndex = 3 Me.label5.Text = "px" ' ' label6 ' Me.label6.AutoSize = True Me.label6.Location = New System.Drawing.Point(155, 137) Me.label6.Name = "label6" Me.label6.Size = New System.Drawing.Size(18, 13) Me.label6.TabIndex = 7 Me.label6.Text = "px" ' ' cmbVisualEffect ' Me.cmbVisualEffect.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList Me.cmbVisualEffect.FormattingEnabled = True Me.cmbVisualEffect.Items.AddRange(New Object() {"None", "Grayscale", "Sepia"}) Me.cmbVisualEffect.Location = New System.Drawing.Point(78, 19) Me.cmbVisualEffect.Name = "cmbVisualEffect" Me.cmbVisualEffect.Size = New System.Drawing.Size(180, 21) Me.cmbVisualEffect.TabIndex = 0 ' ' label7 ' Me.label7.AutoSize = True Me.label7.Location = New System.Drawing.Point(6, 22) Me.label7.Name = "label7" Me.label7.Size = New System.Drawing.Size(35, 13) Me.label7.TabIndex = 4 Me.label7.Text = "Effect" ' ' cmbSlideRotation ' Me.cmbSlideRotation.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList Me.cmbSlideRotation.FormattingEnabled = True Me.cmbSlideRotation.Items.AddRange(New Object() {"0", "90", "180", "270"}) Me.cmbSlideRotation.Location = New System.Drawing.Point(84, 37) Me.cmbSlideRotation.Name = "cmbSlideRotation" Me.cmbSlideRotation.Size = New System.Drawing.Size(55, 21) Me.cmbSlideRotation.TabIndex = 1 ' ' label8 ' Me.label8.AutoSize = True Me.label8.Location = New System.Drawing.Point(6, 40) Me.label8.Name = "label8" Me.label8.Size = New System.Drawing.Size(47, 13) Me.label8.TabIndex = 6 Me.label8.Text = "Rotation" ' ' groupBox4 ' Me.groupBox4.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) Me.groupBox4.Controls.Add(Me.cbTransitionEffectAfterRandom) Me.groupBox4.Controls.Add(Me.cbTransitionEffectBeforeRandom) Me.groupBox4.Controls.Add(Me.nudTransitionEffectAfterDuration) Me.groupBox4.Controls.Add(Me.label14) Me.groupBox4.Controls.Add(Me.nudTransitionEffectBeforeDuration) Me.groupBox4.Controls.Add(Me.label12) Me.groupBox4.Controls.Add(Me.label15) Me.groupBox4.Controls.Add(Me.cmbTransitionEffectAfter) Me.groupBox4.Controls.Add(Me.label13) Me.groupBox4.Controls.Add(Me.label11) Me.groupBox4.Controls.Add(Me.cmbTransitionEffectBefore) Me.groupBox4.Controls.Add(Me.label10) Me.groupBox4.Location = New System.Drawing.Point(6, 172) Me.groupBox4.Name = "groupBox4" Me.groupBox4.Size = New System.Drawing.Size(439, 132) Me.groupBox4.TabIndex = 3 Me.groupBox4.TabStop = False Me.groupBox4.Text = "Transition Effects" ' ' nudTransitionEffectAfterDuration ' Me.nudTransitionEffectAfterDuration.Increment = New Decimal(New Integer() {100, 0, 0, 0}) Me.nudTransitionEffectAfterDuration.Location = New System.Drawing.Point(78, 100) Me.nudTransitionEffectAfterDuration.Maximum = New Decimal(New Integer() {20000, 0, 0, 0}) Me.nudTransitionEffectAfterDuration.Name = "nudTransitionEffectAfterDuration" Me.nudTransitionEffectAfterDuration.Size = New System.Drawing.Size(55, 20) Me.nudTransitionEffectAfterDuration.TabIndex = 20 ' ' label14 ' Me.label14.AutoSize = True Me.label14.Location = New System.Drawing.Point(139, 102) Me.label14.Name = "label14" Me.label14.Size = New System.Drawing.Size(20, 13) Me.label14.TabIndex = 21 Me.label14.Text = "ms" ' ' nudTransitionEffectBeforeDuration ' Me.nudTransitionEffectBeforeDuration.Increment = New Decimal(New Integer() {100, 0, 0, 0}) Me.nudTransitionEffectBeforeDuration.Location = New System.Drawing.Point(78, 47) Me.nudTransitionEffectBeforeDuration.Maximum = New Decimal(New Integer() {20000, 0, 0, 0}) Me.nudTransitionEffectBeforeDuration.Name = "nudTransitionEffectBeforeDuration" Me.nudTransitionEffectBeforeDuration.Size = New System.Drawing.Size(55, 20) Me.nudTransitionEffectBeforeDuration.TabIndex = 18 ' ' label12 ' Me.label12.AutoSize = True Me.label12.Location = New System.Drawing.Point(139, 49) Me.label12.Name = "label12" Me.label12.Size = New System.Drawing.Size(20, 13) Me.label12.TabIndex = 19 Me.label12.Text = "ms" ' ' label15 ' Me.label15.AutoSize = True Me.label15.Location = New System.Drawing.Point(6, 102) Me.label15.Name = "label15" Me.label15.Size = New System.Drawing.Size(47, 13) Me.label15.TabIndex = 12 Me.label15.Text = "Duration" ' ' cmbTransitionEffectAfter ' Me.cmbTransitionEffectAfter.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList Me.cmbTransitionEffectAfter.Items.AddRange(New Object() {"None", "Simple Fade", "Wipe Left", "Wipe Right", "Wipe Up", "Wipe Down", _ "Wipe Top Left", "Wipe Top Right", "Wipe Bottom Left", "Wipe Bottom Right", "Cover Left", "Cover Right", _ "Cover Up", "Cover Down", "Cover Left Up", "Cover Left Down", "Cover Right Up", "Cover Right Down", _ "Uncover Left", "Uncover Right", "Uncover Up", "Uncover Down", "Uncover Left Up", "Uncover Left Down", _ "Uncover Right Up", "Uncover Right Down", "Uncover Push Left", "Uncover Push Right", "Uncover Push Up", "Uncover Push Down", _ "Box In", "Box Out", "Wheel 1", "Wheel 2", "Wheel 3", "Wheel 4", _ "Wheel 5", "Wheel 6", "Wheel 7", "Wheel 8", "Horz Blinds 5", "Horz Blinds 10", _ "Horz Blinds 20", "Vert Blinds 5", "Vert Blinds 10", "Vert Blinds 20", "Strip Left Up", "Strip Left Down", _ "Strip Right Up", "Strip Right Down", "Shape Circle", "Shape Plus", "Shape Diamond", "Shape Checks Horz", _ "Shape Checks Vert", "Split Horz In", "Split Horz Out", "Split Vert In", "Split Vert Out", "Wedge", _ "Clock Clockwise", "Clock Counterclockwise", "Cut", "Cut Through Black", "Random Bars Horz", "Random Bars Vert", _ "Fade", "News Flash", "Dissolve", "Switch Left", "Switch Right", "Box 3D Left", _ "Box 3D Right", "Box 3D Up", "Box 3D Down", "Cube Left", "Cube Right", "Cube Up", _ "Cube Down", "Flip Left", "Flip Right", "Ripple Top Left", "Ripple Top Right", "Ripple Bottom Left", _ "Ripple Bottom Right", "Ripple Center", "Gallery Left", "Gallery Right", "Zoom In", "Zoom Out", _ "Doors Horz", "Doors Vert", "Windows Horz", "Windows Vert", "Fade Through Black", "Honeycomb", _ "Blinds 3D Horz", "Blinds 3D Vert", "Checker Board 3D Horz", "Checker Board 3D Vert", "Comb Horizontal", "Comb Vertical", _ "Glitter Left", "Glitter Right", "Glitter Up", "Glitter Down", "Glitter Diamond Left", "Glitter Diamond Right", _ "Glitter Diamond Up", "Glitter Diamond Down", "Shred Strip In", "Shred Strip Out", "Shred Particle In", "Shred Particle Out", _ "Vortex Left", "Vortex Right", "Vortex Up", "Vortex Down", "Reveal Left", "Reveal Right", _ "Reveal Through Black Left", "Reveal Through Black Right", "Cover 3D Left", "Cover 3D Right", "Cover 3D Up", "Cover 3D Down", _ "Cover 3D Left Up", "Cover 3D Left Down", "Cover 3D Right Up", "Cover 3D Right Down", "Uncover 3D Left", "Uncover 3D Right", _ "Uncover 3D Up", "Uncover 3D Down", "Uncover 3D Left Up", "Uncover 3D Left Down", "Uncover 3D Right Up", "Uncover 3D Right Down", _ "Flash", "Fly Through", "Orbit", "Rotate"}) Me.cmbTransitionEffectAfter.Location = New System.Drawing.Point(78, 73) Me.cmbTransitionEffectAfter.MaxDropDownItems = 16 Me.cmbTransitionEffectAfter.Name = "cmbTransitionEffectAfter" Me.cmbTransitionEffectAfter.Size = New System.Drawing.Size(180, 21) Me.cmbTransitionEffectAfter.TabIndex = 2 ' ' label13 ' Me.label13.AutoSize = True Me.label13.Location = New System.Drawing.Point(6, 49) Me.label13.Name = "label13" Me.label13.Size = New System.Drawing.Size(47, 13) Me.label13.TabIndex = 9 Me.label13.Text = "Duration" ' ' label11 ' Me.label11.AutoSize = True Me.label11.Location = New System.Drawing.Point(6, 76) Me.label11.Name = "label11" Me.label11.Size = New System.Drawing.Size(29, 13) Me.label11.TabIndex = 10 Me.label11.Text = "After" ' ' cmbTransitionEffectBefore ' Me.cmbTransitionEffectBefore.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList Me.cmbTransitionEffectBefore.Items.AddRange(New Object() {"None", "Simple Fade", "Wipe Left", "Wipe Right", "Wipe Up", "Wipe Down", _ "Wipe Top Left", "Wipe Top Right", "Wipe Bottom Left", "Wipe Bottom Right", "Cover Left", "Cover Right", _ "Cover Up", "Cover Down", "Cover Left Up", "Cover Left Down", "Cover Right Up", "Cover Right Down", _ "Uncover Left", "Uncover Right", "Uncover Up", "Uncover Down", "Uncover Left Up", "Uncover Left Down", _ "Uncover Right Up", "Uncover Right Down", "Uncover Push Left", "Uncover Push Right", "Uncover Push Up", "Uncover Push Down", _ "Box In", "Box Out", "Wheel 1", "Wheel 2", "Wheel 3", "Wheel 4", _ "Wheel 5", "Wheel 6", "Wheel 7", "Wheel 8", "Horz Blinds 5", "Horz Blinds 10", _ "Horz Blinds 20", "Vert Blinds 5", "Vert Blinds 10", "Vert Blinds 20", "Strip Left Up", "Strip Left Down", _ "Strip Right Up", "Strip Right Down", "Shape Circle", "Shape Plus", "Shape Diamond", "Shape Checks Horz", _ "Shape Checks Vert", "Split Horz In", "Split Horz Out", "Split Vert In", "Split Vert Out", "Wedge", _ "Clock Clockwise", "Clock Counterclockwise", "Cut", "Cut Through Black", "Random Bars Horz", "Random Bars Vert", _ "Fade", "News Flash", "Dissolve", "Switch Left", "Switch Right", "Box 3D Left", _ "Box 3D Right", "Box 3D Up", "Box 3D Down", "Cube Left", "Cube Right", "Cube Up", _ "Cube Down", "Flip Left", "Flip Right", "Ripple Top Left", "Ripple Top Right", "Ripple Bottom Left", _ "Ripple Bottom Right", "Ripple Center", "Gallery Left", "Gallery Right", "Zoom In", "Zoom Out", _ "Doors Horz", "Doors Vert", "Windows Horz", "Windows Vert", "Fade Through Black", "Honeycomb", _ "Blinds 3D Horz", "Blinds 3D Vert", "Checker Board 3D Horz", "Checker Board 3D Vert", "Comb Horizontal", "Comb Vertical", _ "Glitter Left", "Glitter Right", "Glitter Up", "Glitter Down", "Glitter Diamond Left", "Glitter Diamond Right", _ "Glitter Diamond Up", "Glitter Diamond Down", "Shred Strip In", "Shred Strip Out", "Shred Particle In", "Shred Particle Out", _ "Vortex Left", "Vortex Right", "Vortex Up", "Vortex Down", "Reveal Left", "Reveal Right", _ "Reveal Through Black Left", "Reveal Through Black Right", "Cover 3D Left", "Cover 3D Right", "Cover 3D Up", "Cover 3D Down", _ "Cover 3D Left Up", "Cover 3D Left Down", "Cover 3D Right Up", "Cover 3D Right Down", "Uncover 3D Left", "Uncover 3D Right", _ "Uncover 3D Up", "Uncover 3D Down", "Uncover 3D Left Up", "Uncover 3D Left Down", "Uncover 3D Right Up", "Uncover 3D Right Down", _ "Flash", "Fly Through", "Orbit", "Rotate"}) Me.cmbTransitionEffectBefore.Location = New System.Drawing.Point(78, 19) Me.cmbTransitionEffectBefore.MaxDropDownItems = 16 Me.cmbTransitionEffectBefore.Name = "cmbTransitionEffectBefore" Me.cmbTransitionEffectBefore.Size = New System.Drawing.Size(180, 21) Me.cmbTransitionEffectBefore.TabIndex = 0 ' ' label10 ' Me.label10.AutoSize = True Me.label10.Location = New System.Drawing.Point(6, 22) Me.label10.Name = "label10" Me.label10.Size = New System.Drawing.Size(38, 13) Me.label10.TabIndex = 9 Me.label10.Text = "Before" ' ' label16 ' Me.label16.AutoSize = True Me.label16.Location = New System.Drawing.Point(6, 60) Me.label16.Name = "label16" Me.label16.Size = New System.Drawing.Size(92, 13) Me.label16.TabIndex = 15 Me.label16.Text = "Background Color" ' ' tbBackgroundImage ' Me.tbBackgroundImage.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) Me.tbBackgroundImage.Location = New System.Drawing.Point(109, 82) Me.tbBackgroundImage.Name = "tbBackgroundImage" Me.tbBackgroundImage.[ReadOnly] = True Me.tbBackgroundImage.Size = New System.Drawing.Size(306, 20) Me.tbBackgroundImage.TabIndex = 3 ' ' label17 ' Me.label17.AutoSize = True Me.label17.Location = New System.Drawing.Point(6, 85) Me.label17.Name = "label17" Me.label17.Size = New System.Drawing.Size(97, 13) Me.label17.TabIndex = 9 Me.label17.Text = "Background Image" ' ' btnBackgroundImageBrowse ' Me.btnBackgroundImageBrowse.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) Me.btnBackgroundImageBrowse.Location = New System.Drawing.Point(421, 80) Me.btnBackgroundImageBrowse.Name = "btnBackgroundImageBrowse" Me.btnBackgroundImageBrowse.Size = New System.Drawing.Size(24, 23) Me.btnBackgroundImageBrowse.TabIndex = 4 Me.btnBackgroundImageBrowse.Text = "..." Me.btnBackgroundImageBrowse.UseVisualStyleBackColor = True AddHandler Me.btnBackgroundImageBrowse.Click, New System.EventHandler(AddressOf Me.btnBackgroundImageBrowse_Click) ' ' btnAudioTrackBrowse ' Me.btnAudioTrackBrowse.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) Me.btnAudioTrackBrowse.Location = New System.Drawing.Point(421, 158) Me.btnAudioTrackBrowse.Name = "btnAudioTrackBrowse" Me.btnAudioTrackBrowse.Size = New System.Drawing.Size(24, 23) Me.btnAudioTrackBrowse.TabIndex = 8 Me.btnAudioTrackBrowse.Text = "..." Me.btnAudioTrackBrowse.UseVisualStyleBackColor = True AddHandler Me.btnAudioTrackBrowse.Click, New System.EventHandler(AddressOf Me.btnAudioTrackBrowse_Click) ' ' tbAudioTrack ' Me.tbAudioTrack.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) Me.tbAudioTrack.Location = New System.Drawing.Point(109, 160) Me.tbAudioTrack.Name = "tbAudioTrack" Me.tbAudioTrack.[ReadOnly] = True Me.tbAudioTrack.Size = New System.Drawing.Size(306, 20) Me.tbAudioTrack.TabIndex = 7 ' ' label18 ' Me.label18.AutoSize = True Me.label18.Location = New System.Drawing.Point(6, 163) Me.label18.Name = "label18" Me.label18.Size = New System.Drawing.Size(65, 13) Me.label18.TabIndex = 17 Me.label18.Text = "Audio Track" ' ' groupBox2 ' Me.groupBox2.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) Me.groupBox2.Controls.Add(Me.nudVisualEffectDuration) Me.groupBox2.Controls.Add(Me.label20) Me.groupBox2.Controls.Add(Me.cmbVisualEffectTransition) Me.groupBox2.Controls.Add(Me.label21) Me.groupBox2.Controls.Add(Me.label19) Me.groupBox2.Controls.Add(Me.cmbVisualEffect) Me.groupBox2.Controls.Add(Me.label7) Me.groupBox2.Location = New System.Drawing.Point(6, 64) Me.groupBox2.Name = "groupBox2" Me.groupBox2.Size = New System.Drawing.Size(439, 102) Me.groupBox2.TabIndex = 2 Me.groupBox2.TabStop = False Me.groupBox2.Text = "Visual Effect" ' ' nudVisualEffectDuration ' Me.nudVisualEffectDuration.Increment = New Decimal(New Integer() {100, 0, 0, 0}) Me.nudVisualEffectDuration.Location = New System.Drawing.Point(78, 74) Me.nudVisualEffectDuration.Maximum = New Decimal(New Integer() {20000, 0, 0, 0}) Me.nudVisualEffectDuration.Name = "nudVisualEffectDuration" Me.nudVisualEffectDuration.Size = New System.Drawing.Size(55, 20) Me.nudVisualEffectDuration.TabIndex = 8 ' ' label20 ' Me.label20.AutoSize = True Me.label20.Location = New System.Drawing.Point(139, 76) Me.label20.Name = "label20" Me.label20.Size = New System.Drawing.Size(20, 13) Me.label20.TabIndex = 17 Me.label20.Text = "ms" ' ' cmbVisualEffectTransition ' Me.cmbVisualEffectTransition.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList Me.cmbVisualEffectTransition.FormattingEnabled = True Me.cmbVisualEffectTransition.Items.AddRange(New Object() {"None", "Ease In", "Ease Out"}) Me.cmbVisualEffectTransition.Location = New System.Drawing.Point(78, 46) Me.cmbVisualEffectTransition.Name = "cmbVisualEffectTransition" Me.cmbVisualEffectTransition.Size = New System.Drawing.Size(180, 21) Me.cmbVisualEffectTransition.TabIndex = 1 ' ' label21 ' Me.label21.AutoSize = True Me.label21.Location = New System.Drawing.Point(6, 76) Me.label21.Name = "label21" Me.label21.Size = New System.Drawing.Size(47, 13) Me.label21.TabIndex = 15 Me.label21.Text = "Duration" ' ' label19 ' Me.label19.AutoSize = True Me.label19.Location = New System.Drawing.Point(6, 49) Me.label19.Name = "label19" Me.label19.Size = New System.Drawing.Size(53, 13) Me.label19.TabIndex = 6 Me.label19.Text = "Transition" ' ' tabControl1 ' Me.tabControl1.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) Or System.Windows.Forms.AnchorStyles.Left) Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) Me.tabControl1.Controls.Add(Me.tabPage1) Me.tabControl1.Controls.Add(Me.tabPage2) Me.tabControl1.Location = New System.Drawing.Point(303, 17) Me.tabControl1.Name = "tabControl1" Me.tabControl1.SelectedIndex = 0 Me.tabControl1.Size = New System.Drawing.Size(459, 419) Me.tabControl1.TabIndex = 1 ' ' tabPage1 ' Me.tabPage1.Controls.Add(Me.nudSlideDuration) Me.tabPage1.Controls.Add(Me.groupBox2) Me.tabPage1.Controls.Add(Me.label1) Me.tabPage1.Controls.Add(Me.groupBox4) Me.tabPage1.Controls.Add(Me.label8) Me.tabPage1.Controls.Add(Me.label2) Me.tabPage1.Controls.Add(Me.cmbSlideRotation) Me.tabPage1.Location = New System.Drawing.Point(4, 22) Me.tabPage1.Name = "tabPage1" Me.tabPage1.Padding = New System.Windows.Forms.Padding(3) Me.tabPage1.Size = New System.Drawing.Size(451, 393) Me.tabPage1.TabIndex = 0 Me.tabPage1.Text = "Slide Options" Me.tabPage1.UseVisualStyleBackColor = True ' ' nudSlideDuration ' Me.nudSlideDuration.Increment = New Decimal(New Integer() {100, 0, 0, 0}) Me.nudSlideDuration.Location = New System.Drawing.Point(84, 12) Me.nudSlideDuration.Maximum = New Decimal(New Integer() {20000, 0, 0, 0}) Me.nudSlideDuration.Name = "nudSlideDuration" Me.nudSlideDuration.Size = New System.Drawing.Size(55, 20) Me.nudSlideDuration.TabIndex = 7 ' ' tabPage2 ' Me.tabPage2.Controls.Add(Me.groupBox3) Me.tabPage2.Controls.Add(Me.btnBackgroundColor) Me.tabPage2.Controls.Add(Me.cbKeepAspectRatio) Me.tabPage2.Controls.Add(Me.cbAutoFitImages) Me.tabPage2.Controls.Add(Me.label16) Me.tabPage2.Controls.Add(Me.label3) Me.tabPage2.Controls.Add(Me.tbMovieWidth) Me.tabPage2.Controls.Add(Me.label4) Me.tabPage2.Controls.Add(Me.label17) Me.tabPage2.Controls.Add(Me.btnAudioTrackBrowse) Me.tabPage2.Controls.Add(Me.tbMovieHeight) Me.tabPage2.Controls.Add(Me.tbAudioTrack) Me.tabPage2.Controls.Add(Me.tbBackgroundImage) Me.tabPage2.Controls.Add(Me.label18) Me.tabPage2.Controls.Add(Me.label5) Me.tabPage2.Controls.Add(Me.label6) Me.tabPage2.Controls.Add(Me.btnBackgroundImageBrowse) Me.tabPage2.Location = New System.Drawing.Point(4, 22) Me.tabPage2.Name = "tabPage2" Me.tabPage2.Padding = New System.Windows.Forms.Padding(3) Me.tabPage2.Size = New System.Drawing.Size(451, 393) Me.tabPage2.TabIndex = 1 Me.tabPage2.Text = "Movie Options" Me.tabPage2.UseVisualStyleBackColor = True ' ' groupBox3 ' Me.groupBox3.Controls.Add(Me.label22) Me.groupBox3.Controls.Add(Me.tabControl2) Me.groupBox3.Controls.Add(Me.tbFPS) Me.groupBox3.Location = New System.Drawing.Point(6, 190) Me.groupBox3.Name = "groupBox3" Me.groupBox3.Size = New System.Drawing.Size(439, 192) Me.groupBox3.TabIndex = 9 Me.groupBox3.TabStop = False Me.groupBox3.Text = "Audio and Video Settings" ' ' label22 ' Me.label22.AutoSize = True Me.label22.Location = New System.Drawing.Point(16, 167) Me.label22.Name = "label22" Me.label22.Size = New System.Drawing.Size(27, 13) Me.label22.TabIndex = 29 Me.label22.Text = "FPS" ' ' tabControl2 ' Me.tabControl2.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) Me.tabControl2.Controls.Add(Me.tabPageWmv) Me.tabControl2.Controls.Add(Me.tabPageAvi) Me.tabControl2.Location = New System.Drawing.Point(6, 19) Me.tabControl2.Name = "tabControl2" Me.tabControl2.SelectedIndex = 0 Me.tabControl2.Size = New System.Drawing.Size(427, 139) Me.tabControl2.TabIndex = 25 ' ' tabPageWmv ' Me.tabPageWmv.Controls.Add(Me.label28) Me.tabPageWmv.Controls.Add(Me.label9) Me.tabPageWmv.Controls.Add(Me.tbBitrate) Me.tabPageWmv.Controls.Add(Me.cmbWmvAudioFormats) Me.tabPageWmv.Controls.Add(Me.label23) Me.tabPageWmv.Controls.Add(Me.cmbWmvAudioCodecs) Me.tabPageWmv.Controls.Add(Me.label24) Me.tabPageWmv.Controls.Add(Me.cmbWmvVideoCodecs) Me.tabPageWmv.Controls.Add(Me.label25) Me.tabPageWmv.Location = New System.Drawing.Point(4, 22) Me.tabPageWmv.Name = "tabPageWmv" Me.tabPageWmv.Padding = New System.Windows.Forms.Padding(3) Me.tabPageWmv.Size = New System.Drawing.Size(419, 113) Me.tabPageWmv.TabIndex = 1 Me.tabPageWmv.Text = "WMV Format" Me.tabPageWmv.UseVisualStyleBackColor = True ' ' label28 ' Me.label28.AutoSize = True Me.label28.Location = New System.Drawing.Point(96, 90) Me.label28.Name = "label28" Me.label28.Size = New System.Drawing.Size(30, 13) Me.label28.TabIndex = 18 Me.label28.Text = "kbps" ' ' label9 ' Me.label9.AutoSize = True Me.label9.Location = New System.Drawing.Point(6, 90) Me.label9.Name = "label9" Me.label9.Size = New System.Drawing.Size(37, 13) Me.label9.TabIndex = 27 Me.label9.Text = "Bitrate" ' ' tbBitrate ' Me.tbBitrate.Location = New System.Drawing.Point(50, 87) Me.tbBitrate.Name = "tbBitrate" Me.tbBitrate.Size = New System.Drawing.Size(40, 20) Me.tbBitrate.TabIndex = 3 Me.tbBitrate.Text = "1000" ' ' cmbWmvAudioFormats ' Me.cmbWmvAudioFormats.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) Me.cmbWmvAudioFormats.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList Me.cmbWmvAudioFormats.FormattingEnabled = True Me.cmbWmvAudioFormats.Location = New System.Drawing.Point(50, 33) Me.cmbWmvAudioFormats.Name = "cmbWmvAudioFormats" Me.cmbWmvAudioFormats.Size = New System.Drawing.Size(363, 21) Me.cmbWmvAudioFormats.TabIndex = 1 ' ' label23 ' Me.label23.AutoSize = True Me.label23.Location = New System.Drawing.Point(6, 36) Me.label23.Name = "label23" Me.label23.Size = New System.Drawing.Size(39, 13) Me.label23.TabIndex = 14 Me.label23.Text = "Format" ' ' cmbWmvAudioCodecs ' Me.cmbWmvAudioCodecs.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) Me.cmbWmvAudioCodecs.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList Me.cmbWmvAudioCodecs.FormattingEnabled = True Me.cmbWmvAudioCodecs.Location = New System.Drawing.Point(50, 6) Me.cmbWmvAudioCodecs.Name = "cmbWmvAudioCodecs" Me.cmbWmvAudioCodecs.Size = New System.Drawing.Size(363, 21) Me.cmbWmvAudioCodecs.TabIndex = 0 AddHandler Me.cmbWmvAudioCodecs.SelectedIndexChanged, New System.EventHandler(AddressOf Me.cmbWmvAudioCodecs_SelectedIndexChanged) ' ' label24 ' Me.label24.AutoSize = True Me.label24.Location = New System.Drawing.Point(6, 63) Me.label24.Name = "label24" Me.label24.Size = New System.Drawing.Size(34, 13) Me.label24.TabIndex = 12 Me.label24.Text = "Video" ' ' cmbWmvVideoCodecs ' Me.cmbWmvVideoCodecs.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) Me.cmbWmvVideoCodecs.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList Me.cmbWmvVideoCodecs.FormattingEnabled = True Me.cmbWmvVideoCodecs.Location = New System.Drawing.Point(50, 60) Me.cmbWmvVideoCodecs.Name = "cmbWmvVideoCodecs" Me.cmbWmvVideoCodecs.Size = New System.Drawing.Size(363, 21) Me.cmbWmvVideoCodecs.TabIndex = 2 ' ' label25 ' Me.label25.AutoSize = True Me.label25.Location = New System.Drawing.Point(6, 9) Me.label25.Name = "label25" Me.label25.Size = New System.Drawing.Size(34, 13) Me.label25.TabIndex = 11 Me.label25.Text = "Audio" ' ' tabPageAvi ' Me.tabPageAvi.Controls.Add(Me.cmbAviAudioCodecs) Me.tabPageAvi.Controls.Add(Me.label26) Me.tabPageAvi.Controls.Add(Me.cmbAviVideoCodecs) Me.tabPageAvi.Controls.Add(Me.label27) Me.tabPageAvi.Controls.Add(Me.btnVideoCodecProps) Me.tabPageAvi.Location = New System.Drawing.Point(4, 22) Me.tabPageAvi.Name = "tabPageAvi" Me.tabPageAvi.Padding = New System.Windows.Forms.Padding(3) Me.tabPageAvi.Size = New System.Drawing.Size(419, 113) Me.tabPageAvi.TabIndex = 2 Me.tabPageAvi.Text = "AVI format" Me.tabPageAvi.UseVisualStyleBackColor = True ' ' cmbAviAudioCodecs ' Me.cmbAviAudioCodecs.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) Me.cmbAviAudioCodecs.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList Me.cmbAviAudioCodecs.FormattingEnabled = True Me.cmbAviAudioCodecs.Location = New System.Drawing.Point(50, 6) Me.cmbAviAudioCodecs.Name = "cmbAviAudioCodecs" Me.cmbAviAudioCodecs.Size = New System.Drawing.Size(332, 21) Me.cmbAviAudioCodecs.TabIndex = 0 ' ' label26 ' Me.label26.AutoSize = True Me.label26.Location = New System.Drawing.Point(6, 36) Me.label26.Name = "label26" Me.label26.Size = New System.Drawing.Size(34, 13) Me.label26.TabIndex = 7 Me.label26.Text = "Video" ' ' cmbAviVideoCodecs ' Me.cmbAviVideoCodecs.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) Me.cmbAviVideoCodecs.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList Me.cmbAviVideoCodecs.FormattingEnabled = True Me.cmbAviVideoCodecs.Location = New System.Drawing.Point(50, 33) Me.cmbAviVideoCodecs.Name = "cmbAviVideoCodecs" Me.cmbAviVideoCodecs.Size = New System.Drawing.Size(332, 21) Me.cmbAviVideoCodecs.TabIndex = 1 ' ' label27 ' Me.label27.AutoSize = True Me.label27.Location = New System.Drawing.Point(6, 9) Me.label27.Name = "label27" Me.label27.Size = New System.Drawing.Size(34, 13) Me.label27.TabIndex = 5 Me.label27.Text = "Audio" ' ' btnVideoCodecProps ' Me.btnVideoCodecProps.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) Me.btnVideoCodecProps.Image = My.Resources.wrench Me.btnVideoCodecProps.Location = New System.Drawing.Point(388, 29) Me.btnVideoCodecProps.Name = "btnVideoCodecProps" Me.btnVideoCodecProps.Size = New System.Drawing.Size(26, 26) Me.btnVideoCodecProps.TabIndex = 2 Me.btnVideoCodecProps.UseVisualStyleBackColor = True AddHandler Me.btnVideoCodecProps.Click, New System.EventHandler(AddressOf Me.btnVideoCodecProps_Click) ' ' tbFPS ' Me.tbFPS.Location = New System.Drawing.Point(60, 164) Me.tbFPS.Name = "tbFPS" Me.tbFPS.Size = New System.Drawing.Size(40, 20) Me.tbFPS.TabIndex = 0 ' ' btnBackgroundColor ' Me.btnBackgroundColor.BackColor = System.Drawing.Color.White Me.btnBackgroundColor.Location = New System.Drawing.Point(109, 55) Me.btnBackgroundColor.Name = "btnBackgroundColor" Me.btnBackgroundColor.Size = New System.Drawing.Size(23, 23) Me.btnBackgroundColor.TabIndex = 2 Me.btnBackgroundColor.UseVisualStyleBackColor = False AddHandler Me.btnBackgroundColor.Click, New System.EventHandler(AddressOf Me.btnBackgroundColor_Click) ' ' cbKeepAspectRatio ' Me.cbKeepAspectRatio.AutoSize = True Me.cbKeepAspectRatio.Location = New System.Drawing.Point(27, 33) Me.cbKeepAspectRatio.Name = "cbKeepAspectRatio" Me.cbKeepAspectRatio.Size = New System.Drawing.Size(115, 17) Me.cbKeepAspectRatio.TabIndex = 1 Me.cbKeepAspectRatio.Text = "Keep Aspect Ratio" Me.cbKeepAspectRatio.UseVisualStyleBackColor = True ' ' cbAutoFitImages ' Me.cbAutoFitImages.AutoSize = True Me.cbAutoFitImages.Location = New System.Drawing.Point(9, 10) Me.cbAutoFitImages.Name = "cbAutoFitImages" Me.cbAutoFitImages.Size = New System.Drawing.Size(99, 17) Me.cbAutoFitImages.TabIndex = 0 Me.cbAutoFitImages.Text = "Auto-Fit Images" Me.cbAutoFitImages.UseVisualStyleBackColor = True ' ' cbPlayGeneratedFile ' Me.cbPlayGeneratedFile.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) Me.cbPlayGeneratedFile.AutoSize = True Me.cbPlayGeneratedFile.Checked = True Me.cbPlayGeneratedFile.CheckState = System.Windows.Forms.CheckState.Checked Me.cbPlayGeneratedFile.Location = New System.Drawing.Point(434, 454) Me.cbPlayGeneratedFile.Name = "cbPlayGeneratedFile" Me.cbPlayGeneratedFile.Size = New System.Drawing.Size(137, 17) Me.cbPlayGeneratedFile.TabIndex = 4 Me.cbPlayGeneratedFile.Text = "Auto-play generated file" Me.cbPlayGeneratedFile.UseVisualStyleBackColor = True ' ' statusStrip1 ' Me.statusStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.toolStripStatusLabel1, Me.toolStripProgressBar1}) Me.statusStrip1.LayoutStyle = System.Windows.Forms.ToolStripLayoutStyle.HorizontalStackWithOverflow Me.statusStrip1.Location = New System.Drawing.Point(0, 484) Me.statusStrip1.Name = "statusStrip1" Me.statusStrip1.Size = New System.Drawing.Size(774, 22) Me.statusStrip1.SizingGrip = False Me.statusStrip1.TabIndex = 5 Me.statusStrip1.Text = "statusStrip1" ' ' toolStripStatusLabel1 ' Me.toolStripStatusLabel1.Name = "toolStripStatusLabel1" Me.toolStripStatusLabel1.Size = New System.Drawing.Size(39, 17) Me.toolStripStatusLabel1.Text = "Ready" ' ' toolStripProgressBar1 ' Me.toolStripProgressBar1.Alignment = System.Windows.Forms.ToolStripItemAlignment.Right Me.toolStripProgressBar1.AutoSize = False Me.toolStripProgressBar1.Name = "toolStripProgressBar1" Me.toolStripProgressBar1.Size = New System.Drawing.Size(152, 16) ' ' btnCreateMovie ' Me.btnCreateMovie.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) Me.btnCreateMovie.Font = New System.Drawing.Font("Tahoma", 8.25F, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CByte(204)) Me.btnCreateMovie.Image = My.Resources.film Me.btnCreateMovie.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft Me.btnCreateMovie.Location = New System.Drawing.Point(606, 442) Me.btnCreateMovie.Name = "btnCreateMovie" Me.btnCreateMovie.Padding = New System.Windows.Forms.Padding(4, 0, 0, 0) Me.btnCreateMovie.Size = New System.Drawing.Size(155, 39) Me.btnCreateMovie.TabIndex = 2 Me.btnCreateMovie.Text = "Create Movie" Me.btnCreateMovie.UseVisualStyleBackColor = True AddHandler Me.btnCreateMovie.Click, New System.EventHandler(AddressOf Me.btnCreateMovie_Click) ' ' cbTransitionEffectBeforeRandom ' Me.cbTransitionEffectBeforeRandom.AutoSize = True Me.cbTransitionEffectBeforeRandom.Location = New System.Drawing.Point(264, 21) Me.cbTransitionEffectBeforeRandom.Name = "cbTransitionEffectBeforeRandom" Me.cbTransitionEffectBeforeRandom.Size = New System.Drawing.Size(66, 17) Me.cbTransitionEffectBeforeRandom.TabIndex = 22 Me.cbTransitionEffectBeforeRandom.Text = "Random" Me.cbTransitionEffectBeforeRandom.UseVisualStyleBackColor = True ' ' cbTransitionEffectAfterRandom ' Me.cbTransitionEffectAfterRandom.AutoSize = True Me.cbTransitionEffectAfterRandom.Location = New System.Drawing.Point(264, 75) Me.cbTransitionEffectAfterRandom.Name = "cbTransitionEffectAfterRandom" Me.cbTransitionEffectAfterRandom.Size = New System.Drawing.Size(66, 17) Me.cbTransitionEffectAfterRandom.TabIndex = 23 Me.cbTransitionEffectAfterRandom.Text = "Random" Me.cbTransitionEffectAfterRandom.UseVisualStyleBackColor = True ' ' linkVisitSDKHome ' Me.linkVisitSDKHome.AutoSize = True Me.linkVisitSDKHome.Font = New System.Drawing.Font("Tahoma", 8.25F, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CByte(204)) Me.linkVisitSDKHome.Location = New System.Drawing.Point(9, 455) Me.linkVisitSDKHome.Name = "linkVisitSDKHome" Me.linkVisitSDKHome.Size = New System.Drawing.Size(363, 13) Me.linkVisitSDKHome.TabIndex = 6 Me.linkVisitSDKHome.TabStop = True Me.linkVisitSDKHome.Text = "Powered by Bytescout Images To Video SDK - click to find more" AddHandler Me.linkVisitSDKHome.LinkClicked, New System.Windows.Forms.LinkLabelLinkClickedEventHandler(AddressOf Me.linkVisitSDKHome_LinkClicked) ' ' MainForm ' Me.AutoScaleDimensions = New System.Drawing.SizeF(6F, 13F) Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font Me.ClientSize = New System.Drawing.Size(774, 506) Me.Controls.Add(Me.linkVisitSDKHome) Me.Controls.Add(Me.statusStrip1) Me.Controls.Add(Me.cbPlayGeneratedFile) Me.Controls.Add(Me.tabControl1) Me.Controls.Add(Me.btnCreateMovie) Me.Controls.Add(Me.groupBox1) Me.Icon = DirectCast(resources.GetObject("$this.Icon"), System.Drawing.Icon) Me.Name = "MainForm" Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen Me.Text = "Bytescout ImageToVideo Demo" Me.groupBox1.ResumeLayout(False) Me.groupBox4.ResumeLayout(False) Me.groupBox4.PerformLayout() DirectCast(Me.nudTransitionEffectAfterDuration, System.ComponentModel.ISupportInitialize).EndInit() DirectCast(Me.nudTransitionEffectBeforeDuration, System.ComponentModel.ISupportInitialize).EndInit() Me.groupBox2.ResumeLayout(False) Me.groupBox2.PerformLayout() DirectCast(Me.nudVisualEffectDuration, System.ComponentModel.ISupportInitialize).EndInit() Me.tabControl1.ResumeLayout(False) Me.tabPage1.ResumeLayout(False) Me.tabPage1.PerformLayout() DirectCast(Me.nudSlideDuration, System.ComponentModel.ISupportInitialize).EndInit() Me.tabPage2.ResumeLayout(False) Me.tabPage2.PerformLayout() Me.groupBox3.ResumeLayout(False) Me.groupBox3.PerformLayout() Me.tabControl2.ResumeLayout(False) Me.tabPageWmv.ResumeLayout(False) Me.tabPageWmv.PerformLayout() Me.tabPageAvi.ResumeLayout(False) Me.tabPageAvi.PerformLayout() Me.statusStrip1.ResumeLayout(False) Me.statusStrip1.PerformLayout() Me.ResumeLayout(False) Me.PerformLayout() End Sub #End Region Private groupBox1 As System.Windows.Forms.GroupBox Private WithEvents btnRemoveAll As System.Windows.Forms.Button Private WithEvents btnRemove As System.Windows.Forms.Button Private WithEvents btnAddFolder As System.Windows.Forms.Button Private WithEvents btnAddImage As System.Windows.Forms.Button Private label2 As System.Windows.Forms.Label Private label1 As System.Windows.Forms.Label Private WithEvents tbMovieHeight As System.Windows.Forms.TextBox Private label4 As System.Windows.Forms.Label Private WithEvents tbMovieWidth As System.Windows.Forms.TextBox Private label3 As System.Windows.Forms.Label Private label6 As System.Windows.Forms.Label Private label5 As System.Windows.Forms.Label Private WithEvents btnCreateMovie As System.Windows.Forms.Button Private label7 As System.Windows.Forms.Label Private WithEvents cmbVisualEffect As System.Windows.Forms.ComboBox Private label8 As System.Windows.Forms.Label Private WithEvents cmbSlideRotation As System.Windows.Forms.ComboBox Private groupBox4 As System.Windows.Forms.GroupBox Private WithEvents cmbTransitionEffectAfter As System.Windows.Forms.ComboBox Private label11 As System.Windows.Forms.Label Private WithEvents cmbTransitionEffectBefore As System.Windows.Forms.ComboBox Private label10 As System.Windows.Forms.Label Private label15 As System.Windows.Forms.Label Private label13 As System.Windows.Forms.Label Private WithEvents tbBackgroundImage As System.Windows.Forms.TextBox Private label17 As System.Windows.Forms.Label Private label16 As System.Windows.Forms.Label Private WithEvents btnBackgroundImageBrowse As System.Windows.Forms.Button Private WithEvents btnAudioTrackBrowse As System.Windows.Forms.Button Private WithEvents tbAudioTrack As System.Windows.Forms.TextBox Private label18 As System.Windows.Forms.Label Private groupBox2 As System.Windows.Forms.GroupBox Private label20 As System.Windows.Forms.Label Private WithEvents cmbVisualEffectTransition As System.Windows.Forms.ComboBox Private label21 As System.Windows.Forms.Label Private label19 As System.Windows.Forms.Label Private WithEvents btnMoveDown As System.Windows.Forms.Button Private WithEvents btnMoveUp As System.Windows.Forms.Button Private WithEvents tabControl1 As System.Windows.Forms.TabControl Private tabPage1 As System.Windows.Forms.TabPage Private tabPage2 As System.Windows.Forms.TabPage Private WithEvents cbKeepAspectRatio As System.Windows.Forms.CheckBox Private WithEvents cbAutoFitImages As System.Windows.Forms.CheckBox Private WithEvents btnBackgroundColor As System.Windows.Forms.Button Private WithEvents tabControl2 As System.Windows.Forms.TabControl Private tabPageWmv As System.Windows.Forms.TabPage Private WithEvents cmbWmvAudioFormats As System.Windows.Forms.ComboBox Private label23 As System.Windows.Forms.Label Private WithEvents cmbWmvAudioCodecs As System.Windows.Forms.ComboBox Private label24 As System.Windows.Forms.Label Private WithEvents cmbWmvVideoCodecs As System.Windows.Forms.ComboBox Private label25 As System.Windows.Forms.Label Private tabPageAvi As System.Windows.Forms.TabPage Private WithEvents cmbAviAudioCodecs As System.Windows.Forms.ComboBox Private WithEvents btnVideoCodecProps As System.Windows.Forms.Button Private label26 As System.Windows.Forms.Label Private WithEvents cmbAviVideoCodecs As System.Windows.Forms.ComboBox Private label27 As System.Windows.Forms.Label Private label9 As System.Windows.Forms.Label Private WithEvents tbBitrate As System.Windows.Forms.TextBox Private groupBox3 As System.Windows.Forms.GroupBox Private label22 As System.Windows.Forms.Label Private WithEvents tbFPS As System.Windows.Forms.TextBox Private WithEvents lvInputFiles As System.Windows.Forms.ListView Private columnHeader1 As System.Windows.Forms.ColumnHeader Private columnHeader2 As System.Windows.Forms.ColumnHeader Private label28 As System.Windows.Forms.Label Private WithEvents cbPlayGeneratedFile As System.Windows.Forms.CheckBox Private statusStrip1 As System.Windows.Forms.StatusStrip Private toolStripStatusLabel1 As System.Windows.Forms.ToolStripStatusLabel Private toolStripProgressBar1 As System.Windows.Forms.ToolStripProgressBar Private WithEvents nudSlideDuration As System.Windows.Forms.NumericUpDown Private WithEvents nudVisualEffectDuration As System.Windows.Forms.NumericUpDown Private WithEvents nudTransitionEffectBeforeDuration As System.Windows.Forms.NumericUpDown Private label12 As System.Windows.Forms.Label Private WithEvents nudTransitionEffectAfterDuration As System.Windows.Forms.NumericUpDown Private label14 As System.Windows.Forms.Label Private WithEvents cbTransitionEffectBeforeRandom As System.Windows.Forms.CheckBox Private WithEvents cbTransitionEffectAfterRandom As System.Windows.Forms.CheckBox Private linkVisitSDKHome As System.Windows.Forms.LinkLabel 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)

MainForm.vb
      
Imports System.Diagnostics Imports System.Drawing Imports System.Globalization Imports System.IO Imports System.Threading Imports System.Windows.Forms Imports BytescoutImageToVideo Imports ImageToVideoDemo.Properties Public Partial Class MainForm Inherits Form Public Const WM_APP As Integer = &H8000 Public Const WM_CONVERSION_PROGRESS As Integer = WM_APP + 1 Private _imageToVideo As New ImageToVideo() Private _outputFile As String = "" Private _randomGenerator As New Random() Public Sub New() InitializeComponent() _imageToVideo.RegistrationName = "demo" _imageToVideo.RegistrationKey = "demo" AddHandler Application.Idle, AddressOf Application_Idle End Sub Protected Overrides Sub OnLoad(e As EventArgs) cbAutoFitImages.Checked = _imageToVideo.AutoFitImages cbKeepAspectRatio.Checked = _imageToVideo.KeepAspectRatio btnBackgroundColor.BackColor = ColorTranslator.FromOle(CInt(_imageToVideo.BackgroundColor)) tbMovieWidth.Text = _imageToVideo.OutputWidth.ToString(CultureInfo.InvariantCulture) tbMovieHeight.Text = _imageToVideo.OutputHeight.ToString(CultureInfo.InvariantCulture) ' Get list of available AVI audio codecs For i As Integer = 0 To _imageToVideo.AudioCodecsCount - 1 cmbAviAudioCodecs.Items.Add(_imageToVideo.GetAudioCodecName(i)) Next ' Select current AVI audio codec cmbAviAudioCodecs.SelectedIndex = _imageToVideo.CurrentAudioCodec ' Get list of available AVI video codecs For i As Integer = 0 To _imageToVideo.VideoCodecsCount - 1 cmbAviVideoCodecs.Items.Add(_imageToVideo.GetVideoCodecName(i)) Next ' Select current AVI video codec cmbAviVideoCodecs.SelectedIndex = _imageToVideo.CurrentVideoCodec ' Get list of available WMV audio codecs For i As Integer = 0 To _imageToVideo.WMVAudioCodecsCount - 1 cmbWmvAudioCodecs.Items.Add(_imageToVideo.GetWMVAudioCodecName(i)) Next ' Select current WMV audio codec cmbWmvAudioCodecs.SelectedIndex = _imageToVideo.CurrentWMVAudioCodec ' Get list of available WMV video codecs For i As Integer = 0 To _imageToVideo.WMVVideoCodecsCount - 1 cmbWmvVideoCodecs.Items.Add(_imageToVideo.GetWMVVideoCodecName(i)) Next ' Select current WMV video codec cmbWmvVideoCodecs.SelectedIndex = _imageToVideo.CurrentWMVVideoCodec tbFPS.Text = _imageToVideo.FPS.ToString(CultureInfo.InvariantCulture) MyBase.OnLoad(e) End Sub Private Sub Application_Idle(sender As Object, e As EventArgs) Dim imageIsSelected As Boolean = lvInputFiles.SelectedIndices.Count > 0 Dim imagesAdded As Boolean = lvInputFiles.Items.Count > 0 btnMoveUp.Enabled = imageIsSelected btnMoveDown.Enabled = imageIsSelected btnRemove.Enabled = imageIsSelected btnRemoveAll.Enabled = imagesAdded nudSlideDuration.Enabled = imageIsSelected cmbSlideRotation.Enabled = imageIsSelected cmbVisualEffect.Enabled = imageIsSelected cmbVisualEffectTransition.Enabled = imageIsSelected nudVisualEffectDuration.Enabled = imageIsSelected cmbTransitionEffectBefore.Enabled = imageIsSelected AndAlso Not cbTransitionEffectBeforeRandom.Checked nudTransitionEffectBeforeDuration.Enabled = imageIsSelected cbTransitionEffectBeforeRandom.Enabled = imageIsSelected cmbTransitionEffectAfter.Enabled = imageIsSelected AndAlso Not cbTransitionEffectAfterRandom.Checked nudTransitionEffectAfterDuration.Enabled = imageIsSelected cbTransitionEffectAfterRandom.Enabled = imageIsSelected btnCreateMovie.Enabled = imagesAdded End Sub Private Sub btnAddImage_Click(sender As Object, e As EventArgs) Dim firstAddedItem As ListViewItem = Nothing Dim dlg As New OpenFileDialog() dlg.CheckFileExists = False dlg.CheckPathExists = False dlg.Filter = "Image Files(*.JPG;*.PNG;*.BMP)|*.JPG;*.JPEG;*.PNG;*.BMP;|JPEG Files(*.JPG)|*.JPG;*.JPEG|PNG Files(*.PNG)|*.PNG|BMP Files(*.BMP)|*.BMP|All files (*.*)|*.*" dlg.Multiselect = True dlg.SupportMultiDottedExtensions = True dlg.Title = "Select Files" If String.IsNullOrEmpty(Settings.Default.LastUsedFolder) Then Settings.Default.LastUsedFolder = Environment.GetFolderPath(Environment.SpecialFolder.MyPictures) End If dlg.InitialDirectory = Settings.Default.LastUsedFolder If dlg.ShowDialog() = DialogResult.OK Then Settings.Default.LastUsedFolder = Path.GetDirectoryName(dlg.FileNames(0)) Cursor = Cursors.WaitCursor lvInputFiles.BeginUpdate() Try For Each file As String In dlg.FileNames Dim slideOptions As New SlideOptions() slideOptions.ImageFile = file Dim item As New ListViewItem(Convert.ToString(lvInputFiles.Items.Count + 1)) item.SubItems.Add(Path.GetFileName(file)) item.Tag = slideOptions lvInputFiles.Items.Add(item) If firstAddedItem Is Nothing Then firstAddedItem = item End If Next If firstAddedItem IsNot Nothing Then lvInputFiles.SelectedItems.Clear() firstAddedItem.Selected = True firstAddedItem.EnsureVisible() End If Finally lvInputFiles.EndUpdate() Cursor = Cursors.Default End Try lvInputFiles.Select() End If End Sub Private Sub btnAddFolder_Click(sender As Object, e As EventArgs) Dim dlg As New FolderBrowserDialog() dlg.Description = "Select Folder" dlg.ShowNewFolderButton = False If String.IsNullOrEmpty(Settings.Default.LastUsedFolder) Then Settings.Default.LastUsedFolder = Environment.GetFolderPath(Environment.SpecialFolder.MyPictures) End If dlg.SelectedPath = Settings.Default.LastUsedFolder If dlg.ShowDialog() = DialogResult.OK Then Settings.Default.LastUsedFolder = dlg.SelectedPath Dim dir As New DirectoryInfo(dlg.SelectedPath) Dim firstAddedItem As ListViewItem = Nothing Cursor = Cursors.WaitCursor Application.DoEvents() lvInputFiles.BeginUpdate() Try Dim files As FileInfo() = dir.GetFiles() For Each file As FileInfo In files Dim ext As String = file.Extension.ToLower() If ext = ".jpg" OrElse ext = ".jpeg" OrElse ext = ".png" OrElse ext = ".bmp" Then Dim slideOptions As New SlideOptions() slideOptions.ImageFile = file.FullName Dim item As New ListViewItem(Convert.ToString(lvInputFiles.Items.Count + 1)) item.SubItems.Add(Path.GetFileName(file.FullName)) item.Tag = slideOptions lvInputFiles.Items.Add(item) If firstAddedItem Is Nothing Then firstAddedItem = item End If End If Next If firstAddedItem IsNot Nothing Then lvInputFiles.SelectedItems.Clear() firstAddedItem.Selected = True firstAddedItem.EnsureVisible() End If Finally lvInputFiles.EndUpdate() Cursor = Cursors.Default End Try lvInputFiles.Select() End If End Sub Private Sub btnMoveUp_Click(sender As Object, e As EventArgs) Dim selectedItem As ListViewItem = lvInputFiles.SelectedItems(0) Dim x As Integer = selectedItem.Index If x > 0 Then lvInputFiles.BeginUpdate() Try lvInputFiles.Items.Remove(selectedItem) lvInputFiles.Items.Insert(x - 1, selectedItem) selectedItem.EnsureVisible() For Each item As ListViewItem In lvInputFiles.Items item.SubItems(0).Text = Convert.ToString(item.Index + 1) Next Finally lvInputFiles.EndUpdate() End Try End If lvInputFiles.Select() End Sub Private Sub btnMoveDown_Click(sender As Object, e As EventArgs) Dim selectedItem As ListViewItem = lvInputFiles.SelectedItems(0) Dim x As Integer = selectedItem.Index If x < lvInputFiles.Items.Count - 1 Then lvInputFiles.BeginUpdate() Try lvInputFiles.Items.Remove(selectedItem) lvInputFiles.Items.Insert(x + 1, selectedItem) selectedItem.EnsureVisible() For Each item As ListViewItem In lvInputFiles.Items item.SubItems(0).Text = Convert.ToString(item.Index + 1) Next Finally lvInputFiles.EndUpdate() End Try End If lvInputFiles.Select() End Sub Private Sub btnRemove_Click(sender As Object, e As EventArgs) Dim selectedItem As ListViewItem = lvInputFiles.SelectedItems(0) Dim x As Integer = selectedItem.Index lvInputFiles.BeginUpdate() Try lvInputFiles.Items.Remove(selectedItem) For Each item As ListViewItem In lvInputFiles.Items item.SubItems(0).Text = Convert.ToString(item.Index + 1) Next Finally lvInputFiles.EndUpdate() End Try If x > 0 Then lvInputFiles.Items(x - 1).Selected = True ElseIf x < lvInputFiles.Items.Count Then lvInputFiles.Items(x).Selected = True End If lvInputFiles.Select() End Sub Private Sub btnRemoveAll_Click(sender As Object, e As EventArgs) lvInputFiles.BeginUpdate() Try lvInputFiles.Items.Clear() _imageToVideo.Slides.Clear() Finally lvInputFiles.EndUpdate() End Try End Sub Private Sub lvInputFiles_SelectedIndexChanged(sender As Object, e As EventArgs) RemoveHandler nudSlideDuration.ValueChanged, AddressOf nudSlideDuration_ValueChanged RemoveHandler cmbSlideRotation.SelectedIndexChanged, AddressOf cmbSlideRotation_SelectedIndexChanged RemoveHandler cmbVisualEffect.SelectedIndexChanged, AddressOf cmbVisualEffect_SelectedIndexChanged RemoveHandler cmbVisualEffectTransition.SelectedIndexChanged, AddressOf cmbVisualEffectTransition_SelectedIndexChanged RemoveHandler nudVisualEffectDuration.ValueChanged, AddressOf nudVisualEffectDuration_ValueChanged RemoveHandler cmbTransitionEffectBefore.SelectedIndexChanged, AddressOf cmbTransitionEffectBefore_SelectedIndexChanged RemoveHandler nudTransitionEffectBeforeDuration.ValueChanged, AddressOf nudTransitionEffectBeforeDuration_ValueChanged RemoveHandler cbTransitionEffectBeforeRandom.CheckedChanged, AddressOf cbTransitionEffectBeforeRandom_CheckedChanged RemoveHandler cmbTransitionEffectAfter.SelectedIndexChanged, AddressOf cmbTransitionEffectAfter_SelectedIndexChanged RemoveHandler nudTransitionEffectAfterDuration.ValueChanged, AddressOf nudTransitionEffectAfterDuration_ValueChanged RemoveHandler cbTransitionEffectAfterRandom.CheckedChanged, AddressOf cbTransitionEffectAfterRandom_CheckedChanged Dim selectedItems As ListView.SelectedListViewItemCollection = lvInputFiles.SelectedItems If selectedItems.Count > 0 Then Dim slideOptions As SlideOptions = DirectCast(selectedItems(0).Tag, SlideOptions) nudSlideDuration.Value = slideOptions.SlideDuration cmbSlideRotation.SelectedIndex = CInt(slideOptions.SlideRotation) cmbVisualEffect.SelectedIndex = CInt(slideOptions.VisualEffect) cmbVisualEffectTransition.SelectedIndex = CInt(slideOptions.VisualEffectTransition) nudVisualEffectDuration.Value = slideOptions.VisualEffectDuration cmbTransitionEffectBefore.SelectedIndex = CInt(slideOptions.TransitionEffectBefore) + 1 nudTransitionEffectBeforeDuration.Value = slideOptions.TransitionEffectBeforeDuration cbTransitionEffectBeforeRandom.Checked = slideOptions.RandomTransitionEffectBefore cmbTransitionEffectAfter.SelectedIndex = CInt(slideOptions.TransitionEffectAfter) + 1 nudTransitionEffectAfterDuration.Value = slideOptions.TransitionEffectAfterDuration cbTransitionEffectAfterRandom.Checked = slideOptions.RandomTransitionEffectAfter AddHandler nudSlideDuration.ValueChanged, AddressOf nudSlideDuration_ValueChanged AddHandler cmbSlideRotation.SelectedIndexChanged, AddressOf cmbSlideRotation_SelectedIndexChanged AddHandler cmbVisualEffect.SelectedIndexChanged, AddressOf cmbVisualEffect_SelectedIndexChanged AddHandler cmbVisualEffectTransition.SelectedIndexChanged, AddressOf cmbVisualEffectTransition_SelectedIndexChanged AddHandler nudVisualEffectDuration.ValueChanged, AddressOf nudVisualEffectDuration_ValueChanged AddHandler cmbTransitionEffectBefore.SelectedIndexChanged, AddressOf cmbTransitionEffectBefore_SelectedIndexChanged AddHandler nudTransitionEffectBeforeDuration.ValueChanged, AddressOf nudTransitionEffectBeforeDuration_ValueChanged AddHandler cbTransitionEffectBeforeRandom.CheckedChanged, AddressOf cbTransitionEffectBeforeRandom_CheckedChanged AddHandler cmbTransitionEffectAfter.SelectedIndexChanged, AddressOf cmbTransitionEffectAfter_SelectedIndexChanged AddHandler nudTransitionEffectAfterDuration.ValueChanged, AddressOf nudTransitionEffectAfterDuration_ValueChanged AddHandler cbTransitionEffectAfterRandom.CheckedChanged, AddressOf cbTransitionEffectAfterRandom_CheckedChanged End If End Sub Private Sub nudSlideDuration_ValueChanged(sender As Object, e As EventArgs) Dim slideOptions As SlideOptions = DirectCast(lvInputFiles.SelectedItems(0).Tag, SlideOptions) slideOptions.SlideDuration = CInt(Math.Truncate(nudSlideDuration.Value)) End Sub Private Sub cmbSlideRotation_SelectedIndexChanged(sender As Object, e As EventArgs) Dim slideOptions As SlideOptions = DirectCast(lvInputFiles.SelectedItems(0).Tag, SlideOptions) slideOptions.SlideRotation = DirectCast(cmbSlideRotation.SelectedIndex, RotationAngle) End Sub Private Sub cmbVisualEffect_SelectedIndexChanged(sender As Object, e As EventArgs) Dim slideOptions As SlideOptions = DirectCast(lvInputFiles.SelectedItems(0).Tag, SlideOptions) slideOptions.VisualEffect = DirectCast(cmbVisualEffect.SelectedIndex, VisualEffectType) End Sub Private Sub cmbVisualEffectTransition_SelectedIndexChanged(sender As Object, e As EventArgs) Dim slideOptions As SlideOptions = DirectCast(lvInputFiles.SelectedItems(0).Tag, SlideOptions) slideOptions.VisualEffectTransition = DirectCast(cmbVisualEffectTransition.SelectedIndex, SlideEffectType) End Sub Private Sub nudVisualEffectDuration_ValueChanged(sender As Object, e As EventArgs) Dim slideOptions As SlideOptions = DirectCast(lvInputFiles.SelectedItems(0).Tag, SlideOptions) slideOptions.VisualEffectDuration = CInt(Math.Truncate(nudVisualEffectDuration.Value)) End Sub Private Sub cmbTransitionEffectBefore_SelectedIndexChanged(sender As Object, e As EventArgs) Dim slideOptions As SlideOptions = DirectCast(lvInputFiles.SelectedItems(0).Tag, SlideOptions) slideOptions.TransitionEffectBefore = DirectCast(cmbTransitionEffectBefore.SelectedIndex - 1, TransitionEffectType) End Sub Private Sub nudTransitionEffectBeforeDuration_ValueChanged(sender As Object, e As EventArgs) Dim slideOptions As SlideOptions = DirectCast(lvInputFiles.SelectedItems(0).Tag, SlideOptions) slideOptions.TransitionEffectBeforeDuration = CInt(Math.Truncate(nudTransitionEffectBeforeDuration.Value)) End Sub Private Sub cmbTransitionEffectAfter_SelectedIndexChanged(sender As Object, e As EventArgs) Dim slideOptions As SlideOptions = DirectCast(lvInputFiles.SelectedItems(0).Tag, SlideOptions) slideOptions.TransitionEffectAfter = DirectCast(cmbTransitionEffectAfter.SelectedIndex - 1, TransitionEffectType) End Sub Private Sub nudTransitionEffectAfterDuration_ValueChanged(sender As Object, e As EventArgs) Dim slideOptions As SlideOptions = DirectCast(lvInputFiles.SelectedItems(0).Tag, SlideOptions) slideOptions.TransitionEffectAfterDuration = CInt(Math.Truncate(nudTransitionEffectAfterDuration.Value)) End Sub Private Sub cbTransitionEffectBeforeRandom_CheckedChanged(sender As Object, e As EventArgs) Dim slideOptions As SlideOptions = DirectCast(lvInputFiles.SelectedItems(0).Tag, SlideOptions) slideOptions.RandomTransitionEffectBefore = cbTransitionEffectBeforeRandom.Checked End Sub Private Sub cbTransitionEffectAfterRandom_CheckedChanged(sender As Object, e As EventArgs) Dim slideOptions As SlideOptions = DirectCast(lvInputFiles.SelectedItems(0).Tag, SlideOptions) slideOptions.RandomTransitionEffectAfter = cbTransitionEffectAfterRandom.Checked End Sub Private Sub btnVideoCodecProps_Click(sender As Object, e As EventArgs) Try _imageToVideo.ShowVideoCodecSettingsDialogModal(Handle.ToInt32()) Catch generatedExceptionName As Exception End Try End Sub Private Sub cmbWmvAudioCodecs_SelectedIndexChanged(sender As Object, e As EventArgs) _imageToVideo.CurrentWMVAudioCodecName = cmbWmvAudioCodecs.SelectedItem.ToString() cmbWmvAudioFormats.Items.Clear() ' Get list of available WMV audio formats For i As Integer = 0 To _imageToVideo.WMVAudioFormatCount - 1 cmbWmvAudioFormats.Items.Add(_imageToVideo.GetWMVAudioFormatDescription(i)) Next ' Select current WMV audio format cmbWmvAudioFormats.SelectedIndex = _imageToVideo.CurrentWMVAudioFormat End Sub Protected Overrides Sub OnClosing(e As System.ComponentModel.CancelEventArgs) Settings.Default.Save() MyBase.OnClosing(e) End Sub Private Sub btnBackgroundImageBrowse_Click(sender As Object, e As EventArgs) Dim dlg As New OpenFileDialog() dlg.CheckFileExists = False dlg.CheckPathExists = False dlg.Multiselect = False dlg.Filter = "Image Files(*.JPG;*.PNG;*.BMP)|*.JPG;*.JPEG;*.PNG;*.BMP;|JPEG Files(*.JPG)|*.JPG;*.JPEG|PNG Files(*.PNG)|*.PNG|BMP Files(*.BMP)|*.BMP|All files (*.*)|*.*" dlg.Multiselect = True dlg.SupportMultiDottedExtensions = True dlg.Title = "Select background image" If String.IsNullOrEmpty(Settings.Default.LastUsedFolder) Then Settings.Default.LastUsedFolder = Environment.GetFolderPath(Environment.SpecialFolder.MyPictures) End If dlg.InitialDirectory = Settings.Default.LastUsedFolder If dlg.ShowDialog() = DialogResult.OK Then Settings.Default.LastUsedFolder = Path.GetDirectoryName(dlg.FileNames(0)) tbBackgroundImage.Text = dlg.FileName End If End Sub Private Sub btnAudioTrackBrowse_Click(sender As Object, e As EventArgs) Dim dlg As New OpenFileDialog() dlg.CheckFileExists = False dlg.CheckPathExists = False dlg.Multiselect = False dlg.Filter = "Sound Files(*.MP3;*.WAV)|*.MP3;*.WAV|MP3 Files(*.MP3)|*.MP3|WAV Files(*.WAV)|*.WAV|All files (*.*)|*.*" dlg.Multiselect = True dlg.SupportMultiDottedExtensions = True dlg.Title = "Select background image" If String.IsNullOrEmpty(Settings.Default.LastUsedFolder) Then Settings.Default.LastUsedFolder = Environment.GetFolderPath(Environment.SpecialFolder.MyMusic) End If dlg.InitialDirectory = Settings.Default.LastUsedFolder If dlg.ShowDialog() = DialogResult.OK Then Settings.Default.LastUsedFolder = Path.GetDirectoryName(dlg.FileNames(0)) tbAudioTrack.Text = dlg.FileName End If End Sub Private Sub btnBackgroundColor_Click(sender As Object, e As EventArgs) Dim colorDialog As New ColorDialog() colorDialog.Color = btnBackgroundColor.BackColor If colorDialog.ShowDialog() = DialogResult.OK Then btnBackgroundColor.BackColor = colorDialog.Color End If End Sub Protected Overrides Sub WndProc(ByRef m As Message) If m.HWnd = Handle AndAlso m.Msg = WM_CONVERSION_PROGRESS Then ' Show progress Dim progress As Integer = m.WParam.ToInt32() toolStripProgressBar1.Value = progress ' Finished! If progress = 100 AndAlso _imageToVideo.IsRunning Then ' wait a bit the converter finished and released resources While _imageToVideo.IsRunning Thread.Sleep(200) End While toolStripStatusLabel1.Text = "Saved to file " & _outputFile btnCreateMovie.Text = "Create Movie" btnCreateMovie.Image = My.Resources.film toolStripProgressBar1.Value = 0 ' Open folder containing the generated file Process.Start("explorer.exe", "/select,""" & _outputFile & """") ' Play generated file If cbPlayGeneratedFile.Checked Then Try Dim process As New Process() process.StartInfo.FileName = _outputFile process.StartInfo.UseShellExecute = True process.Start() Catch End Try End If End If End If MyBase.WndProc(m) End Sub Private Sub btnCreateMovie_Click(sender As Object, e As EventArgs) If Not _imageToVideo.IsRunning Then Dim dlg As New SaveFileDialog() dlg.Filter = "WMV files (*.wmv)|*.wmv|AVI files (*.avi)|*.avi|All files (*.*)|*.*" If tabControl2.SelectedIndex = 0 Then dlg.DefaultExt = "*.wmv" dlg.FilterIndex = 1 Else dlg.DefaultExt = "*.avi" dlg.FilterIndex = 2 End If dlg.FileName = "movie" dlg.Title = "Save generated video as" If String.IsNullOrEmpty(Settings.Default.LastUsedFolder2) Then Settings.Default.LastUsedFolder2 = Environment.GetFolderPath(Environment.SpecialFolder.MyDocuments) End If dlg.InitialDirectory = Settings.Default.LastUsedFolder2 If dlg.ShowDialog() = DialogResult.OK Then Settings.Default.LastUsedFolder2 = Path.GetDirectoryName(dlg.FileName) Dim intValue As Integer Dim floatValue As Single _imageToVideo.AutoFitImages = cbAutoFitImages.Checked _imageToVideo.KeepAspectRatio = cbKeepAspectRatio.Checked _imageToVideo.BackgroundColor = CUInt(ColorTranslator.ToOle(btnBackgroundColor.BackColor)) If tbBackgroundImage.Text.Length > 0 Then _imageToVideo.SetBackgroundPictureFileName(tbBackgroundImage.Text) End If If Integer.TryParse(tbMovieWidth.Text, intValue) Then _imageToVideo.OutputWidth = intValue End If If Integer.TryParse(tbMovieHeight.Text, intValue) Then _imageToVideo.OutputHeight = intValue End If If tbAudioTrack.Text.Length > 0 Then _imageToVideo.ExternalAudioTrackFromFileName = tbAudioTrack.Text End If _imageToVideo.CurrentAudioCodec = cmbAviAudioCodecs.SelectedIndex _imageToVideo.CurrentVideoCodec = cmbAviVideoCodecs.SelectedIndex _imageToVideo.CurrentWMVAudioCodec = cmbWmvAudioCodecs.SelectedIndex _imageToVideo.CurrentWMVAudioFormat = cmbWmvAudioFormats.SelectedIndex _imageToVideo.CurrentWMVVideoCodec = cmbWmvVideoCodecs.SelectedIndex If Integer.TryParse(tbBitrate.Text, intValue) Then _imageToVideo.WMVVideoBitrate = intValue * 1024 End If If Single.TryParse(tbFPS.Text, floatValue) Then _imageToVideo.FPS = floatValue End If _outputFile = dlg.FileName _imageToVideo.OutputVideoFileName = _outputFile _imageToVideo.SetProgressNotifyWindow(Handle.ToInt32(), WM_CONVERSION_PROGRESS, 0) _imageToVideo.Slides.Clear() For Each item As ListViewItem In lvInputFiles.Items Dim slideInfo As SlideOptions = DirectCast(item.Tag, SlideOptions) Dim slide As Slide = _imageToVideo.AddImageFromFileName(slideInfo.ImageFile) slide.Duration = slideInfo.SlideDuration slide.RotationAngle = slideInfo.SlideRotation slide.VisualEffect = slideInfo.VisualEffect slide.Effect = slideInfo.VisualEffectTransition slide.EffectDuration = slideInfo.VisualEffectDuration slide.InEffect = CType(IIf(slideInfo.RandomTransitionEffectBefore, GetRandomEffect(), slideInfo.TransitionEffectBefore), TransitionEffectType) slide.InEffectDuration = slideInfo.TransitionEffectBeforeDuration slide.OutEffect = CType(IIf(slideInfo.RandomTransitionEffectAfter, GetRandomEffect(), slideInfo.TransitionEffectAfter), TransitionEffectType) slide.OutEffectDuration = slideInfo.TransitionEffectAfterDuration Next _imageToVideo.Run() toolStripStatusLabel1.Text = "Generating video..." btnCreateMovie.Text = "Stop" btnCreateMovie.Image = My.Resources._stop End If Else ' Stop generation _imageToVideo.Stop() ' wait a bit the converter finished and released resources While _imageToVideo.IsRunning Thread.Sleep(200) End While toolStripStatusLabel1.Text = "Interrupted by user." btnCreateMovie.Text = "Create Movie" btnCreateMovie.Image = My.Resources.film toolStripProgressBar1.Value = 0 End If End Sub Private Function GetRandomEffect() As TransitionEffectType Return DirectCast(_randomGenerator.Next(0, 140), TransitionEffectType) End Function Private Sub linkVisitSDKHome_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Try Dim process As New Process() process.StartInfo.FileName = "http://bytescout.com/products/developer/imagetovideosdk/imagetovideosdk.html" process.StartInfo.UseShellExecute = True process.Start() Catch exception As Exception MessageBox.Show(exception.Message) End Try 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)

Program.vb
      
Imports System.Collections.Generic Imports System.Windows.Forms NotInheritable Class Program Private Sub New() End Sub ''' <summary> ''' The main entry point for the application. ''' </summary> <STAThread> _ Friend Shared Sub Main() Application.EnableVisualStyles() Application.SetCompatibleTextRenderingDefault(False) Application.Run(New MainForm()) 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)

SlideOptions.vb
      
Imports System.Collections.Generic Imports System.Text Imports BytescoutImageToVideo Public Class SlideOptions ' Image file path Public ImageFile As String ' Slide properties Public SlideDuration As Integer = 3000 Public SlideRotation As RotationAngle = RotationAngle.raNone Public VisualEffect As VisualEffectType = VisualEffectType.veNone Public VisualEffectTransition As SlideEffectType = SlideEffectType.seNone Public VisualEffectDuration As Integer = 1000 Public TransitionEffectBefore As TransitionEffectType = TransitionEffectType.teNone Public TransitionEffectBeforeDuration As Integer = 1000 Public RandomTransitionEffectBefore As Boolean = True Public TransitionEffectAfter As TransitionEffectType = TransitionEffectType.teNone Public TransitionEffectAfterDuration As Integer = 1000 Public RandomTransitionEffectAfter As Boolean = True 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)

VIDEO

ON-PREMISE VERSION

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

Explore ByteScout Image To Video SDK documentation

WEB API

Sign Up for free Web API key

Explore Web API Documentation

Tutorials:

prev
next