GithubStar/staxrip
1
0
Fork 0
mirror of https://github.com/staxrip/staxrip.git synced 2026-10-25 02:30:28 +08:00
Code Issues Packages Projects Releases Wiki Activity
Files
0c8eb0eca0ea6c2a3476da07c19c8e0bf2c20ab0
staxrip/Forms/AudioForm.vb
T

1348 lines
60 KiB
VB.net
Raw Blame History

Imports StaxRip.UI
Public Class AudioForm
Inherits DialogBase
#Region " Designer "
Protected Overloads Overrides Sub Dispose(disposing As Boolean)
If disposing Then
If Not (components Is Nothing) Then
components.Dispose()
End If
End If
MyBase.Dispose(disposing)
End Sub
Friend WithEvents CommandLink1 As StaxRip.UI.CommandLink
Friend WithEvents gbBasic As System.Windows.Forms.GroupBox
Friend WithEvents numQuality As NumEdit
Friend WithEvents numBitrate As NumEdit
Friend WithEvents lQualiy As System.Windows.Forms.Label
Friend WithEvents lCodec As System.Windows.Forms.Label
Friend WithEvents mbCodec As StaxRip.UI.MenuButton
Friend WithEvents mbLanguage As StaxRip.UI.MenuButton
Friend WithEvents lLanguage As System.Windows.Forms.Label
Friend WithEvents numDelay As NumEdit
Friend WithEvents lDelay As System.Windows.Forms.Label
Friend WithEvents mbChannels As StaxRip.UI.MenuButton
Friend WithEvents lChannels As System.Windows.Forms.Label
Friend WithEvents gbAdvanced As System.Windows.Forms.GroupBox
Friend WithEvents laProfileName As System.Windows.Forms.Label
Friend WithEvents tbProfileName As System.Windows.Forms.TextBox
Friend WithEvents TipProvider As StaxRip.UI.TipProvider
Friend WithEvents mbSamplingRate As StaxRip.UI.MenuButton
Friend WithEvents Label1 As System.Windows.Forms.Label
Friend WithEvents bnOK As StaxRip.UI.ButtonEx
Friend WithEvents bnCancel As StaxRip.UI.ButtonEx
Friend WithEvents mbEncoder As StaxRip.UI.MenuButton
Friend WithEvents Label2 As System.Windows.Forms.Label
Friend WithEvents FlowLayoutPanel1 As System.Windows.Forms.FlowLayoutPanel
Friend WithEvents SimpleUI As StaxRip.SimpleUI
Friend WithEvents Label3 As System.Windows.Forms.Label
Friend WithEvents numGain As StaxRip.UI.NumEdit
Friend WithEvents Label4 As System.Windows.Forms.Label
Friend WithEvents tlpMain As TableLayoutPanel
Friend WithEvents flpButtons As FlowLayoutPanel
Friend WithEvents tlpBasic As TableLayoutPanel
Friend WithEvents bnMenu As ButtonEx
Friend WithEvents tlpRTB As TableLayoutPanel
Friend WithEvents rtbCommandLine As CommandLineRichTextBox
Friend WithEvents laStreamName As Label
Friend WithEvents tbStreamName As TextBox
Friend WithEvents laCustom As Label
Friend WithEvents tbCustom As TextBox
Friend WithEvents cbForcedTrack As CheckBoxEx
Friend WithEvents cbDefaultTrack As CheckBoxEx
Friend WithEvents Label5 As Label
Friend WithEvents mbDecoder As MenuButton
Friend WithEvents tlpAdvanced As TableLayoutPanel
Friend WithEvents bnAdvanced As ButtonEx
Friend WithEvents cbNormalize As CheckBoxEx
Private components As System.ComponentModel.IContainer
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
Me.components = New System.ComponentModel.Container()
Me.gbBasic = New System.Windows.Forms.GroupBox()
Me.tlpBasic = New System.Windows.Forms.TableLayoutPanel()
Me.lCodec = New System.Windows.Forms.Label()
Me.tbProfileName = New System.Windows.Forms.TextBox()
Me.laProfileName = New System.Windows.Forms.Label()
Me.mbCodec = New StaxRip.UI.MenuButton()
Me.mbLanguage = New StaxRip.UI.MenuButton()
Me.mbSamplingRate = New StaxRip.UI.MenuButton()
Me.lLanguage = New System.Windows.Forms.Label()
Me.Label1 = New System.Windows.Forms.Label()
Me.Label3 = New System.Windows.Forms.Label()
Me.numBitrate = New StaxRip.UI.NumEdit()
Me.Label2 = New System.Windows.Forms.Label()
Me.mbEncoder = New StaxRip.UI.MenuButton()
Me.lChannels = New System.Windows.Forms.Label()
Me.mbChannels = New StaxRip.UI.MenuButton()
Me.laStreamName = New System.Windows.Forms.Label()
Me.tbStreamName = New System.Windows.Forms.TextBox()
Me.laCustom = New System.Windows.Forms.Label()
Me.tbCustom = New System.Windows.Forms.TextBox()
Me.cbDefaultTrack = New StaxRip.UI.CheckBoxEx()
Me.cbForcedTrack = New StaxRip.UI.CheckBoxEx()
Me.Label5 = New System.Windows.Forms.Label()
Me.mbDecoder = New StaxRip.UI.MenuButton()
Me.lQualiy = New System.Windows.Forms.Label()
Me.numQuality = New StaxRip.UI.NumEdit()
Me.Label4 = New System.Windows.Forms.Label()
Me.numGain = New StaxRip.UI.NumEdit()
Me.lDelay = New System.Windows.Forms.Label()
Me.numDelay = New StaxRip.UI.NumEdit()
Me.gbAdvanced = New System.Windows.Forms.GroupBox()
Me.tlpAdvanced = New System.Windows.Forms.TableLayoutPanel()
Me.SimpleUI = New StaxRip.SimpleUI()
Me.bnAdvanced = New StaxRip.UI.ButtonEx()
Me.TipProvider = New StaxRip.UI.TipProvider(Me.components)
Me.bnOK = New StaxRip.UI.ButtonEx()
Me.bnCancel = New StaxRip.UI.ButtonEx()
Me.FlowLayoutPanel1 = New System.Windows.Forms.FlowLayoutPanel()
Me.tlpMain = New System.Windows.Forms.TableLayoutPanel()
Me.flpButtons = New System.Windows.Forms.FlowLayoutPanel()
Me.bnMenu = New StaxRip.UI.ButtonEx()
Me.tlpRTB = New System.Windows.Forms.TableLayoutPanel()
Me.rtbCommandLine = New StaxRip.UI.CommandLineRichTextBox()
Me.cbNormalize = New StaxRip.UI.CheckBoxEx()
Me.gbBasic.SuspendLayout()
Me.tlpBasic.SuspendLayout()
Me.gbAdvanced.SuspendLayout()
Me.tlpAdvanced.SuspendLayout()
Me.tlpMain.SuspendLayout()
Me.flpButtons.SuspendLayout()
Me.tlpRTB.SuspendLayout()
Me.SuspendLayout()
'
'gbBasic
'
Me.gbBasic.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.gbBasic.Controls.Add(Me.tlpBasic)
Me.gbBasic.Location = New System.Drawing.Point(15, 14)
Me.gbBasic.Margin = New System.Windows.Forms.Padding(15, 14, 7, 14)
Me.gbBasic.Name = "gbBasic"
Me.gbBasic.Padding = New System.Windows.Forms.Padding(5)
Me.gbBasic.Size = New System.Drawing.Size(911, 1018)
Me.gbBasic.TabIndex = 1
Me.gbBasic.TabStop = False
Me.gbBasic.Text = "Basic"
'
'tlpBasic
'
Me.tlpBasic.ColumnCount = 4
Me.tlpBasic.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle())
Me.tlpBasic.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Percent, 60.0!))
Me.tlpBasic.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle())
Me.tlpBasic.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Percent, 40.0!))
Me.tlpBasic.Controls.Add(Me.lCodec, 0, 0)
Me.tlpBasic.Controls.Add(Me.tbProfileName, 1, 7)
Me.tlpBasic.Controls.Add(Me.laProfileName, 0, 7)
Me.tlpBasic.Controls.Add(Me.mbCodec, 1, 0)
Me.tlpBasic.Controls.Add(Me.mbLanguage, 1, 5)
Me.tlpBasic.Controls.Add(Me.mbSamplingRate, 1, 4)
Me.tlpBasic.Controls.Add(Me.lLanguage, 0, 5)
Me.tlpBasic.Controls.Add(Me.Label1, 0, 4)
Me.tlpBasic.Controls.Add(Me.Label3, 2, 0)
Me.tlpBasic.Controls.Add(Me.numBitrate, 3, 0)
Me.tlpBasic.Controls.Add(Me.Label2, 0, 2)
Me.tlpBasic.Controls.Add(Me.mbEncoder, 1, 2)
Me.tlpBasic.Controls.Add(Me.lChannels, 0, 3)
Me.tlpBasic.Controls.Add(Me.mbChannels, 1, 3)
Me.tlpBasic.Controls.Add(Me.laStreamName, 0, 8)
Me.tlpBasic.Controls.Add(Me.tbStreamName, 1, 8)
Me.tlpBasic.Controls.Add(Me.laCustom, 0, 9)
Me.tlpBasic.Controls.Add(Me.tbCustom, 1, 9)
Me.tlpBasic.Controls.Add(Me.cbDefaultTrack, 0, 11)
Me.tlpBasic.Controls.Add(Me.cbForcedTrack, 0, 12)
Me.tlpBasic.Controls.Add(Me.Label5, 0, 1)
Me.tlpBasic.Controls.Add(Me.mbDecoder, 1, 1)
Me.tlpBasic.Controls.Add(Me.lQualiy, 2, 1)
Me.tlpBasic.Controls.Add(Me.numQuality, 3, 1)
Me.tlpBasic.Controls.Add(Me.Label4, 2, 2)
Me.tlpBasic.Controls.Add(Me.numGain, 3, 2)
Me.tlpBasic.Controls.Add(Me.cbNormalize, 0, 10)
Me.tlpBasic.Controls.Add(Me.numDelay, 3, 3)
Me.tlpBasic.Controls.Add(Me.lDelay, 2, 3)
Me.tlpBasic.Dock = System.Windows.Forms.DockStyle.Fill
Me.tlpBasic.Location = New System.Drawing.Point(5, 53)
Me.tlpBasic.Margin = New System.Windows.Forms.Padding(5)
Me.tlpBasic.Name = "tlpBasic"
Me.tlpBasic.RowCount = 14
Me.tlpBasic.RowStyles.Add(New System.Windows.Forms.RowStyle())
Me.tlpBasic.RowStyles.Add(New System.Windows.Forms.RowStyle())
Me.tlpBasic.RowStyles.Add(New System.Windows.Forms.RowStyle())
Me.tlpBasic.RowStyles.Add(New System.Windows.Forms.RowStyle())
Me.tlpBasic.RowStyles.Add(New System.Windows.Forms.RowStyle())
Me.tlpBasic.RowStyles.Add(New System.Windows.Forms.RowStyle())
Me.tlpBasic.RowStyles.Add(New System.Windows.Forms.RowStyle())
Me.tlpBasic.RowStyles.Add(New System.Windows.Forms.RowStyle())
Me.tlpBasic.RowStyles.Add(New System.Windows.Forms.RowStyle())
Me.tlpBasic.RowStyles.Add(New System.Windows.Forms.RowStyle())
Me.tlpBasic.RowStyles.Add(New System.Windows.Forms.RowStyle())
Me.tlpBasic.RowStyles.Add(New System.Windows.Forms.RowStyle())
Me.tlpBasic.RowStyles.Add(New System.Windows.Forms.RowStyle())
Me.tlpBasic.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Absolute, 8.0!))
Me.tlpBasic.Size = New System.Drawing.Size(901, 960)
Me.tlpBasic.TabIndex = 44
'
'lCodec
'
Me.lCodec.Anchor = System.Windows.Forms.AnchorStyles.Left
Me.lCodec.AutoSize = True
Me.lCodec.Location = New System.Drawing.Point(5, 16)
Me.lCodec.Margin = New System.Windows.Forms.Padding(5, 0, 5, 0)
Me.lCodec.Name = "lCodec"
Me.lCodec.Size = New System.Drawing.Size(128, 48)
Me.lCodec.TabIndex = 0
Me.lCodec.Text = "Codec:"
'
'tbProfileName
'
Me.tbProfileName.Anchor = CType((System.Windows.Forms.AnchorStyles.Left Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.tlpBasic.SetColumnSpan(Me.tbProfileName, 3)
Me.tbProfileName.Location = New System.Drawing.Point(259, 485)
Me.tbProfileName.Margin = New System.Windows.Forms.Padding(5)
Me.tbProfileName.Name = "tbProfileName"
Me.tbProfileName.Size = New System.Drawing.Size(637, 55)
Me.tbProfileName.TabIndex = 16
'
'laProfileName
'
Me.laProfileName.Anchor = System.Windows.Forms.AnchorStyles.Left
Me.laProfileName.AutoSize = True
Me.laProfileName.Location = New System.Drawing.Point(5, 488)
Me.laProfileName.Margin = New System.Windows.Forms.Padding(5, 0, 5, 0)
Me.laProfileName.Name = "laProfileName"
Me.laProfileName.Size = New System.Drawing.Size(235, 48)
Me.laProfileName.TabIndex = 15
Me.laProfileName.Text = "Profile Name:"
'
'mbCodec
'
Me.mbCodec.Anchor = CType((System.Windows.Forms.AnchorStyles.Left Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.mbCodec.Location = New System.Drawing.Point(259, 5)
Me.mbCodec.Margin = New System.Windows.Forms.Padding(5)
Me.mbCodec.ShowMenuSymbol = True
Me.mbCodec.Size = New System.Drawing.Size(288, 70)
Me.mbCodec.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
'
'mbLanguage
'
Me.mbLanguage.Anchor = CType((System.Windows.Forms.AnchorStyles.Left Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.mbLanguage.Location = New System.Drawing.Point(259, 405)
Me.mbLanguage.Margin = New System.Windows.Forms.Padding(5)
Me.mbLanguage.ShowMenuSymbol = True
Me.mbLanguage.Size = New System.Drawing.Size(288, 70)
Me.mbLanguage.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
'
'mbSamplingRate
'
Me.mbSamplingRate.Anchor = CType((System.Windows.Forms.AnchorStyles.Left Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.mbSamplingRate.Location = New System.Drawing.Point(259, 325)
Me.mbSamplingRate.Margin = New System.Windows.Forms.Padding(5)
Me.mbSamplingRate.ShowMenuSymbol = True
Me.mbSamplingRate.Size = New System.Drawing.Size(288, 70)
Me.mbSamplingRate.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
'
'lLanguage
'
Me.lLanguage.Anchor = System.Windows.Forms.AnchorStyles.Left
Me.lLanguage.AutoSize = True
Me.lLanguage.Location = New System.Drawing.Point(5, 416)
Me.lLanguage.Margin = New System.Windows.Forms.Padding(5, 0, 5, 0)
Me.lLanguage.Name = "lLanguage"
Me.lLanguage.Size = New System.Drawing.Size(182, 48)
Me.lLanguage.TabIndex = 10
Me.lLanguage.Text = "Language:"
'
'Label1
'
Me.Label1.Anchor = System.Windows.Forms.AnchorStyles.Left
Me.Label1.AutoSize = True
Me.Label1.Location = New System.Drawing.Point(5, 336)
Me.Label1.Margin = New System.Windows.Forms.Padding(5, 0, 5, 0)
Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(226, 48)
Me.Label1.TabIndex = 8
Me.Label1.Text = "Sample Rate:"
'
'Label3
'
Me.Label3.Anchor = System.Windows.Forms.AnchorStyles.Left
Me.Label3.AutoSize = True
Me.Label3.Location = New System.Drawing.Point(557, 16)
Me.Label3.Margin = New System.Windows.Forms.Padding(5, 0, 5, 0)
Me.Label3.Name = "Label3"
Me.Label3.Size = New System.Drawing.Size(132, 48)
Me.Label3.TabIndex = 29
Me.Label3.TabStop = True
Me.Label3.Text = "Bitrate:"
'
'numBitrate
'
Me.numBitrate.Anchor = CType((System.Windows.Forms.AnchorStyles.Left Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.numBitrate.Location = New System.Drawing.Point(707, 5)
Me.numBitrate.Margin = New System.Windows.Forms.Padding(5)
Me.numBitrate.Name = "numBitrate"
Me.numBitrate.Size = New System.Drawing.Size(189, 70)
Me.numBitrate.TabIndex = 17
'
'Label2
'
Me.Label2.Anchor = System.Windows.Forms.AnchorStyles.Left
Me.Label2.AutoSize = True
Me.Label2.Location = New System.Drawing.Point(5, 176)
Me.Label2.Margin = New System.Windows.Forms.Padding(5, 0, 5, 0)
Me.Label2.Name = "Label2"
Me.Label2.Size = New System.Drawing.Size(157, 48)
Me.Label2.TabIndex = 24
Me.Label2.Text = "Encoder:"
'
'mbEncoder
'
Me.mbEncoder.Anchor = CType((System.Windows.Forms.AnchorStyles.Left Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.mbEncoder.Location = New System.Drawing.Point(259, 165)
Me.mbEncoder.Margin = New System.Windows.Forms.Padding(5)
Me.mbEncoder.ShowMenuSymbol = True
Me.mbEncoder.Size = New System.Drawing.Size(288, 70)
Me.mbEncoder.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
'
'lChannels
'
Me.lChannels.Anchor = System.Windows.Forms.AnchorStyles.Left
Me.lChannels.AutoSize = True
Me.lChannels.Location = New System.Drawing.Point(5, 256)
Me.lChannels.Margin = New System.Windows.Forms.Padding(5, 0, 5, 0)
Me.lChannels.Name = "lChannels"
Me.lChannels.Size = New System.Drawing.Size(171, 48)
Me.lChannels.TabIndex = 5
Me.lChannels.Text = "Channels:"
'
'mbChannels
'
Me.mbChannels.Anchor = CType((System.Windows.Forms.AnchorStyles.Left Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.mbChannels.Location = New System.Drawing.Point(259, 245)
Me.mbChannels.Margin = New System.Windows.Forms.Padding(5)
Me.mbChannels.ShowMenuSymbol = True
Me.mbChannels.Size = New System.Drawing.Size(288, 70)
Me.mbChannels.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
'
'laStreamName
'
Me.laStreamName.Anchor = System.Windows.Forms.AnchorStyles.Left
Me.laStreamName.AutoSize = True
Me.laStreamName.Location = New System.Drawing.Point(5, 553)
Me.laStreamName.Margin = New System.Windows.Forms.Padding(5, 0, 5, 0)
Me.laStreamName.Name = "laStreamName"
Me.laStreamName.Size = New System.Drawing.Size(244, 48)
Me.laStreamName.TabIndex = 44
Me.laStreamName.Text = "Track Name:"
'
'tbStreamName
'
Me.tbStreamName.Anchor = CType((System.Windows.Forms.AnchorStyles.Left Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.tlpBasic.SetColumnSpan(Me.tbStreamName, 3)
Me.tbStreamName.Location = New System.Drawing.Point(259, 550)
Me.tbStreamName.Margin = New System.Windows.Forms.Padding(5)
Me.tbStreamName.Name = "tbStreamName"
Me.tbStreamName.Size = New System.Drawing.Size(637, 55)
Me.tbStreamName.TabIndex = 45
'
'laCustom
'
Me.laCustom.Anchor = System.Windows.Forms.AnchorStyles.Left
Me.laCustom.AutoSize = True
Me.laCustom.Location = New System.Drawing.Point(5, 618)
Me.laCustom.Margin = New System.Windows.Forms.Padding(5, 0, 5, 0)
Me.laCustom.Name = "laCustom"
Me.laCustom.Size = New System.Drawing.Size(141, 48)
Me.laCustom.TabIndex = 46
Me.laCustom.Text = "Custom"
'
'tbCustom
'
Me.tbCustom.Anchor = CType((System.Windows.Forms.AnchorStyles.Left Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.tlpBasic.SetColumnSpan(Me.tbCustom, 3)
Me.tbCustom.Location = New System.Drawing.Point(259, 615)
Me.tbCustom.Margin = New System.Windows.Forms.Padding(5)
Me.tbCustom.Name = "tbCustom"
Me.tbCustom.Size = New System.Drawing.Size(637, 55)
Me.tbCustom.TabIndex = 47
'
'cbDefaultTrack
'
Me.cbDefaultTrack.AutoSize = True
Me.tlpBasic.SetColumnSpan(Me.cbDefaultTrack, 4)
Me.cbDefaultTrack.Location = New System.Drawing.Point(15, 736)
Me.cbDefaultTrack.Margin = New System.Windows.Forms.Padding(15, 3, 3, 3)
Me.cbDefaultTrack.Size = New System.Drawing.Size(272, 52)
Me.cbDefaultTrack.Text = "Default Track"
Me.cbDefaultTrack.UseVisualStyleBackColor = True
'
'cbForcedTrack
'
Me.cbForcedTrack.AutoSize = True
Me.tlpBasic.SetColumnSpan(Me.cbForcedTrack, 4)
Me.cbForcedTrack.Location = New System.Drawing.Point(15, 794)
Me.cbForcedTrack.Margin = New System.Windows.Forms.Padding(15, 3, 3, 3)
Me.cbForcedTrack.Size = New System.Drawing.Size(267, 52)
Me.cbForcedTrack.Text = "Forced Track"
Me.cbForcedTrack.UseVisualStyleBackColor = True
'
'Label5
'
Me.Label5.Anchor = System.Windows.Forms.AnchorStyles.Left
Me.Label5.AutoSize = True
Me.Label5.Location = New System.Drawing.Point(5, 96)
Me.Label5.Margin = New System.Windows.Forms.Padding(5, 0, 5, 0)
Me.Label5.Name = "Label5"
Me.Label5.Size = New System.Drawing.Size(163, 48)
Me.Label5.TabIndex = 50
Me.Label5.Text = "Decoder:"
'
'mbDecoder
'
Me.mbDecoder.Anchor = CType((System.Windows.Forms.AnchorStyles.Left Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.mbDecoder.Location = New System.Drawing.Point(259, 85)
Me.mbDecoder.Margin = New System.Windows.Forms.Padding(5)
Me.mbDecoder.ShowMenuSymbol = True
Me.mbDecoder.Size = New System.Drawing.Size(288, 70)
Me.mbDecoder.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
'
'lQualiy
'
Me.lQualiy.Anchor = System.Windows.Forms.AnchorStyles.Left
Me.lQualiy.AutoSize = True
Me.lQualiy.Location = New System.Drawing.Point(557, 96)
Me.lQualiy.Margin = New System.Windows.Forms.Padding(5, 0, 5, 0)
Me.lQualiy.Name = "lQualiy"
Me.lQualiy.Size = New System.Drawing.Size(140, 48)
Me.lQualiy.TabIndex = 12
Me.lQualiy.TabStop = True
Me.lQualiy.Text = "Quality:"
'
'numQuality
'
Me.numQuality.Anchor = CType((System.Windows.Forms.AnchorStyles.Left Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.numQuality.Location = New System.Drawing.Point(707, 85)
Me.numQuality.Margin = New System.Windows.Forms.Padding(5)
Me.numQuality.Name = "numQuality"
Me.numQuality.Size = New System.Drawing.Size(189, 70)
Me.numQuality.TabIndex = 18
'
'Label4
'
Me.Label4.Anchor = System.Windows.Forms.AnchorStyles.Left
Me.Label4.AutoSize = True
Me.Label4.Location = New System.Drawing.Point(557, 176)
Me.Label4.Margin = New System.Windows.Forms.Padding(5, 0, 5, 0)
Me.Label4.Name = "Label4"
Me.Label4.Size = New System.Drawing.Size(100, 48)
Me.Label4.TabIndex = 36
Me.Label4.TabStop = True
Me.Label4.Text = "Gain:"
'
'numGain
'
Me.numGain.Anchor = CType((System.Windows.Forms.AnchorStyles.Left Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.numGain.Location = New System.Drawing.Point(707, 165)
Me.numGain.Margin = New System.Windows.Forms.Padding(5)
Me.numGain.Name = "numGain"
Me.numGain.Size = New System.Drawing.Size(189, 70)
Me.numGain.TabIndex = 37
'
'lDelay
'
Me.lDelay.Anchor = System.Windows.Forms.AnchorStyles.Left
Me.lDelay.AutoSize = True
Me.lDelay.Location = New System.Drawing.Point(557, 256)
Me.lDelay.Margin = New System.Windows.Forms.Padding(5, 0, 5, 0)
Me.lDelay.Name = "lDelay"
Me.lDelay.Size = New System.Drawing.Size(116, 48)
Me.lDelay.TabIndex = 14
Me.lDelay.TabStop = True
Me.lDelay.Text = "Delay:"
'
'numDelay
'
Me.numDelay.Anchor = CType((System.Windows.Forms.AnchorStyles.Left Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.numDelay.Location = New System.Drawing.Point(707, 245)
Me.numDelay.Margin = New System.Windows.Forms.Padding(5)
Me.numDelay.Name = "numDelay"
Me.numDelay.Size = New System.Drawing.Size(189, 70)
Me.numDelay.TabIndex = 19
'
'gbAdvanced
'
Me.gbAdvanced.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.gbAdvanced.Controls.Add(Me.tlpAdvanced)
Me.gbAdvanced.Location = New System.Drawing.Point(940, 14)
Me.gbAdvanced.Margin = New System.Windows.Forms.Padding(7, 14, 15, 14)
Me.gbAdvanced.Name = "gbAdvanced"
Me.gbAdvanced.Padding = New System.Windows.Forms.Padding(5)
Me.gbAdvanced.Size = New System.Drawing.Size(911, 1018)
Me.gbAdvanced.TabIndex = 3
Me.gbAdvanced.TabStop = False
Me.gbAdvanced.Text = "Advanced"
'
'tlpAdvanced
'
Me.tlpAdvanced.ColumnCount = 1
Me.tlpAdvanced.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Percent, 50.0!))
Me.tlpAdvanced.Controls.Add(Me.SimpleUI, 0, 0)
Me.tlpAdvanced.Controls.Add(Me.bnAdvanced, 0, 1)
Me.tlpAdvanced.Dock = System.Windows.Forms.DockStyle.Fill
Me.tlpAdvanced.Location = New System.Drawing.Point(5, 53)
Me.tlpAdvanced.Name = "tlpAdvanced"
Me.tlpAdvanced.RowCount = 2
Me.tlpAdvanced.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Percent, 50.0!))
Me.tlpAdvanced.RowStyles.Add(New System.Windows.Forms.RowStyle())
Me.tlpAdvanced.Size = New System.Drawing.Size(901, 960)
Me.tlpAdvanced.TabIndex = 1
'
'SimpleUI
'
Me.SimpleUI.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.SimpleUI.FormSizeScaleFactor = New System.Drawing.SizeF(0!, 0!)
Me.SimpleUI.Location = New System.Drawing.Point(4, 3)
Me.SimpleUI.Margin = New System.Windows.Forms.Padding(4, 3, 4, 3)
Me.SimpleUI.Name = "SimpleUI"
Me.SimpleUI.Size = New System.Drawing.Size(893, 878)
Me.SimpleUI.TabIndex = 0
Me.SimpleUI.Text = "SimpleUI1"
'
'bnAdvanced
'
Me.bnAdvanced.Anchor = CType((System.Windows.Forms.AnchorStyles.Left Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.bnAdvanced.Location = New System.Drawing.Point(3, 887)
Me.bnAdvanced.Size = New System.Drawing.Size(895, 70)
Me.bnAdvanced.Text = "More..."
'
'bnOK
'
Me.bnOK.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.bnOK.DialogResult = System.Windows.Forms.DialogResult.OK
Me.bnOK.Location = New System.Drawing.Point(85, 15)
Me.bnOK.Margin = New System.Windows.Forms.Padding(15)
Me.bnOK.Size = New System.Drawing.Size(250, 70)
Me.bnOK.Text = "OK"
'
'bnCancel
'
Me.bnCancel.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.bnCancel.DialogResult = System.Windows.Forms.DialogResult.Cancel
Me.bnCancel.Location = New System.Drawing.Point(350, 15)
Me.bnCancel.Margin = New System.Windows.Forms.Padding(0, 15, 15, 15)
Me.bnCancel.Size = New System.Drawing.Size(250, 70)
Me.bnCancel.Text = "Cancel"
'
'FlowLayoutPanel1
'
Me.FlowLayoutPanel1.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
Me.FlowLayoutPanel1.AutoSize = True
Me.FlowLayoutPanel1.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink
Me.FlowLayoutPanel1.Location = New System.Drawing.Point(22, 1268)
Me.FlowLayoutPanel1.Margin = New System.Windows.Forms.Padding(5)
Me.FlowLayoutPanel1.Name = "FlowLayoutPanel1"
Me.FlowLayoutPanel1.Size = New System.Drawing.Size(0, 0)
Me.FlowLayoutPanel1.TabIndex = 4
'
'tlpMain
'
Me.tlpMain.AutoSize = True
Me.tlpMain.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink
Me.tlpMain.ColumnCount = 2
Me.tlpMain.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Percent, 50.0!))
Me.tlpMain.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Percent, 50.0!))
Me.tlpMain.Controls.Add(Me.gbBasic, 0, 0)
Me.tlpMain.Controls.Add(Me.flpButtons, 1, 2)
Me.tlpMain.Controls.Add(Me.gbAdvanced, 1, 0)
Me.tlpMain.Controls.Add(Me.tlpRTB, 0, 1)
Me.tlpMain.Dock = System.Windows.Forms.DockStyle.Fill
Me.tlpMain.Location = New System.Drawing.Point(0, 0)
Me.tlpMain.Margin = New System.Windows.Forms.Padding(4, 3, 4, 3)
Me.tlpMain.Name = "tlpMain"
Me.tlpMain.RowCount = 3
Me.tlpMain.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Percent, 100.0!))
Me.tlpMain.RowStyles.Add(New System.Windows.Forms.RowStyle())
Me.tlpMain.RowStyles.Add(New System.Windows.Forms.RowStyle())
Me.tlpMain.Size = New System.Drawing.Size(1866, 1206)
Me.tlpMain.TabIndex = 11
'
'flpButtons
'
Me.flpButtons.Anchor = System.Windows.Forms.AnchorStyles.Right
Me.flpButtons.AutoSize = True
Me.flpButtons.Controls.Add(Me.bnMenu)
Me.flpButtons.Controls.Add(Me.bnOK)
Me.flpButtons.Controls.Add(Me.bnCancel)
Me.flpButtons.Location = New System.Drawing.Point(1251, 1106)
Me.flpButtons.Margin = New System.Windows.Forms.Padding(0)
Me.flpButtons.Name = "flpButtons"
Me.flpButtons.Size = New System.Drawing.Size(615, 100)
Me.flpButtons.TabIndex = 11
'
'bnMenu
'
Me.bnMenu.Anchor = System.Windows.Forms.AnchorStyles.None
Me.bnMenu.Location = New System.Drawing.Point(0, 15)
Me.bnMenu.Margin = New System.Windows.Forms.Padding(0)
Me.bnMenu.ShowMenuSymbol = True
Me.bnMenu.Size = New System.Drawing.Size(70, 70)
'
'tlpRTB
'
Me.tlpRTB.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.tlpRTB.AutoSize = True
Me.tlpRTB.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink
Me.tlpRTB.ColumnCount = 1
Me.tlpMain.SetColumnSpan(Me.tlpRTB, 2)
Me.tlpRTB.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Percent, 50.0!))
Me.tlpRTB.Controls.Add(Me.rtbCommandLine, 0, 0)
Me.tlpRTB.Location = New System.Drawing.Point(15, 1046)
Me.tlpRTB.Margin = New System.Windows.Forms.Padding(15, 0, 15, 0)
Me.tlpRTB.Name = "tlpRTB"
Me.tlpRTB.RowCount = 1
Me.tlpRTB.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Percent, 50.0!))
Me.tlpRTB.Size = New System.Drawing.Size(1836, 60)
Me.tlpRTB.TabIndex = 12
'
'rtbCommandLine
'
Me.rtbCommandLine.BorderStyle = System.Windows.Forms.BorderStyle.None
Me.rtbCommandLine.Dock = System.Windows.Forms.DockStyle.Fill
Me.rtbCommandLine.LastCommandLine = Nothing
Me.rtbCommandLine.Location = New System.Drawing.Point(0, 0)
Me.rtbCommandLine.Margin = New System.Windows.Forms.Padding(0)
Me.rtbCommandLine.Name = "rtbCommandLine"
Me.rtbCommandLine.ReadOnly = True
Me.rtbCommandLine.Size = New System.Drawing.Size(1836, 60)
Me.rtbCommandLine.TabIndex = 45
Me.rtbCommandLine.Text = ""
'
'cbNormalize
'
Me.cbNormalize.AutoSize = True
Me.tlpBasic.SetColumnSpan(Me.cbNormalize, 4)
Me.cbNormalize.Location = New System.Drawing.Point(15, 678)
Me.cbNormalize.Margin = New System.Windows.Forms.Padding(15, 3, 3, 3)
Me.cbNormalize.Size = New System.Drawing.Size(229, 52)
Me.cbNormalize.Text = "Normalize"
Me.cbNormalize.UseVisualStyleBackColor = True
'
'AudioForm
'
Me.AcceptButton = Me.bnOK
Me.AutoScaleDimensions = New System.Drawing.SizeF(288.0!, 288.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Dpi
Me.AutoSize = True
Me.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink
Me.CancelButton = Me.bnCancel
Me.ClientSize = New System.Drawing.Size(1866, 1206)
Me.Controls.Add(Me.tlpMain)
Me.Controls.Add(Me.FlowLayoutPanel1)
Me.KeyPreview = True
Me.Margin = New System.Windows.Forms.Padding(7)
Me.Name = "AudioForm"
Me.Text = "Audio Settings"
Me.gbBasic.ResumeLayout(False)
Me.tlpBasic.ResumeLayout(False)
Me.tlpBasic.PerformLayout()
Me.gbAdvanced.ResumeLayout(False)
Me.tlpAdvanced.ResumeLayout(False)
Me.tlpMain.ResumeLayout(False)
Me.tlpMain.PerformLayout()
Me.flpButtons.ResumeLayout(False)
Me.tlpRTB.ResumeLayout(False)
Me.ResumeLayout(False)
Me.PerformLayout()
End Sub
#End Region
Private Profile, TempProfile As GUIAudioProfile
Sub New()
MyBase.New()
InitializeComponent()
rtbCommandLine.ReadOnly = True
mbSamplingRate.Add("Original", 0)
mbSamplingRate.Add("11025 Hz", 11025)
mbSamplingRate.Add("22050 Hz", 22050)
mbSamplingRate.Add("44100 Hz", 44100)
mbSamplingRate.Add("48000 Hz", 48000)
mbSamplingRate.Add("88200 Hz", 88200)
mbSamplingRate.Add("96000 Hz", 96000)
numBitrate.Minimum = 1
numBitrate.Maximum = 16000
numGain.DecimalPlaces = 1
cbDefaultTrack.Visible = TypeOf p.VideoEncoder.Muxer Is MkvMuxer
cbForcedTrack.Visible = TypeOf p.VideoEncoder.Muxer Is MkvMuxer
If components Is Nothing Then components = New System.ComponentModel.Container
rtbCommandLine.ScrollBars = RichTextBoxScrollBars.None
Dim cms As New ContextMenuStripEx(components)
bnMenu.ContextMenuStrip = cms
cms.Add("Copy Command Line", Sub() Clipboard.SetText(TempProfile.GetCommandLine(True))).SetImage(Symbol.Copy)
cms.Add("Execute Command Line", AddressOf Execute).SetImage(Symbol.fa_terminal)
cms.Add("Show Command Line...", Sub() g.ShowCommandLinePreview("Command Line", TempProfile.GetCommandLine(True)))
cms.Add("-")
cms.Add("Save Profile...", AddressOf SaveProfile, "Saves the current settings as profile").SetImage(Symbol.Save)
cms.Add("-")
cms.Add("Help", AddressOf ShowHelp).SetImage(Symbol.Help)
cms.Add("eac3to Help", Sub() g.StartProcess("http://en.wikibooks.org/wiki/Eac3to"))
cms.Add("ffmpeg Help", Sub() g.StartProcess(Package.ffmpeg.GetHelpPath))
TipProvider.SetTip("Profile name that is auto generated when undefined.", laProfileName)
TipProvider.SetTip("Language used by the muxer. Saved in projects/templates but not in profiles.", mbLanguage, lLanguage)
TipProvider.SetTip("Delay in milliseconds. eac3to handles delay, ffmpeg don't but it is handled by the muxer. Saved in projects/templates but not in profiles.", numDelay, lDelay)
TipProvider.SetTip("Track name used by the muxer.", tbStreamName, laStreamName)
TipProvider.SetTip("Custom command line arguments.", tbCustom, laCustom)
TipProvider.SetTip("Default MKV Track.", cbDefaultTrack)
TipProvider.SetTip("Forced MKV Track.", cbForcedTrack)
End Sub
Private Sub AudioForm_FormClosed(sender As Object, e As FormClosedEventArgs) Handles Me.FormClosed
If DialogResult = DialogResult.OK Then SetValues(Profile)
End Sub
Sub SetValues(gap As GUIAudioProfile)
gap.Bitrate = TempProfile.Bitrate
gap.Language = TempProfile.Language
gap.Delay = TempProfile.Delay
gap.Name = TempProfile.Name
gap.StreamName = TempProfile.StreamName
gap.Gain = TempProfile.Gain
gap.Default = TempProfile.Default
gap.Forced = TempProfile.Forced
gap.Params = TempProfile.Params
gap.Decoder = TempProfile.Decoder
gap.DecodingMode = TempProfile.DecodingMode
End Sub
Sub UpdateBitrate()
nudQuality_ValueChanged(numQuality)
End Sub
Private Sub nudQuality_ValueChanged(numEdit As NumEdit) Handles numQuality.ValueChanged
If Not TempProfile Is Nothing Then
TempProfile.Params.Quality = CSng(numQuality.Value)
numBitrate.Value = TempProfile.GetBitrate
UpdateControls()
End If
End Sub
Private Sub nudBitrate_ValueChanged(numEdit As NumEdit) Handles numBitrate.ValueChanged
If Not TempProfile Is Nothing Then
TempProfile.Bitrate = CSng(numBitrate.Value)
UpdateControls()
End If
End Sub
Private Sub nudDelay_ValueChanged(numEdit As NumEdit) Handles numDelay.ValueChanged
TempProfile.Delay = CInt(numDelay.Value)
UpdateControls()
End Sub
Private Sub numGain_ValueChanged(numEdit As NumEdit) Handles numGain.ValueChanged
TempProfile.Gain = CSng(numGain.Value)
UpdateControls()
End Sub
Sub SimpleUIValueChanged()
SimpleUI.Save()
UpdateControls()
End Sub
Sub UpdateControls()
Select Case TempProfile.Params.Codec
Case AudioCodec.Opus, AudioCodec.FLAC, AudioCodec.W64, AudioCodec.WAV
numQuality.Enabled = False
Case Else
numQuality.Enabled = TempProfile.Params.RateMode = AudioRateMode.VBR
End Select
If TempProfile.Params.Codec = AudioCodec.FLAC Then
numBitrate.Enabled = False
Else
numBitrate.Enabled = Not numQuality.Enabled
End If
numBitrate.Increment = If(TempProfile.Params.Codec = AudioCodec.AC3, 32D, 1D)
tbProfileName.SendMessageCue(TempProfile.Name, False)
rtbCommandLine.SetText(TempProfile.GetCommandLine(False))
rtbCommandLine.UpdateHeight()
End Sub
Private Sub mbCodec_ValueChangedUser() Handles mbCodec.ValueChangedUser
TempProfile.Params.Codec = mbCodec.GetValue(Of AudioCodec)()
Select Case TempProfile.Params.Codec
Case AudioCodec.AAC
Select Case TempProfile.Params.Encoder
Case GuiAudioEncoder.qaac
SetQuality(50)
Case GuiAudioEncoder.fdkaac
SetQuality(3)
Case Else
SetQuality(0.4)
End Select
TempProfile.Params.RateMode = AudioRateMode.VBR
Case AudioCodec.AC3
If TempProfile.Channels = 6 Then
numBitrate.Value = 448
Else
numBitrate.Value = 224
End If
TempProfile.Params.RateMode = AudioRateMode.CBR
Case AudioCodec.FLAC
numBitrate.Value = TempProfile.GetBitrate
TempProfile.Params.RateMode = AudioRateMode.CBR
Case AudioCodec.DTS
If TempProfile.Channels = 6 Then
numBitrate.Value = 1536
Else
numBitrate.Value = 768
End If
TempProfile.Params.RateMode = AudioRateMode.CBR
Case AudioCodec.MP3
SetQuality(4)
TempProfile.Params.RateMode = AudioRateMode.VBR
Case AudioCodec.Vorbis
SetQuality(1)
TempProfile.Params.RateMode = AudioRateMode.VBR
Case AudioCodec.Opus
numBitrate.Value = 80
TempProfile.Params.RateMode = AudioRateMode.VBR
End Select
UpdateBitrate()
TempProfile.GetCommandLine(False) 'set encoder
LoadAdvanced()
UpdateControls()
End Sub
Sub SetQuality(value As Single)
If TempProfile.Params.Codec = AudioCodec.AAC AndAlso TempProfile.Params.Encoder = GuiAudioEncoder.qaac Then
numQuality.Minimum = 0
numQuality.Maximum = 127
numQuality.Increment = 1
numQuality.DecimalPlaces = 0
ElseIf TempProfile.Params.Codec = AudioCodec.AAC AndAlso TempProfile.Params.Encoder = GuiAudioEncoder.fdkaac Then
numQuality.Minimum = 1
numQuality.Maximum = 5
numQuality.Increment = 1
numQuality.DecimalPlaces = 0
ElseIf TempProfile.Params.Codec = AudioCodec.MP3 Then
numQuality.Minimum = 0
numQuality.Maximum = 9
numQuality.Increment = 1
numQuality.DecimalPlaces = 0
ElseIf TempProfile.Params.Codec = AudioCodec.Vorbis Then
numQuality.Minimum = 0
numQuality.Maximum = 10
numQuality.Increment = 1
numQuality.DecimalPlaces = 0
Else
numQuality.Minimum = 0
numQuality.Maximum = Integer.MaxValue
numQuality.Increment = 0.01
numQuality.DecimalPlaces = 2
End If
numQuality.Value = value
End Sub
Private Sub mbSamplingRate_ValueChanged() Handles mbSamplingRate.ValueChangedUser
TempProfile.Params.SamplingRate = mbSamplingRate.GetValue(Of Integer)()
UpdateBitrate()
UpdateControls()
End Sub
Private Sub mbLanguage_ValueChanged() Handles mbLanguage.ValueChangedUser
TempProfile.Language = mbLanguage.GetValue(Of Language)()
mbLanguage.Text = TempProfile.Language.Name
UpdateControls()
End Sub
Private Sub AudioForm_Shown(sender As Object, e As EventArgs) Handles Me.Shown
UpdateControls()
Refresh()
ActiveControl = mbCodec
For Each i In Language.Languages
If i.IsCommon Then
mbLanguage.Add(i.ToString + " (" + i.TwoLetterCode + ", " + i.ThreeLetterCode + ")", i)
Else
mbLanguage.Add("More | " + i.ToString.Substring(0, 1).ToUpper + " | " + i.ToString + " (" + i.TwoLetterCode + ", " + i.ThreeLetterCode + ")", i)
End If
Next
End Sub
Private Sub tbName_TextChanged(sender As Object, e As EventArgs) Handles tbProfileName.TextChanged
TempProfile.Name = tbProfileName.Text
UpdateControls()
End Sub
Sub SaveProfile()
Dim gap = ObjectHelp.GetCopy(Of GUIAudioProfile)(TempProfile)
Dim name = InputBox.Show("Enter the profile name.", "Save Profile", gap.Name)
If name <> "" Then
gap.Name = name
s.AudioProfiles.Add(gap)
MsgInfo("The profile was saved.")
End If
End Sub
Sub LoadProfile(gap As GUIAudioProfile)
Profile = gap
TempProfile = ObjectHelp.GetCopy(Of GUIAudioProfile)(gap)
LoadProfile()
End Sub
Sub LoadProfile()
If TempProfile.Name <> TempProfile.DefaultName Then tbProfileName.Text = TempProfile.Name
tbProfileName.SendMessageCue(TempProfile.Name, False)
tbCustom.Text = TempProfile.Params.CustomSwitches
tbStreamName.Text = TempProfile.StreamName
cbDefaultTrack.Checked = TempProfile.Default
cbForcedTrack.Checked = TempProfile.Forced
cbNormalize.Checked = TempProfile.Params.Normalize
mbCodec.Value = TempProfile.Params.Codec
mbChannels.Value = TempProfile.Params.ChannelsMode
mbLanguage.Value = TempProfile.Language
mbSamplingRate.Value = TempProfile.Params.SamplingRate
mbEncoder.Value = TempProfile.Params.Encoder
mbDecoder.Value = TempProfile.Decoder
SetQuality(TempProfile.Params.Quality)
numBitrate.Value = TempProfile.Bitrate
numDelay.Value = TempProfile.Delay
numGain.Value = TempProfile.Gain
LoadAdvanced()
UpdateControls()
End Sub
Sub SetBitrate(v As Integer)
numBitrate.Value = v
End Sub
Sub LoadAdvanced()
RemoveHandler SimpleUI.ValueChanged, AddressOf SimpleUIValueChanged
Dim ui = SimpleUI
ui.Store = TempProfile.Params
ui.Host.Controls.Clear()
If Not ui.ActivePage Is Nothing Then DirectCast(ui.ActivePage, Control).Dispose()
Dim page = ui.CreateFlowPage()
page.SuspendLayout()
If {AudioCodec.W64, AudioCodec.WAV}.Contains(TempProfile.Params.Codec) Then
Dim mDepth = ui.AddMenu(Of Integer)
mDepth.Text = "Depth:"
mDepth.Expandet = True
mDepth.Button.Value = TempProfile.Depth
mDepth.Button.SaveAction = Sub(val)
TempProfile.Depth = val
UpdateBitrate()
UpdateControls()
End Sub
mDepth.Add({16, 24})
End If
Dim cb As SimpleUI.SimpleUICheckBox
Select Case TempProfile.GetEncoder
Case GuiAudioEncoder.Eac3to
Dim mbFrameRateMode = ui.AddMenu(Of AudioFrameRateMode)(page)
mbFrameRateMode.Label.Text = "Frame rate:"
mbFrameRateMode.Button.Expand = True
mbFrameRateMode.Button.Value = TempProfile.Params.FrameRateMode
mbFrameRateMode.Button.SaveAction = Sub(value) TempProfile.Params.FrameRateMode = value
Dim mbStereoDownmix = ui.AddMenu(Of Integer)(page)
mbStereoDownmix.Label.Text = "Stereo Downmix:"
mbStereoDownmix.Button.Expand = True
mbStereoDownmix.Button.Add("Simple", 0)
mbStereoDownmix.Button.Add("DPL II", 1)
mbStereoDownmix.Button.Value = TempProfile.Params.eac3toStereoDownmixMode
mbStereoDownmix.Button.SaveAction = Sub(value) TempProfile.Params.eac3toStereoDownmixMode = value
If (TempProfile.File = "" OrElse TempProfile.File.ToLower.Contains("dts") OrElse
(Not TempProfile.Stream Is Nothing AndAlso
TempProfile.Stream.Name.Contains("DTS"))) AndAlso
TempProfile.Params.Codec = AudioCodec.DTS Then
cb = ui.AddBool(page)
cb.Text = "Extract DTS core"
cb.Checked = TempProfile.Params.eac3toExtractDtsCore
cb.SaveAction = Sub(value) TempProfile.Params.eac3toExtractDtsCore = value
End If
Case GuiAudioEncoder.ffmpeg
Select Case TempProfile.Params.Codec
Case AudioCodec.AC3, AudioCodec.DTS
Case Else
If Not {AudioCodec.WAV, AudioCodec.W64, AudioCodec.FLAC}.Contains(TempProfile.Params.Codec) Then
Dim mbRateMode = ui.AddMenu(Of AudioRateMode)
mbRateMode.Text = "Rate Mode:"
mbRateMode.Expandet = True
mbRateMode.Button.Value = TempProfile.Params.RateMode
mbRateMode.Button.SaveAction = Sub(value) TempProfile.Params.RateMode = value
End If
End Select
Case GuiAudioEncoder.fdkaac
Dim getHelpAction = Function(switch As String) Sub() g.ShowCommandLineHelp(Package.fdkaac, switch)
Dim modeMenu = ui.AddMenu(Of SimpleAudioRateMode)
modeMenu.Text = "Rate Mode"
modeMenu.Expandet = True
modeMenu.HelpAction = getHelpAction("--bitrate-mode")
modeMenu.Button.Value = TempProfile.Params.SimpleRateMode
modeMenu.Button.SaveAction = Sub(value)
TempProfile.Params.SimpleRateMode = value
UpdateBitrate()
End Sub
Dim profileMenu = ui.AddMenu(Of Integer)
profileMenu.Text = "Profile"
profileMenu.Expandet = True
profileMenu.HelpAction = getHelpAction("--profile")
profileMenu.Add("AAC LC", 2)
profileMenu.Add("HE-AAC SBR", 5)
profileMenu.Add("HE-AAC SBR+PS", 29)
profileMenu.Add("AAC LD", 23)
profileMenu.Add("AAC ELD", 39)
profileMenu.Property = NameOf(TempProfile.Params.fdkaacProfile)
Dim lowDelaySBR = ui.AddMenu(Of Integer)
lowDelaySBR.Text = "Lowdelay SBR"
lowDelaySBR.Expandet = True
lowDelaySBR.HelpAction = getHelpAction("--lowdelay-sbr")
lowDelaySBR.Add("ELD SBR auto configuration", -1)
lowDelaySBR.Add("Disable SBR on ELD", 0)
lowDelaySBR.Add("Enable SBR on ELD", 1)
lowDelaySBR.Property = NameOf(TempProfile.Params.fdkaacLowDelaySBR)
Dim sbrRatio = ui.AddMenu(Of Integer)
sbrRatio.Text = "SBR Ratio"
sbrRatio.Expandet = True
sbrRatio.HelpAction = getHelpAction("--sbr-ratio")
sbrRatio.Add("Library Default", 0)
sbrRatio.Add("Downsampled SBR (ELD+SBR default)", 1)
sbrRatio.Add("Dual-rate SBR (HE-AAC default)", 2)
sbrRatio.Property = NameOf(TempProfile.Params.fdkaacSbrRatio)
Dim gaplessMode = ui.AddMenu(Of Integer)
gaplessMode.Text = "Gapless Mode"
gaplessMode.Expandet = True
gaplessMode.HelpAction = getHelpAction("--gapless-mode")
gaplessMode.Add("iTunSMPB", 0)
gaplessMode.Add("ISO Standard (EDTS And SGPD)", 1)
gaplessMode.Add("Both", 2)
gaplessMode.Property = NameOf(TempProfile.Params.fdkaacGaplessMode)
Dim transportFormat = ui.AddMenu(Of Integer)
transportFormat.Text = "Transport Format"
transportFormat.Expandet = True
transportFormat.HelpAction = getHelpAction("--transport-format")
transportFormat.Add("M4A", 0)
transportFormat.Add("ADIF", 1)
transportFormat.Add("ADTS", 2)
transportFormat.Add("LATM MCP=1", 6)
transportFormat.Add("LATM MCP=0", 7)
transportFormat.Add("LOAS/LATM (LATM within LOAS)", 10)
transportFormat.Property = NameOf(TempProfile.Params.fdkaacTransportFormat)
Dim n = ui.AddNum
n.Text = "Bandwidth"
n.HelpAction = getHelpAction("--bandwidth")
n.Property = NameOf(TempProfile.Params.fdkaacBandwidth)
cb = ui.AddBool
cb.Text = "Afterburner"
cb.HelpAction = getHelpAction("--afterburner")
cb.Property = NameOf(TempProfile.Params.fdkaacAfterburner)
cb = ui.AddBool
cb.Text = "Add CRC Check on ADTS header"
cb.HelpAction = getHelpAction("--adts-crc-check")
cb.Property = NameOf(TempProfile.Params.fdkaacAdtsCrcCheck)
cb = ui.AddBool
cb.Text = "Header Period"
cb.HelpAction = getHelpAction("--header-period")
cb.Property = NameOf(TempProfile.Params.fdkaacHeaderPeriod)
cb = ui.AddBool
cb.Text = "Include SBR Delay"
cb.HelpAction = getHelpAction("--include-sbr-delay")
cb.Property = NameOf(TempProfile.Params.fdkaacIncludeSbrDelay)
cb = ui.AddBool
cb.Text = "Place moov box before mdat box"
cb.HelpAction = getHelpAction("--moov-before-mdat")
cb.Property = NameOf(TempProfile.Params.fdkaacMoovBeforeMdat)
Case GuiAudioEncoder.qaac
Dim mbMode = ui.AddMenu(Of Integer)
mbMode.Text = "Mode:"
mbMode.Expandet = True
mbMode.Add("True VBR", 0)
mbMode.Add("Constrained VBR", 1)
mbMode.Add("ABR", 2)
mbMode.Add("CBR", 3)
mbMode.Button.Value = TempProfile.Params.qaacRateMode
mbMode.Button.SaveAction = Sub(value)
TempProfile.Params.qaacRateMode = value
TempProfile.Params.RateMode = If(TempProfile.Params.qaacRateMode = 0, AudioRateMode.VBR, AudioRateMode.CBR)
UpdateBitrate()
End Sub
Dim mbQuality = ui.AddMenu(Of Integer)(page)
mbQuality.Label.Text = "Quality:"
mbQuality.Button.Expand = True
mbQuality.Button.Add("Low", 0)
mbQuality.Button.Add("Medium", 1)
mbQuality.Button.Add("High", 2)
mbQuality.Button.Value = TempProfile.Params.qaacQuality
mbQuality.Button.SaveAction = Sub(value) TempProfile.Params.qaacQuality = value
Dim num = ui.AddNum(page)
num.Text = "Lowpass:"
num.Config = {0, Integer.MaxValue}
num.NumEdit.Value = TempProfile.Params.qaacLowpass
num.NumEdit.SaveAction = Sub(value) TempProfile.Params.qaacLowpass = CInt(value)
cb = ui.AddBool(page)
cb.Text = "High Efficiency"
cb.Checked = TempProfile.Params.qaacHE
cb.SaveAction = Sub(value) TempProfile.Params.qaacHE = value
AddHandler cb.CheckedChanged, Sub() If cb.Checked Then mbMode.Button.Value = 1
AddHandler mbMode.Button.ValueChangedUser, Sub() If mbMode.Button.Value = 0 Then cb.Checked = False
cb = ui.AddBool(page)
cb.Text = "No dither when quantizing to lower bit depth"
cb.Checked = TempProfile.Params.qaacNoDither
cb.SaveAction = Sub(value) TempProfile.Params.qaacNoDither = value
End Select
page.ResumeLayout(True)
AddHandler SimpleUI.ValueChanged, AddressOf SimpleUIValueChanged
End Sub
Private Sub nudBitrate_KeyUp(sender As Object, e As KeyEventArgs) Handles numBitrate.KeyUp
Try
Dim v = CInt(numBitrate.Text)
If v Mod 16 = 0 Then numBitrate.Value = v
Catch
End Try
End Sub
Private Sub nudQuality_KeyUp(sender As Object, e As KeyEventArgs) Handles numQuality.KeyUp
Try
Dim v = CInt(numQuality.Text)
numQuality.Value = v
Catch
End Try
End Sub
Private Sub Execute()
If TempProfile.File <> "" Then
If Not TempProfile.IsInputSupported AndAlso Not TempProfile.DecodingMode = AudioDecodingMode.Pipe Then
MsgWarn("The input format isn't supported by the current encoder," + BR + "convert to WAV or FLAC first or enable piping in the options.")
Else
Dim process As New Process
process.StartInfo.FileName = "cmd.exe"
process.StartInfo.Arguments = "/S /K """ + TempProfile.GetCommandLine(True) + """"
process.Start()
End If
Else
MsgWarn("Source file is missing!")
End If
End Sub
Private Sub CommandLineAudioSettingsForm_HelpRequested() Handles Me.HelpRequested
ShowHelp()
End Sub
Private Sub tbStreamName_TextChanged(sender As Object, e As EventArgs) Handles tbStreamName.TextChanged
TempProfile.StreamName = tbStreamName.Text
End Sub
Private Sub tbCustom_TextChanged(sender As Object, e As EventArgs) Handles tbCustom.TextChanged
TempProfile.Params.CustomSwitches = tbCustom.Text
UpdateControls()
End Sub
Private Sub cbDefaultTrack_CheckedChanged(sender As Object, e As EventArgs) Handles cbDefaultTrack.CheckedChanged
TempProfile.Default = cbDefaultTrack.Checked
End Sub
Private Sub cbForcedTrack_CheckedChanged(sender As Object, e As EventArgs) Handles cbForcedTrack.CheckedChanged
TempProfile.Forced = cbForcedTrack.Checked
End Sub
Private Sub mbEncoder_ValueChangedUser(value As Object) Handles mbEncoder.ValueChangedUser
TempProfile.Params.Encoder = mbEncoder.GetValue(Of GuiAudioEncoder)()
mbCodec_ValueChangedUser()
End Sub
Private Sub ShowHelp()
Dim f As New HelpForm()
f.Doc.WriteStart(Text)
f.Doc.WriteTips(TipProvider.GetTips, SimpleUI.ActivePage.TipProvider.GetTips)
f.Show()
End Sub
Private Sub mbChannels_ValueChanged(value As Object) Handles mbChannels.ValueChangedUser
TempProfile.Params.ChannelsMode = mbChannels.GetValue(Of ChannelsMode)()
UpdateBitrate()
UpdateControls()
End Sub
Private Sub mbConvertMode_ValueChangedUser(value As Object) Handles mbDecoder.ValueChangedUser
TempProfile.Decoder = mbDecoder.GetValue(Of AudioDecoderMode)()
UpdateControls()
End Sub
Private Sub bnAdvanced_Click(sender As Object, e As EventArgs) Handles bnAdvanced.Click
Using form As New SimpleSettingsForm("Advanced Audio Options")
form.ScaleClientSize(30, 21)
Dim ui = form.SimpleUI
ui.Store = TempProfile.Params
ui.CreateFlowPage("General", True)
Dim convFormat = ui.AddMenu(Of AudioDecodingMode)
convFormat.Text = "Decoding Method:"
convFormat.Button.Value = TempProfile.DecodingMode
convFormat.Button.SaveAction = Sub(val) TempProfile.DecodingMode = val
ui.CreateFlowPage("ffmpeg", True)
Dim ffmpegNormalize = ui.AddMenu(Of ffNormalizeMode)
ffmpegNormalize.Text = "Normalize Method:"
ffmpegNormalize.Property = NameOf(TempProfile.Params.ffNormalizeMode)
ui.AddLabel("EBU R128 loudness normalization (loudnorm):")
Dim helpUrl = "https://www.ffmpeg.org/ffmpeg-filters.html#loudnorm"
Dim n = ui.AddNum()
n.Text = " Integrated"
n.Help = helpUrl
n.Config = {0, 0, 0.1, 1}
n.Property = NameOf(TempProfile.Params.ffmpegLoudnormIntegrated)
n = ui.AddNum()
n.Text = " True Peak"
n.Help = helpUrl
n.Config = {0, 0, 0.1, 1}
n.Property = NameOf(TempProfile.Params.ffmpegLoudnormTruePeak)
n = ui.AddNum()
n.Text = " LRA"
n.Help = helpUrl
n.Config = {0, 0, 0.1, 1}
n.Property = NameOf(TempProfile.Params.ffmpegLoudnormLRA)
ui.CreateFlowPage("ffmpeg | dynaudnorm", True)
ui.AddLabel("Dynamic Audio Normalizer")
helpUrl = "https://www.ffmpeg.org/ffmpeg-filters.html#dynaudnorm"
n = ui.AddNum()
n.Text = "Frame Length"
n.Help = helpUrl
n.Config = {10, 8000}
n.Property = NameOf(TempProfile.Params.ffmpegDynaudnormF)
n = ui.AddNum()
n.Text = "Gaus filter win size"
n.Help = helpUrl
n.Config = {3, 301}
n.Property = NameOf(TempProfile.Params.ffmpegDynaudnormG)
n = ui.AddNum()
n.Text = "Target Peak"
n.Help = helpUrl
n.Config = {0, 0, 0.05, 2}
n.Property = NameOf(TempProfile.Params.ffmpegDynaudnormP)
n = ui.AddNum()
n.Text = "Max gain factor"
n.Help = helpUrl
n.Config = {1, 100, 5, 1}
n.Property = NameOf(TempProfile.Params.ffmpegDynaudnormM)
n = ui.AddNum()
n.Text = "Target RMS"
n.Help = helpUrl
n.Config = {0, 1, 0.1, 1}
n.Property = NameOf(TempProfile.Params.ffmpegDynaudnormR)
n = ui.AddNum()
n.Text = "Compress factor"
n.Help = helpUrl
n.Config = {0, 30, 1, 1}
n.Property = NameOf(TempProfile.Params.ffmpegDynaudnormS)
Dim b = ui.AddBool
b.Text = "Enable channels coupling"
b.Help = helpUrl
b.Property = NameOf(TempProfile.Params.ffmpegDynaudnormN)
b = ui.AddBool
b.Text = "Enable DC bias correction"
b.Help = helpUrl
b.Property = NameOf(TempProfile.Params.ffmpegDynaudnormC)
b = ui.AddBool
b.Text = "Enable alternative boundary mode"
b.Help = helpUrl
b.Property = NameOf(TempProfile.Params.ffmpegDynaudnormB)
ui.SelectLast("last advanced audio options page")
If form.ShowDialog() = DialogResult.OK Then ui.Save()
UpdateControls()
ui.SaveLast("last advanced audio options page")
End Using
End Sub
Private Sub cbNormalize_CheckedChanged(sender As Object, e As EventArgs) Handles cbNormalize.CheckedChanged
TempProfile.Params.Normalize = cbNormalize.Checked
UpdateControls()
End Sub
End Class
Reference in New Issue View Git Blame Copy Permalink