Set Video and Audio Settings for Screen Video - VB.NET
Screen Capturing SDK sample in VB.NET demonstrating ‘Set Video and Audio Settings for Screen Video’
Form1.Designer.vb
��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 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.groupBox3 = New System.Windows.Forms.GroupBox()
Me.cmbAudioDevices = New System.Windows.Forms.ComboBox()
Me.label9 = New System.Windows.Forms.Label()
Me.cmbAudioLines = New System.Windows.Forms.ComboBox()
Me.label1 = New System.Windows.Forms.Label()
Me.cbEnableAudio = New System.Windows.Forms.CheckBox()
Me.groupBox2 = New System.Windows.Forms.GroupBox()
Me.tabControl1 = New System.Windows.Forms.TabControl()
Me.tabPageWmv = New System.Windows.Forms.TabPage()
Me.cmbWmvAudioFormats = New System.Windows.Forms.ComboBox()
Me.label12 = New System.Windows.Forms.Label()
Me.cmbWmvAudioCodecs = New System.Windows.Forms.ComboBox()
Me.label10 = New System.Windows.Forms.Label()
Me.cmbWmvVideoCodecs = New System.Windows.Forms.ComboBox()
Me.label11 = New System.Windows.Forms.Label()
Me.tabPageAvi = New System.Windows.Forms.TabPage()
Me.cmbAviAudioCodecs = New System.Windows.Forms.ComboBox()
Me.btnVideoCodecProps = New System.Windows.Forms.Button()
Me.label3 = New System.Windows.Forms.Label()
Me.cmbAviVideoCodecs = New System.Windows.Forms.ComboBox()
Me.label2 = New System.Windows.Forms.Label()
Me.groupBox1 = New System.Windows.Forms.GroupBox()
Me.label8 = New System.Windows.Forms.Label()
Me.tbHeight = New System.Windows.Forms.TextBox()
Me.label7 = New System.Windows.Forms.Label()
Me.tbWidth = New System.Windows.Forms.TextBox()
Me.label6 = New System.Windows.Forms.Label()
Me.label5 = New System.Windows.Forms.Label()
Me.tbY = New System.Windows.Forms.TextBox()
Me.tbX = New System.Windows.Forms.TextBox()
Me.rbFullscreen = New System.Windows.Forms.RadioButton()
Me.rbRegionAroundMouse = New System.Windows.Forms.RadioButton()
Me.rbRectRegion = New System.Windows.Forms.RadioButton()
Me.btnStopRecording = New System.Windows.Forms.Button()
Me.btnStartRecording = New System.Windows.Forms.Button()
Me.groupBox4 = New System.Windows.Forms.GroupBox()
Me.label18 = New System.Windows.Forms.Label()
Me.nudMouseHotSpot = New System.Windows.Forms.NumericUpDown()
Me.cbCaptureLayeredWindows = New System.Windows.Forms.CheckBox()
Me.linkViewLog = New System.Windows.Forms.LinkLabel()
Me.cbLog = New System.Windows.Forms.CheckBox()
Me.cmbFPS = New System.Windows.Forms.ComboBox()
Me.label4 = New System.Windows.Forms.Label()
Me.groupBox5 = New System.Windows.Forms.GroupBox()
Me.label14 = New System.Windows.Forms.Label()
Me.cmbWebCameras = New System.Windows.Forms.ComboBox()
Me.tbWebCameraHeight = New System.Windows.Forms.TextBox()
Me.label13 = New System.Windows.Forms.Label()
Me.label15 = New System.Windows.Forms.Label()
Me.cbShowWebCamOverlay = New System.Windows.Forms.CheckBox()
Me.tbWebCameraWidth = New System.Windows.Forms.TextBox()
Me.tbWebCameraY = New System.Windows.Forms.TextBox()
Me.label16 = New System.Windows.Forms.Label()
Me.tbWebCameraX = New System.Windows.Forms.TextBox()
Me.label17 = New System.Windows.Forms.Label()
Me.tableLayoutPanel1 = New System.Windows.Forms.TableLayoutPanel()
Me.btnPauseRecording = New System.Windows.Forms.Button()
Me.label19 = New System.Windows.Forms.Label()
Me.groupBox3.SuspendLayout()
Me.groupBox2.SuspendLayout()
Me.tabControl1.SuspendLayout()
Me.tabPageWmv.SuspendLayout()
Me.tabPageAvi.SuspendLayout()
Me.groupBox1.SuspendLayout()
Me.groupBox4.SuspendLayout()
DirectCast(Me.nudMouseHotSpot, System.ComponentModel.ISupportInitialize).BeginInit()
Me.groupBox5.SuspendLayout()
Me.tableLayoutPanel1.SuspendLayout()
Me.SuspendLayout()
'
' groupBox3
'
Me.groupBox3.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.groupBox3.Controls.Add(Me.cmbAudioDevices)
Me.groupBox3.Controls.Add(Me.label9)
Me.groupBox3.Controls.Add(Me.cmbAudioLines)
Me.groupBox3.Controls.Add(Me.label1)
Me.groupBox3.Controls.Add(Me.cbEnableAudio)
Me.groupBox3.Location = New System.Drawing.Point(12, 12)
Me.groupBox3.Name = "groupBox3"
Me.groupBox3.Size = New System.Drawing.Size(541, 101)
Me.groupBox3.TabIndex = 0
Me.groupBox3.TabStop = False
Me.groupBox3.Text = "Audio Input"
'
' cmbAudioDevices
'
Me.cmbAudioDevices.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.cmbAudioDevices.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
Me.cmbAudioDevices.FormattingEnabled = True
Me.cmbAudioDevices.Location = New System.Drawing.Point(53, 42)
Me.cmbAudioDevices.Name = "cmbAudioDevices"
Me.cmbAudioDevices.Size = New System.Drawing.Size(482, 21)
Me.cmbAudioDevices.TabIndex = 1
AddHandler Me.cmbAudioDevices.SelectedIndexChanged, New System.EventHandler(AddressOf Me.cmbAudioDevices_SelectedIndexChanged)
'
' label9
'
Me.label9.AutoSize = True
Me.label9.Location = New System.Drawing.Point(6, 45)
Me.label9.Name = "label9"
Me.label9.Size = New System.Drawing.Size(41, 13)
Me.label9.TabIndex = 5
Me.label9.Text = "Device"
'
' cmbAudioLines
'
Me.cmbAudioLines.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.cmbAudioLines.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
Me.cmbAudioLines.FormattingEnabled = True
Me.cmbAudioLines.Location = New System.Drawing.Point(53, 67)
Me.cmbAudioLines.Name = "cmbAudioLines"
Me.cmbAudioLines.Size = New System.Drawing.Size(482, 21)
Me.cmbAudioLines.TabIndex = 2
'
' label1
'
Me.label1.AutoSize = True
Me.label1.Location = New System.Drawing.Point(6, 70)
Me.label1.Name = "label1"
Me.label1.Size = New System.Drawing.Size(27, 13)
Me.label1.TabIndex = 3
Me.label1.Text = "Line"
'
' cbEnableAudio
'
Me.cbEnableAudio.AutoSize = True
Me.cbEnableAudio.Checked = True
Me.cbEnableAudio.CheckState = System.Windows.Forms.CheckState.Checked
Me.cbEnableAudio.Location = New System.Drawing.Point(9, 19)
Me.cbEnableAudio.Name = "cbEnableAudio"
Me.cbEnableAudio.Size = New System.Drawing.Size(89, 17)
Me.cbEnableAudio.TabIndex = 0
Me.cbEnableAudio.Text = "Enable Audio"
Me.cbEnableAudio.UseVisualStyleBackColor = True
AddHandler Me.cbEnableAudio.CheckedChanged, New System.EventHandler(AddressOf Me.cbEnableAudio_CheckedChanged)
'
' 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.tabControl1)
Me.groupBox2.Location = New System.Drawing.Point(12, 201)
Me.groupBox2.Name = "groupBox2"
Me.groupBox2.Size = New System.Drawing.Size(541, 143)
Me.groupBox2.TabIndex = 2
Me.groupBox2.TabStop = False
Me.groupBox2.Text = "Output Video Format (SELECT TAB TO SELECT VIDEO FORMAT TO USE)"
'
' tabControl1
'
Me.tabControl1.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.tabControl1.Controls.Add(Me.tabPageWmv)
Me.tabControl1.Controls.Add(Me.tabPageAvi)
Me.tabControl1.Location = New System.Drawing.Point(6, 19)
Me.tabControl1.Name = "tabControl1"
Me.tabControl1.SelectedIndex = 0
Me.tabControl1.Size = New System.Drawing.Size(529, 116)
Me.tabControl1.TabIndex = 8
'
' tabPageWmv
'
Me.tabPageWmv.Controls.Add(Me.cmbWmvAudioFormats)
Me.tabPageWmv.Controls.Add(Me.label12)
Me.tabPageWmv.Controls.Add(Me.cmbWmvAudioCodecs)
Me.tabPageWmv.Controls.Add(Me.label10)
Me.tabPageWmv.Controls.Add(Me.cmbWmvVideoCodecs)
Me.tabPageWmv.Controls.Add(Me.label11)
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(521, 90)
Me.tabPageWmv.TabIndex = 1
Me.tabPageWmv.Text = "WMV Format"
Me.tabPageWmv.UseVisualStyleBackColor = True
'
' 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(465, 21)
Me.cmbWmvAudioFormats.TabIndex = 1
'
' label12
'
Me.label12.AutoSize = True
Me.label12.Location = New System.Drawing.Point(6, 36)
Me.label12.Name = "label12"
Me.label12.Size = New System.Drawing.Size(39, 13)
Me.label12.TabIndex = 14
Me.label12.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(465, 21)
Me.cmbWmvAudioCodecs.TabIndex = 0
AddHandler Me.cmbWmvAudioCodecs.SelectedIndexChanged, New System.EventHandler(AddressOf Me.cmbWmvAudioCodecs_SelectedIndexChanged)
'
' label10
'
Me.label10.AutoSize = True
Me.label10.Location = New System.Drawing.Point(6, 63)
Me.label10.Name = "label10"
Me.label10.Size = New System.Drawing.Size(34, 13)
Me.label10.TabIndex = 12
Me.label10.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(465, 21)
Me.cmbWmvVideoCodecs.TabIndex = 2
'
' label11
'
Me.label11.AutoSize = True
Me.label11.Location = New System.Drawing.Point(6, 9)
Me.label11.Name = "label11"
Me.label11.Size = New System.Drawing.Size(34, 13)
Me.label11.TabIndex = 11
Me.label11.Text = "Audio"
'
' tabPageAvi
'
Me.tabPageAvi.Controls.Add(Me.cmbAviAudioCodecs)
Me.tabPageAvi.Controls.Add(Me.btnVideoCodecProps)
Me.tabPageAvi.Controls.Add(Me.label3)
Me.tabPageAvi.Controls.Add(Me.cmbAviVideoCodecs)
Me.tabPageAvi.Controls.Add(Me.label2)
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(521, 90)
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(49, 19)
Me.cmbAviAudioCodecs.Name = "cmbAviAudioCodecs"
Me.cmbAviAudioCodecs.Size = New System.Drawing.Size(434, 21)
Me.cmbAviAudioCodecs.TabIndex = 0
'
' btnVideoCodecProps
'
Me.btnVideoCodecProps.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.btnVideoCodecProps.Image = Global.VideoAudioSettings.My.Resources.Resources.wrench
Me.btnVideoCodecProps.Location = New System.Drawing.Point(489, 42)
Me.btnVideoCodecProps.Name = "btnVideoCodecProps"
Me.btnVideoCodecProps.Size = New System.Drawing.Size(26, 26)
Me.btnVideoCodecProps.TabIndex = 2
Me.btnVideoCodecProps.UseVisualStyleBackColor = True
'
' label3
'
Me.label3.AutoSize = True
Me.label3.Location = New System.Drawing.Point(5, 49)
Me.label3.Name = "label3"
Me.label3.Size = New System.Drawing.Size(34, 13)
Me.label3.TabIndex = 7
Me.label3.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(49, 46)
Me.cmbAviVideoCodecs.Name = "cmbAviVideoCodecs"
Me.cmbAviVideoCodecs.Size = New System.Drawing.Size(434, 21)
Me.cmbAviVideoCodecs.TabIndex = 1
'
' label2
'
Me.label2.AutoSize = True
Me.label2.Location = New System.Drawing.Point(5, 22)
Me.label2.Name = "label2"
Me.label2.Size = New System.Drawing.Size(34, 13)
Me.label2.TabIndex = 5
Me.label2.Text = "Audio"
'
' groupBox1
'
Me.groupBox1.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.groupBox1.Controls.Add(Me.label8)
Me.groupBox1.Controls.Add(Me.tbHeight)
Me.groupBox1.Controls.Add(Me.label7)
Me.groupBox1.Controls.Add(Me.tbWidth)
Me.groupBox1.Controls.Add(Me.label6)
Me.groupBox1.Controls.Add(Me.label5)
Me.groupBox1.Controls.Add(Me.tbY)
Me.groupBox1.Controls.Add(Me.tbX)
Me.groupBox1.Controls.Add(Me.rbFullscreen)
Me.groupBox1.Controls.Add(Me.rbRegionAroundMouse)
Me.groupBox1.Controls.Add(Me.rbRectRegion)
Me.groupBox1.Location = New System.Drawing.Point(12, 455)
Me.groupBox1.Name = "groupBox1"
Me.groupBox1.Size = New System.Drawing.Size(541, 92)
Me.groupBox1.TabIndex = 4
Me.groupBox1.TabStop = False
Me.groupBox1.Text = "Capture"
'
' label8
'
Me.label8.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.label8.AutoSize = True
Me.label8.Location = New System.Drawing.Point(440, 47)
Me.label8.Name = "label8"
Me.label8.Size = New System.Drawing.Size(38, 13)
Me.label8.TabIndex = 10
Me.label8.Text = "Height"
Me.label8.TextAlign = System.Drawing.ContentAlignment.MiddleRight
'
' tbHeight
'
Me.tbHeight.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.tbHeight.Location = New System.Drawing.Point(484, 44)
Me.tbHeight.Name = "tbHeight"
Me.tbHeight.Size = New System.Drawing.Size(48, 20)
Me.tbHeight.TabIndex = 6
Me.tbHeight.Text = "480"
'
' label7
'
Me.label7.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.label7.AutoSize = True
Me.label7.Location = New System.Drawing.Point(344, 47)
Me.label7.Name = "label7"
Me.label7.Size = New System.Drawing.Size(35, 13)
Me.label7.TabIndex = 8
Me.label7.Text = "Width"
Me.label7.TextAlign = System.Drawing.ContentAlignment.MiddleRight
'
' tbWidth
'
Me.tbWidth.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.tbWidth.Location = New System.Drawing.Point(385, 44)
Me.tbWidth.Name = "tbWidth"
Me.tbWidth.Size = New System.Drawing.Size(48, 20)
Me.tbWidth.TabIndex = 5
Me.tbWidth.Text = "640"
'
' label6
'
Me.label6.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.label6.AutoSize = True
Me.label6.Location = New System.Drawing.Point(464, 21)
Me.label6.Name = "label6"
Me.label6.Size = New System.Drawing.Size(14, 13)
Me.label6.TabIndex = 6
Me.label6.Text = "Y"
Me.label6.TextAlign = System.Drawing.ContentAlignment.MiddleRight
'
' label5
'
Me.label5.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.label5.AutoSize = True
Me.label5.Location = New System.Drawing.Point(365, 21)
Me.label5.Name = "label5"
Me.label5.Size = New System.Drawing.Size(14, 13)
Me.label5.TabIndex = 5
Me.label5.Text = "X"
Me.label5.TextAlign = System.Drawing.ContentAlignment.MiddleRight
'
' tbY
'
Me.tbY.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.tbY.Location = New System.Drawing.Point(484, 18)
Me.tbY.Name = "tbY"
Me.tbY.Size = New System.Drawing.Size(48, 20)
Me.tbY.TabIndex = 4
Me.tbY.Text = "0"
'
' tbX
'
Me.tbX.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.tbX.Location = New System.Drawing.Point(385, 18)
Me.tbX.Name = "tbX"
Me.tbX.Size = New System.Drawing.Size(48, 20)
Me.tbX.TabIndex = 3
Me.tbX.Text = "0"
'
' rbFullscreen
'
Me.rbFullscreen.AutoSize = True
Me.rbFullscreen.Checked = True
Me.rbFullscreen.Location = New System.Drawing.Point(9, 65)
Me.rbFullscreen.Name = "rbFullscreen"
Me.rbFullscreen.Size = New System.Drawing.Size(76, 17)
Me.rbFullscreen.TabIndex = 2
Me.rbFullscreen.TabStop = True
Me.rbFullscreen.Text = "Full screen"
Me.rbFullscreen.UseVisualStyleBackColor = True
AddHandler Me.rbFullscreen.CheckedChanged, New System.EventHandler(AddressOf Me.rbFullscreen_CheckedChanged)
'
' rbRegionAroundMouse
'
Me.rbRegionAroundMouse.AutoSize = True
Me.rbRegionAroundMouse.Location = New System.Drawing.Point(9, 42)
Me.rbRegionAroundMouse.Name = "rbRegionAroundMouse"
Me.rbRegionAroundMouse.Size = New System.Drawing.Size(147, 17)
Me.rbRegionAroundMouse.TabIndex = 1
Me.rbRegionAroundMouse.Text = "Region around the mouse"
Me.rbRegionAroundMouse.UseVisualStyleBackColor = True
AddHandler Me.rbRegionAroundMouse.CheckedChanged, New System.EventHandler(AddressOf Me.rbRegionAroundMouse_CheckedChanged)
'
' rbRectRegion
'
Me.rbRectRegion.AutoSize = True
Me.rbRectRegion.Location = New System.Drawing.Point(9, 19)
Me.rbRectRegion.Name = "rbRectRegion"
Me.rbRectRegion.Size = New System.Drawing.Size(115, 17)
Me.rbRectRegion.TabIndex = 0
Me.rbRectRegion.Text = "Rectangular region"
Me.rbRectRegion.UseVisualStyleBackColor = True
AddHandler Me.rbRectRegion.CheckedChanged, New System.EventHandler(AddressOf Me.rbRectRegion_CheckedChanged)
'
' btnStopRecording
'
Me.btnStopRecording.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.btnStopRecording.Enabled = False
Me.btnStopRecording.Font = New System.Drawing.Font("Tahoma", 8.25F, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CByte(0))
Me.btnStopRecording.Location = New System.Drawing.Point(243, 3)
Me.btnStopRecording.Name = "btnStopRecording"
Me.btnStopRecording.Size = New System.Drawing.Size(114, 70)
Me.btnStopRecording.TabIndex = 2
Me.btnStopRecording.Text = "Stop Recording"
Me.btnStopRecording.UseVisualStyleBackColor = True
AddHandler Me.btnStopRecording.Click, New System.EventHandler(AddressOf Me.btnStopRecording_Click)
'
' btnStartRecording
'
Me.btnStartRecording.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.btnStartRecording.Font = New System.Drawing.Font("Tahoma", 8.25F, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CByte(204))
Me.btnStartRecording.Location = New System.Drawing.Point(0, 3)
Me.btnStartRecording.Margin = New System.Windows.Forms.Padding(0, 3, 3, 3)
Me.btnStartRecording.Name = "btnStartRecording"
Me.btnStartRecording.Size = New System.Drawing.Size(117, 70)
Me.btnStartRecording.TabIndex = 0
Me.btnStartRecording.Text = "Start Recording"
Me.btnStartRecording.UseVisualStyleBackColor = True
AddHandler Me.btnStartRecording.Click, New System.EventHandler(AddressOf Me.btnStartRecording_Click)
'
' 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.label18)
Me.groupBox4.Controls.Add(Me.nudMouseHotSpot)
Me.groupBox4.Controls.Add(Me.cbCaptureLayeredWindows)
Me.groupBox4.Controls.Add(Me.linkViewLog)
Me.groupBox4.Controls.Add(Me.cbLog)
Me.groupBox4.Controls.Add(Me.cmbFPS)
Me.groupBox4.Controls.Add(Me.label4)
Me.groupBox4.Location = New System.Drawing.Point(12, 350)
Me.groupBox4.Name = "groupBox4"
Me.groupBox4.Size = New System.Drawing.Size(541, 99)
Me.groupBox4.TabIndex = 3
Me.groupBox4.TabStop = False
Me.groupBox4.Text = "Misc"
'
' label18
'
Me.label18.AutoSize = True
Me.label18.Location = New System.Drawing.Point(72, 48)
Me.label18.Name = "label18"
Me.label18.Size = New System.Drawing.Size(111, 13)
Me.label18.TabIndex = 6
Me.label18.Text = "Mouse hot spot radius"
'
' nudMouseHotSpot
'
Me.nudMouseHotSpot.Location = New System.Drawing.Point(6, 46)
Me.nudMouseHotSpot.Minimum = New Decimal(New Integer() {1, 0, 0, 0})
Me.nudMouseHotSpot.Name = "nudMouseHotSpot"
Me.nudMouseHotSpot.Size = New System.Drawing.Size(60, 20)
Me.nudMouseHotSpot.TabIndex = 1
Me.nudMouseHotSpot.Value = New Decimal(New Integer() {1, 0, 0, 0})
'
' cbCaptureLayeredWindows
'
Me.cbCaptureLayeredWindows.AutoSize = True
Me.cbCaptureLayeredWindows.Location = New System.Drawing.Point(6, 72)
Me.cbCaptureLayeredWindows.Name = "cbCaptureLayeredWindows"
Me.cbCaptureLayeredWindows.Size = New System.Drawing.Size(499, 17)
Me.cbCaptureLayeredWindows.TabIndex = 2
Me.cbCaptureLayeredWindows.Text = "Capture Layered Windows (transparent windows and controls and WPF based applicati" & "on windows) "
Me.cbCaptureLayeredWindows.UseVisualStyleBackColor = True
'
' linkViewLog
'
Me.linkViewLog.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.linkViewLog.AutoSize = True
Me.linkViewLog.Location = New System.Drawing.Point(488, 22)
Me.linkViewLog.Name = "linkViewLog"
Me.linkViewLog.Size = New System.Drawing.Size(47, 13)
Me.linkViewLog.TabIndex = 4
Me.linkViewLog.TabStop = True
Me.linkViewLog.Text = "View log"
AddHandler Me.linkViewLog.LinkClicked, New System.Windows.Forms.LinkLabelLinkClickedEventHandler(AddressOf Me.linkViewLog_LinkClicked)
'
' cbLog
'
Me.cbLog.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.cbLog.AutoSize = True
Me.cbLog.Location = New System.Drawing.Point(414, 21)
Me.cbLog.Name = "cbLog"
Me.cbLog.Size = New System.Drawing.Size(68, 17)
Me.cbLog.TabIndex = 3
Me.cbLog.Text = "Write log"
Me.cbLog.UseVisualStyleBackColor = True
'
' cmbFPS
'
Me.cmbFPS.FormattingEnabled = True
Me.cmbFPS.Location = New System.Drawing.Point(6, 19)
Me.cmbFPS.Name = "cmbFPS"
Me.cmbFPS.Size = New System.Drawing.Size(60, 21)
Me.cmbFPS.TabIndex = 0
'
' label4
'
Me.label4.AutoSize = True
Me.label4.Location = New System.Drawing.Point(72, 22)
Me.label4.Name = "label4"
Me.label4.Size = New System.Drawing.Size(27, 13)
Me.label4.TabIndex = 3
Me.label4.Text = "FPS"
'
' groupBox5
'
Me.groupBox5.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.groupBox5.Controls.Add(Me.label14)
Me.groupBox5.Controls.Add(Me.cmbWebCameras)
Me.groupBox5.Controls.Add(Me.tbWebCameraHeight)
Me.groupBox5.Controls.Add(Me.label13)
Me.groupBox5.Controls.Add(Me.label15)
Me.groupBox5.Controls.Add(Me.cbShowWebCamOverlay)
Me.groupBox5.Controls.Add(Me.tbWebCameraWidth)
Me.groupBox5.Controls.Add(Me.tbWebCameraY)
Me.groupBox5.Controls.Add(Me.label16)
Me.groupBox5.Controls.Add(Me.tbWebCameraX)
Me.groupBox5.Controls.Add(Me.label17)
Me.groupBox5.Location = New System.Drawing.Point(12, 119)
Me.groupBox5.Name = "groupBox5"
Me.groupBox5.Size = New System.Drawing.Size(541, 76)
Me.groupBox5.TabIndex = 1
Me.groupBox5.TabStop = False
Me.groupBox5.Text = "Web Camera"
'
' label14
'
Me.label14.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.label14.AutoSize = True
Me.label14.Location = New System.Drawing.Point(443, 48)
Me.label14.Name = "label14"
Me.label14.Size = New System.Drawing.Size(38, 13)
Me.label14.TabIndex = 18
Me.label14.Text = "Height"
Me.label14.TextAlign = System.Drawing.ContentAlignment.MiddleRight
'
' cmbWebCameras
'
Me.cmbWebCameras.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.cmbWebCameras.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
Me.cmbWebCameras.FormattingEnabled = True
Me.cmbWebCameras.Location = New System.Drawing.Point(53, 42)
Me.cmbWebCameras.Name = "cmbWebCameras"
Me.cmbWebCameras.Size = New System.Drawing.Size(278, 21)
Me.cmbWebCameras.TabIndex = 1
'
' tbWebCameraHeight
'
Me.tbWebCameraHeight.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.tbWebCameraHeight.Location = New System.Drawing.Point(487, 45)
Me.tbWebCameraHeight.Name = "tbWebCameraHeight"
Me.tbWebCameraHeight.Size = New System.Drawing.Size(48, 20)
Me.tbWebCameraHeight.TabIndex = 5
Me.tbWebCameraHeight.Text = "120"
'
' label13
'
Me.label13.AutoSize = True
Me.label13.Location = New System.Drawing.Point(6, 45)
Me.label13.Name = "label13"
Me.label13.Size = New System.Drawing.Size(41, 13)
Me.label13.TabIndex = 5
Me.label13.Text = "Device"
'
' label15
'
Me.label15.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.label15.AutoSize = True
Me.label15.Location = New System.Drawing.Point(347, 48)
Me.label15.Name = "label15"
Me.label15.Size = New System.Drawing.Size(35, 13)
Me.label15.TabIndex = 17
Me.label15.Text = "Width"
Me.label15.TextAlign = System.Drawing.ContentAlignment.MiddleRight
'
' cbShowWebCamOverlay
'
Me.cbShowWebCamOverlay.AutoSize = True
Me.cbShowWebCamOverlay.Location = New System.Drawing.Point(9, 19)
Me.cbShowWebCamOverlay.Name = "cbShowWebCamOverlay"
Me.cbShowWebCamOverlay.Size = New System.Drawing.Size(200, 17)
Me.cbShowWebCamOverlay.TabIndex = 0
Me.cbShowWebCamOverlay.Text = "Show video stream from web camera"
Me.cbShowWebCamOverlay.UseVisualStyleBackColor = True
'
' tbWebCameraWidth
'
Me.tbWebCameraWidth.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.tbWebCameraWidth.Location = New System.Drawing.Point(388, 45)
Me.tbWebCameraWidth.Name = "tbWebCameraWidth"
Me.tbWebCameraWidth.Size = New System.Drawing.Size(48, 20)
Me.tbWebCameraWidth.TabIndex = 3
Me.tbWebCameraWidth.Text = "160"
'
' tbWebCameraY
'
Me.tbWebCameraY.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.tbWebCameraY.Location = New System.Drawing.Point(487, 19)
Me.tbWebCameraY.Name = "tbWebCameraY"
Me.tbWebCameraY.Size = New System.Drawing.Size(48, 20)
Me.tbWebCameraY.TabIndex = 4
Me.tbWebCameraY.Text = "10"
'
' label16
'
Me.label16.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.label16.AutoSize = True
Me.label16.Location = New System.Drawing.Point(467, 22)
Me.label16.Name = "label16"
Me.label16.Size = New System.Drawing.Size(14, 13)
Me.label16.TabIndex = 16
Me.label16.Text = "Y"
Me.label16.TextAlign = System.Drawing.ContentAlignment.MiddleRight
'
' tbWebCameraX
'
Me.tbWebCameraX.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.tbWebCameraX.Location = New System.Drawing.Point(388, 19)
Me.tbWebCameraX.Name = "tbWebCameraX"
Me.tbWebCameraX.Size = New System.Drawing.Size(48, 20)
Me.tbWebCameraX.TabIndex = 2
Me.tbWebCameraX.Text = "10"
'
' label17
'
Me.label17.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.label17.AutoSize = True
Me.label17.Location = New System.Drawing.Point(368, 22)
Me.label17.Name = "label17"
Me.label17.Size = New System.Drawing.Size(14, 13)
Me.label17.TabIndex = 13
Me.label17.Text = "X"
Me.label17.TextAlign = System.Drawing.ContentAlignment.MiddleRight
'
' tableLayoutPanel1
'
Me.tableLayoutPanel1.Anchor = CType(((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left) Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.tableLayoutPanel1.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink
Me.tableLayoutPanel1.ColumnCount = 4
Me.tableLayoutPanel1.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Absolute, 120F))
Me.tableLayoutPanel1.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Absolute, 120F))
Me.tableLayoutPanel1.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Absolute, 120F))
Me.tableLayoutPanel1.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle())
Me.tableLayoutPanel1.Controls.Add(Me.btnPauseRecording, 1, 0)
Me.tableLayoutPanel1.Controls.Add(Me.btnStopRecording, 2, 0)
Me.tableLayoutPanel1.Controls.Add(Me.btnStartRecording, 0, 0)
Me.tableLayoutPanel1.Controls.Add(Me.label19, 3, 0)
Me.tableLayoutPanel1.Location = New System.Drawing.Point(12, 553)
Me.tableLayoutPanel1.Name = "tableLayoutPanel1"
Me.tableLayoutPanel1.RowCount = 1
Me.tableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Percent, 100F))
Me.tableLayoutPanel1.Size = New System.Drawing.Size(541, 76)
Me.tableLayoutPanel1.TabIndex = 5
'
' btnPauseRecording
'
Me.btnPauseRecording.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.btnPauseRecording.Enabled = False
Me.btnPauseRecording.Font = New System.Drawing.Font("Tahoma", 8.25F, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CByte(204))
Me.btnPauseRecording.Location = New System.Drawing.Point(123, 3)
Me.btnPauseRecording.Name = "btnPauseRecording"
Me.btnPauseRecording.Size = New System.Drawing.Size(114, 70)
Me.btnPauseRecording.TabIndex = 1
Me.btnPauseRecording.Text = "Pause Recording" & vbCr & vbLf
Me.btnPauseRecording.UseVisualStyleBackColor = True
AddHandler Me.btnPauseRecording.Click, New System.EventHandler(AddressOf Me.btnPauseRecording_Click)
'
' label19
'
Me.label19.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.label19.BackColor = System.Drawing.SystemColors.Info
Me.label19.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.label19.Location = New System.Drawing.Point(363, 3)
Me.label19.Margin = New System.Windows.Forms.Padding(3, 3, 0, 3)
Me.label19.Name = "label19"
Me.label19.Size = New System.Drawing.Size(178, 70)
Me.label19.TabIndex = 3
Me.label19.Text = "Full source code of this sample is available in Start | Bytescout Screen Capturin" & "g SDK | Advanced Examples | Audio and video settings"
'
' Form1
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6F, 13F)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.ClientSize = New System.Drawing.Size(565, 641)
Me.Controls.Add(Me.tableLayoutPanel1)
Me.Controls.Add(Me.groupBox5)
Me.Controls.Add(Me.groupBox4)
Me.Controls.Add(Me.groupBox1)
Me.Controls.Add(Me.groupBox2)
Me.Controls.Add(Me.groupBox3)
Me.Name = "Form1"
Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
Me.Text = "Screen Capturing"
Me.groupBox3.ResumeLayout(False)
Me.groupBox3.PerformLayout()
Me.groupBox2.ResumeLayout(False)
Me.tabControl1.ResumeLayout(False)
Me.tabPageWmv.ResumeLayout(False)
Me.tabPageWmv.PerformLayout()
Me.tabPageAvi.ResumeLayout(False)
Me.tabPageAvi.PerformLayout()
Me.groupBox1.ResumeLayout(False)
Me.groupBox1.PerformLayout()
Me.groupBox4.ResumeLayout(False)
Me.groupBox4.PerformLayout()
DirectCast(Me.nudMouseHotSpot, System.ComponentModel.ISupportInitialize).EndInit()
Me.groupBox5.ResumeLayout(False)
Me.groupBox5.PerformLayout()
Me.tableLayoutPanel1.ResumeLayout(False)
Me.ResumeLayout(False)
End Sub
#End Region
Private groupBox3 As System.Windows.Forms.GroupBox
Private cmbAudioLines As System.Windows.Forms.ComboBox
Private label1 As System.Windows.Forms.Label
Private WithEvents cbEnableAudio As System.Windows.Forms.CheckBox
Private groupBox2 As System.Windows.Forms.GroupBox
Private groupBox1 As System.Windows.Forms.GroupBox
Private groupBox4 As System.Windows.Forms.GroupBox
Private WithEvents linkViewLog As System.Windows.Forms.LinkLabel
Private cbLog As System.Windows.Forms.CheckBox
Private cmbFPS As System.Windows.Forms.ComboBox
Private label4 As System.Windows.Forms.Label
Private WithEvents rbFullscreen As System.Windows.Forms.RadioButton
Private WithEvents rbRegionAroundMouse As System.Windows.Forms.RadioButton
Private WithEvents rbRectRegion As System.Windows.Forms.RadioButton
Private tbY As System.Windows.Forms.TextBox
Private tbX As System.Windows.Forms.TextBox
Private label8 As System.Windows.Forms.Label
Private tbHeight As System.Windows.Forms.TextBox
Private label7 As System.Windows.Forms.Label
Private tbWidth As System.Windows.Forms.TextBox
Private label6 As System.Windows.Forms.Label
Private label5 As System.Windows.Forms.Label
Private btnStopRecording As System.Windows.Forms.Button
Private btnStartRecording As System.Windows.Forms.Button
Private WithEvents cmbAudioDevices As System.Windows.Forms.ComboBox
Private label9 As System.Windows.Forms.Label
Private tabControl1 As System.Windows.Forms.TabControl
Private tabPageWmv As System.Windows.Forms.TabPage
Private cmbWmvAudioFormats As System.Windows.Forms.ComboBox
Private label12 As System.Windows.Forms.Label
Private WithEvents cmbWmvAudioCodecs As System.Windows.Forms.ComboBox
Private label10 As System.Windows.Forms.Label
Private cmbWmvVideoCodecs As System.Windows.Forms.ComboBox
Private label11 As System.Windows.Forms.Label
Private tabPageAvi As System.Windows.Forms.TabPage
Private cmbAviAudioCodecs As System.Windows.Forms.ComboBox
Private btnVideoCodecProps As System.Windows.Forms.Button
Private label3 As System.Windows.Forms.Label
Private cmbAviVideoCodecs As System.Windows.Forms.ComboBox
Private label2 As System.Windows.Forms.Label
Private groupBox5 As System.Windows.Forms.GroupBox
Private cmbWebCameras As System.Windows.Forms.ComboBox
Private label13 As System.Windows.Forms.Label
Private cbShowWebCamOverlay As System.Windows.Forms.CheckBox
Private label14 As System.Windows.Forms.Label
Private tbWebCameraHeight As System.Windows.Forms.TextBox
Private label15 As System.Windows.Forms.Label
Private tbWebCameraWidth As System.Windows.Forms.TextBox
Private tbWebCameraY As System.Windows.Forms.TextBox
Private label16 As System.Windows.Forms.Label
Private tbWebCameraX As System.Windows.Forms.TextBox
Private label17 As System.Windows.Forms.Label
Private tableLayoutPanel1 As System.Windows.Forms.TableLayoutPanel
Private btnPauseRecording As System.Windows.Forms.Button
Private cbCaptureLayeredWindows As System.Windows.Forms.CheckBox
Private label18 As System.Windows.Forms.Label
Private nudMouseHotSpot As System.Windows.Forms.NumericUpDown
Private label19 As System.Windows.Forms.Label
End Class
+ Show More
Explore SDK documentations here.
Form1.vb
Imports System.Diagnostics
Imports System.IO
Imports System.Runtime.InteropServices
Imports System.Threading
Imports System.Windows.Forms
Imports BytescoutScreenCapturingLib
' NOTE: if you are getting error like "invalid image" related to loading the SDK's dll then
' try to do the following:
' 1) remove the reference to the SDK by View - Solution Explorer
' then click on References, select Bytescout... reference name and right-click it and select Remove
' 2) To re-add click on the menu: Project - Add Reference
' 3) In "Add Reference" dialog switch to "COM" tab and find Bytescout...
' 4) Select it and click "Add"
' 5) Recompile the application
' Note: if you need to run on both x64 and x86 then please make sure you have set "Embed Interop Types" to True for this reference
Public Partial Class Form1
Inherits Form
Private capturer As Capturer = Nothing
Private _recording As Boolean = False
Private _paused As Boolean = False
Public Sub New()
InitializeComponent()
' Create Capturer instance
capturer = New Capturer()
capturer.RegistrationName = "demo"
' put your registration name here
capturer.RegistrationKey = "demo"
' put your registration key here
' Get list of available audio devices
For i As Integer = 0 To capturer.AudioDeviceCount - 1
Dim line As String = capturer.GetAudioDeviceName(i)
cmbAudioDevices.Items.Add(line)
Next
' Select current audio device
If cmbAudioDevices.Items.Count > 0 Then
cmbAudioDevices.SelectedIndex = capturer.CurrentAudioDevice
End If
' Get list of available AVI audio codecs
For i As Integer = 0 To capturer.AudioCodecsCount - 1
Dim codec As String = capturer.GetAudioCodecName(i)
cmbAviAudioCodecs.Items.Add(codec)
Next
' Select current AVI audio codec
cmbAviAudioCodecs.SelectedIndex = capturer.CurrentAudioCodec
' Get list of available web camera devices
For i As Integer = 0 To capturer.WebCamCount - 1
Dim camera As String = capturer.GetWebCamName(i)
cmbWebCameras.Items.Add(camera)
Next
' Select current web camera
If cmbWebCameras.Items.Count <> 0 Then
cmbWebCameras.SelectedIndex = capturer.CurrentWebCam
Else
cmbWebCameras.Items.Add("No devices")
cmbWebCameras.SelectedIndex = 0
cmbWebCameras.Enabled = False
cbShowWebCamOverlay.Enabled = False
End If
' Get list of available AVI video codecs
For i As Integer = 0 To capturer.VideoCodecsCount - 1
Dim codec As String = capturer.GetVideoCodecName(i)
cmbAviVideoCodecs.Items.Add(codec)
Next
' Select current AVI video codec
cmbAviVideoCodecs.SelectedIndex = capturer.CurrentVideoCodec
' Get list of available WMV audio codecs
For i As Integer = 0 To capturer.WMVAudioCodecsCount - 1
Dim codec As String = capturer.GetWMVAudioCodecName(i)
cmbWmvAudioCodecs.Items.Add(codec)
Next
' Select current WMV audio codec
cmbWmvAudioCodecs.SelectedIndex = capturer.CurrentWMVAudioCodec
' Get list of available WMV video codecs
For i As Integer = 0 To capturer.WMVVideoCodecsCount - 1
Dim codec As String = capturer.GetWMVVideoCodecName(i)
cmbWmvVideoCodecs.Items.Add(codec)
Next
' Select current WMV video codec
cmbWmvVideoCodecs.SelectedIndex = capturer.CurrentWMVVideoCodec
' Fill list of FPS values
cmbFPS.Items.AddRange(New Object() {5F, 7.5F, 10F, 12F, 14.985F, 15F, _
19.98F, 20F, 23.976F, 24F, 25F, 29.97F, _
30F, 50F, 59.94F, 60})
' Select current FPS
cmbFPS.SelectedItem = 14.985F
cbCaptureLayeredWindows.Checked = capturer.CaptureTransparentControls
nudMouseHotSpot.Value = capturer.MouseSpotRadius
End Sub
' Rectangular region recording mode is selected
Private Sub cbEnableAudio_CheckedChanged(ByVal sender As Object, ByVal e As EventArgs) Handles cbEnableAudio.CheckedChanged
cmbAudioDevices.Enabled = cbEnableAudio.Checked
cmbAudioLines.Enabled = cbEnableAudio.Checked
End Sub
Private Sub cmbAudioDevices_SelectedIndexChanged(ByVal sender As Object, ByVal e As EventArgs) Handles cmbAudioDevices.SelectedIndexChanged
If cmbAudioLines.Items.Count>0
capturer.CurrentAudioDeviceName = cmbAudioDevices.SelectedItem.ToString()
End If
cmbAudioLines.Items.Clear()
' Get list of available audio lines of current audio device
For i As Integer = 0 To capturer.CurrentAudioDeviceLineCount - 1
Dim line As String = capturer.GetCurrentAudioDeviceLineName(i)
cmbAudioLines.Items.Add(line)
Next
' Select current audio line
If cmbAudioLines.Items.Count > 0 Then
cmbAudioLines.SelectedIndex = capturer.CurrentAudioDeviceLine
End If
End Sub
Private Sub cmbWmvAudioCodecs_SelectedIndexChanged(ByVal sender As Object, ByVal e As EventArgs) Handles cmbWmvAudioCodecs.SelectedIndexChanged
capturer.CurrentWMVAudioCodecName = cmbWmvAudioCodecs.SelectedItem.ToString()
cmbWmvAudioFormats.Items.Clear()
' Get list of available WMV audio formats
For i As Integer = 0 To capturer.WMVAudioFormatCount - 1
Dim codec As String = capturer.GetWMVAudioFormatDescription(i)
cmbWmvAudioFormats.Items.Add(codec)
Next
' Select current WMV audio format
cmbWmvAudioFormats.SelectedIndex = capturer.CurrentWMVAudioFormat
End Sub
Private Sub rbRectRegion_CheckedChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles rbRectRegion.CheckedChanged
tbX.Enabled = rbRectRegion.Checked
tbY.Enabled = rbRectRegion.Checked
tbWidth.Enabled = rbRectRegion.Checked OrElse rbRegionAroundMouse.Checked
tbHeight.Enabled = rbRectRegion.Checked OrElse rbRegionAroundMouse.Checked
End Sub
' Region around the mouse recording mode is selected
Private Sub rbRegionAroundMouse_CheckedChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles rbRegionAroundMouse.CheckedChanged
tbX.Enabled = rbRectRegion.Checked
tbY.Enabled = rbRectRegion.Checked
tbWidth.Enabled = rbRectRegion.Checked OrElse rbRegionAroundMouse.Checked
tbHeight.Enabled = rbRectRegion.Checked OrElse rbRegionAroundMouse.Checked
End Sub
' Full screen recording mode is selected
Private Sub rbFullscreen_CheckedChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles rbFullscreen.CheckedChanged
tbX.Enabled = rbRectRegion.Checked
tbY.Enabled = rbRectRegion.Checked
tbWidth.Enabled = rbRectRegion.Checked OrElse rbRegionAroundMouse.Checked
tbHeight.Enabled = rbRectRegion.Checked OrElse rbRegionAroundMouse.Checked
End Sub
' Show video code internal properties dialog
Private Sub btnVideoCodecProps_Click(ByVal sender As Object, ByVal e As System.EventArgs)
capturer.CurrentVideoCodec = cmbAviVideoCodecs.SelectedIndex
capturer.ShowVideoCodecSettingsDialog(Handle.ToInt32())
End Sub
' Show log
Private Sub linkViewLog_LinkClicked(ByVal sender As Object, ByVal e As LinkLabelLinkClickedEventArgs) Handles linkViewLog.LinkClicked
Dim logFile As String = Path.GetTempPath() & "Capturing Log.txt"
If File.Exists(logFile) Then
Dim prc As New Process()
prc.StartInfo.FileName = logFile
prc.StartInfo.UseShellExecute = True
Try
prc.Start()
Catch ex As Exception
MessageBox.Show(ex.Message)
End Try
End If
End Sub
Private Sub btnStartRecording_Click(sender As Object, e As System.EventArgs)
' Set up the capturer
If cbLog.Checked Then
capturer.SetLogFile(Path.GetTempPath() & "Capturing Log.txt")
End If
Dim captureToAvi As Boolean = (tabControl1.SelectedIndex = 1)
capturer.AudioEnabled = cbEnableAudio.Checked
capturer.CurrentAudioDeviceName = cmbAudioDevices.SelectedItem.ToString()
If cmbAudioLines.Items.Count > 0 Then
capturer.CurrentAudioDeviceLineName = cmbAudioLines.SelectedItem.ToString()
End If
If captureToAvi Then
capturer.CurrentAudioCodecName = cmbAviAudioCodecs.SelectedItem.ToString()
capturer.CurrentVideoCodecName = cmbAviVideoCodecs.SelectedItem.ToString()
Else
' capture to WMV
capturer.CurrentWMVAudioCodecName = cmbWmvAudioCodecs.SelectedItem.ToString()
capturer.CurrentWMVAudioFormat = cmbWmvAudioFormats.SelectedIndex
capturer.CurrentWMVVideoCodecName = cmbWmvVideoCodecs.SelectedItem.ToString()
End If
capturer.MouseAnimationDuration = 400
capturer.FPS = Single.Parse(cmbFPS.Text)
capturer.CaptureTransparentControls = cbCaptureLayeredWindows.Checked
capturer.MouseSpotRadius = CInt(Math.Truncate(nudMouseHotSpot.Value))
capturer.CaptureRectLeft = Integer.Parse(tbX.Text)
capturer.CaptureRectTop = Integer.Parse(tbY.Text)
capturer.CaptureRectWidth = Integer.Parse(tbWidth.Text)
capturer.CaptureRectHeight = Integer.Parse(tbHeight.Text)
capturer.OutputWidth = Integer.Parse(tbWidth.Text)
capturer.OutputHeight = Integer.Parse(tbHeight.Text)
' Set capturing mode
If rbRectRegion.Checked Then
capturer.CapturingType = CaptureAreaType.catRegion
' set border style
capturer.CaptureAreaBorderType = CaptureAreaBorderType.cabtDashed
ElseIf rbRegionAroundMouse.Checked Then
capturer.CapturingType = CaptureAreaType.catMouse
' set border style
capturer.CaptureAreaBorderType = CaptureAreaBorderType.cabtDashed
Else
capturer.CapturingType = CaptureAreaType.catScreen
End If
If cbShowWebCamOverlay.Checked Then
' Set web camera device to add overlaying video to the source
capturer.AddWebCamVideo = True
' Set device name or you can set device by index using .CurrentCaptureDevice property
capturer.CurrentWebCam = cmbWebCameras.SelectedIndex
' Set rectangle to show overlaying video from webcam into the rectangle 160x120 (starting with left point at 10,10)
capturer.SetWebCamVideoRectangle(Integer.Parse(tbWebCameraX.Text), Integer.Parse(tbWebCameraY.Text), Integer.Parse(tbWebCameraWidth.Text), Integer.Parse(tbWebCameraHeight.Text))
End If
' Save to temp file
Dim filename As String = Path.GetTempFileName()
filename = Path.ChangeExtension(filename, CType(IIf(captureToAvi, "avi", "wmv"), String))
capturer.OutputFileName = filename
Try
' Start capturing
Try
Cursor = Cursors.WaitCursor
capturer.Run()
' IMPORTANT: if you want to check for some code if need to stop the recording then make sure you are
' using Thread.Sleep(1) inside the checking loop, so you have the loop like
' Do
' Thread.Sleep(1)
' While StopButtonNotClicked
' IMPORTANT: if you want to check for some code if need to stop the recording then make sure you are
' using Thread.Sleep(1) inside the checking loop, so you have the loop like
' Do
' Thread.Sleep(1)
' While StopButtonNotClicked
Finally
Cursor = Cursors.Default
End Try
_recording = True
btnStartRecording.Enabled = False
btnPauseRecording.Enabled = True
btnStopRecording.Enabled = True
' Wait for "Stop Recording" button pressed
While _recording
Thread.Sleep(10)
Application.DoEvents()
End While
' Stop capturing
Try
Cursor = Cursors.WaitCursor
capturer.Stop()
Finally
Cursor = Cursors.Default
End Try
' Ask for output file name
Dim dlg As New SaveFileDialog()
dlg.Title = "Save captured video as"
dlg.FileName = "Screencast"
If captureToAvi Then
dlg.DefaultExt = "*.avi"
dlg.Filter = "AVI files (*.avi)|*.avi|All files (*.*)|*.*"
Else
dlg.DefaultExt = "*.wmv"
dlg.Filter = "WMV files (*.wmv)|*.wmv|All files (*.*)|*.*"
End If
If dlg.ShowDialog() = DialogResult.OK Then
' Save to specified file name
File.Copy(capturer.OutputFileName, dlg.FileName, True)
End If
' clean up
Try
File.Delete(capturer.OutputFileName)
Catch
End Try
btnStartRecording.Enabled = True
btnPauseRecording.Enabled = False
btnStopRecording.Enabled = False
' open saved video in default video viewer
Try
Process.Start(dlg.FileName)
Catch
End Try
Catch ex As COMException
MessageBox.Show(ex.Message)
End Try
End Sub
Private Sub btnPauseRecording_Click(sender As Object, e As EventArgs)
Dim captureToAvi As Boolean = (tabControl1.SelectedIndex = 1)
If captureToAvi Then
MessageBox.Show("Pausing is only available for WMV format yet.")
Return
End If
If Not _paused Then
capturer.Pause()
_paused = True
btnPauseRecording.Text = "Resume recodring"
Else
' Resume capturing
capturer.Run()
_paused = False
btnPauseRecording.Text = "Pause recording"
End If
End Sub
Private Sub btnStopRecording_Click(sender As Object, e As System.EventArgs)
' Toggle recording flag
If _recording Then
_recording = False
End If
End Sub
End Class
+ Show More
Explore SDK documentations here.
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 Form1())
End Sub
End Class
+ Show More
Explore SDK documentations here.
Resources.Designer.vb
��'------------------------------------------------------------------------------
' <auto-generated>
' This code was generated by a tool.
' Runtime Version:2.0.50727.4927
'
' Changes to this file may cause incorrect behavior and will be lost if
' the code is regenerated.
' </auto-generated>
'------------------------------------------------------------------------------
Option Strict On
Option Explicit On
Imports System
Namespace My.Resources
'This class was auto-generated by the StronglyTypedResourceBuilder
'class via a tool like ResGen or Visual Studio.
'To add or remove a member, edit your .ResX file then rerun ResGen
'with the /str option, or rebuild your VS project.
'''<summary>
''' A strongly-typed resource class, for looking up localized strings, etc.
'''</summary>
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Resources.Tools.StronglyTypedResourceBuilder", "2.0.0.0"), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute(), _
Global.Microsoft.VisualBasic.HideModuleNameAttribute()> _
Friend Module Resources
Private resourceMan As Global.System.Resources.ResourceManager
Private resourceCulture As Global.System.Globalization.CultureInfo
'''<summary>
''' Returns the cached ResourceManager instance used by this class.
'''</summary>
<Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
Friend ReadOnly Property ResourceManager() As Global.System.Resources.ResourceManager
Get
If Object.ReferenceEquals(resourceMan, Nothing) Then
Dim temp As Global.System.Resources.ResourceManager = New Global.System.Resources.ResourceManager("VideoAudioSettings.Resources", GetType(Resources).Assembly)
resourceMan = temp
End If
Return resourceMan
End Get
End Property
'''<summary>
''' Overrides the current thread's CurrentUICulture property for all
''' resource lookups using this strongly typed resource class.
'''</summary>
<Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
Friend Property Culture() As Global.System.Globalization.CultureInfo
Get
Return resourceCulture
End Get
Set
resourceCulture = value
End Set
End Property
Friend ReadOnly Property wrench() As System.Drawing.Bitmap
Get
Dim obj As Object = ResourceManager.GetObject("wrench", resourceCulture)
Return CType(obj,System.Drawing.Bitmap)
End Get
End Property
End Module
End Namespace
+ Show More
Explore SDK documentations here.
Settings.Designer.vb
��'------------------------------------------------------------------------------
' <auto-generated>
' This code was generated by a tool.
' Runtime Version:2.0.50727.4927
'
' Changes to this file may cause incorrect behavior and will be lost if
' the code is regenerated.
' </auto-generated>
'------------------------------------------------------------------------------
Namespace Properties
<System.Runtime.CompilerServices.CompilerGeneratedAttribute> _
<System.CodeDom.Compiler.GeneratedCodeAttribute("Microsoft.VisualStudio.Editors.SettingsDesigner.SettingsSingleFileGenerator", "8.0.0.0")> _
Friend NotInheritable Partial Class Settings
Inherits Global.System.Configuration.ApplicationSettingsBase
Private Shared defaultInstance As Settings = DirectCast(Global.System.Configuration.ApplicationSettingsBase.Synchronized(New Settings()), Settings)
Public Shared ReadOnly Property [Default]() As Settings
Get
Return defaultInstance
End Get
End Property
End Class
End Namespace
+ Show More
Explore SDK documentations here.