'Do not modify it using the code editor.\r
<System.Diagnostics.DebuggerStepThrough()> _\r
Private Sub InitializeComponent()\r
+ Me.components = New System.ComponentModel.Container\r
Dim Label38 As System.Windows.Forms.Label\r
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmMain))\r
Me.frmMainMenu = New System.Windows.Forms.MenuStrip\r
Me.toolStripSeparator2 = New System.Windows.Forms.ToolStripSeparator\r
Me.mnu_exit = New System.Windows.Forms.ToolStripMenuItem\r
Me.ToolsToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem\r
+ Me.mnu_encode = New System.Windows.Forms.ToolStripMenuItem\r
Me.mnu_viewDVDdata = New System.Windows.Forms.ToolStripMenuItem\r
Me.ToolStripSeparator5 = New System.Windows.Forms.ToolStripSeparator\r
Me.mnu_options = New System.Windows.Forms.ToolStripMenuItem\r
Me.DVD_Save = New System.Windows.Forms.SaveFileDialog\r
Me.File_Save = New System.Windows.Forms.SaveFileDialog\r
Me.lbl_update = New System.Windows.Forms.Label\r
- Me.mnu_encode = New System.Windows.Forms.ToolStripMenuItem\r
+ Me.ToolTip = New System.Windows.Forms.ToolTip(Me.components)\r
Label38 = New System.Windows.Forms.Label\r
Me.frmMainMenu.SuspendLayout()\r
Me.GroupBox4.SuspendLayout()\r
Me.ToolsToolStripMenuItem.Size = New System.Drawing.Size(44, 20)\r
Me.ToolsToolStripMenuItem.Text = "&Tools"\r
'\r
+ 'mnu_encode\r
+ '\r
+ Me.mnu_encode.Name = "mnu_encode"\r
+ Me.mnu_encode.Size = New System.Drawing.Size(155, 22)\r
+ Me.mnu_encode.Text = "Encode Queue"\r
+ '\r
'mnu_viewDVDdata\r
'\r
Me.mnu_viewDVDdata.Name = "mnu_viewDVDdata"\r
Me.text_destination.Name = "text_destination"\r
Me.text_destination.Size = New System.Drawing.Size(262, 21)\r
Me.text_destination.TabIndex = 4\r
+ Me.ToolTip.SetToolTip(Me.text_destination, "Where you wish to save your output file.")\r
'\r
'drp_audioCodec\r
'\r
Me.drop_chapterFinish.Size = New System.Drawing.Size(69, 21)\r
Me.drop_chapterFinish.TabIndex = 41\r
Me.drop_chapterFinish.Text = "Auto"\r
+ Me.ToolTip.SetToolTip(Me.drop_chapterFinish, "Encode chapters to this number")\r
'\r
'drop_chapterStart\r
'\r
Me.drop_chapterStart.Size = New System.Drawing.Size(69, 21)\r
Me.drop_chapterStart.TabIndex = 40\r
Me.drop_chapterStart.Text = "Auto"\r
+ Me.ToolTip.SetToolTip(Me.drop_chapterStart, "Encode chatpers from this number.")\r
'\r
'drp_dvdtitle\r
'\r
Me.drp_dvdtitle.Size = New System.Drawing.Size(119, 21)\r
Me.drp_dvdtitle.TabIndex = 39\r
Me.drp_dvdtitle.Text = "Automatic"\r
+ Me.ToolTip.SetToolTip(Me.drp_dvdtitle, "The title number you wish to encode.")\r
'\r
'RadioDVD\r
'\r
Me.text_source.Size = New System.Drawing.Size(253, 21)\r
Me.text_source.TabIndex = 1\r
Me.text_source.Text = "Click ""Browse"" to continue"\r
+ Me.ToolTip.SetToolTip(Me.text_source, "The input source location.")\r
'\r
'Label9\r
'\r
Me.btn_encode.FlatStyle = System.Windows.Forms.FlatStyle.Flat\r
Me.btn_encode.Font = New System.Drawing.Font("Verdana", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))\r
Me.btn_encode.ForeColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(128, Byte), Integer), CType(CType(0, Byte), Integer))\r
- Me.btn_encode.Location = New System.Drawing.Point(534, 590)\r
+ Me.btn_encode.Location = New System.Drawing.Point(538, 590)\r
Me.btn_encode.Name = "btn_encode"\r
Me.btn_encode.Size = New System.Drawing.Size(124, 22)\r
Me.btn_encode.TabIndex = 19\r
Me.btn_queue.FlatStyle = System.Windows.Forms.FlatStyle.Flat\r
Me.btn_queue.Font = New System.Drawing.Font("Verdana", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))\r
Me.btn_queue.ForeColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(128, Byte), Integer), CType(CType(0, Byte), Integer))\r
- Me.btn_queue.Location = New System.Drawing.Point(403, 590)\r
+ Me.btn_queue.Location = New System.Drawing.Point(407, 590)\r
Me.btn_queue.Name = "btn_queue"\r
Me.btn_queue.Size = New System.Drawing.Size(124, 22)\r
Me.btn_queue.TabIndex = 412\r
Me.drp_subtitle.Size = New System.Drawing.Size(213, 21)\r
Me.drp_subtitle.TabIndex = 42\r
Me.drp_subtitle.Text = "None"\r
+ Me.ToolTip.SetToolTip(Me.drp_subtitle, "Select the subtitle language you require from this dropdown.")\r
'\r
'Label19\r
'\r
Me.lbl_update.Text = "- A New Version is available!"\r
Me.lbl_update.Visible = False\r
'\r
- 'mnu_encode\r
- '\r
- Me.mnu_encode.Name = "mnu_encode"\r
- Me.mnu_encode.Size = New System.Drawing.Size(155, 22)\r
- Me.mnu_encode.Text = "Encode Queue"\r
- '\r
'frmMain\r
'\r
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)\r
Friend WithEvents Label37 As System.Windows.Forms.Label\r
Friend WithEvents Label41 As System.Windows.Forms.Label\r
Friend WithEvents mnu_encode As System.Windows.Forms.ToolStripMenuItem\r
+ Friend WithEvents ToolTip As System.Windows.Forms.ToolTip\r
\r
End Class\r
, "Warning", MessageBoxButtons.OK, MessageBoxIcon.Warning)\r
End If\r
\r
- Try\r
- If (QueryEditorText.Text = "") Then\r
- query = GenerateTheQuery()\r
- Shell("""" + ApplicationPath + "\hbcli.exe""" + query)\r
+ Try\r
+ If (QueryEditorText.Text = "") Then\r
+ query = GenerateTheQuery()\r
+\r
+ Dim params As String = query\r
+ Dim proc As New System.Diagnostics.Process\r
+ proc = System.Diagnostics.Process.Start("""" + ApplicationPath + "\hbcli.exe""", params)\r
+\r
MessageBox.Show("The Handbrake encoder (CLI) will now start and should be encoding your video.", "Alert", MessageBoxButtons.OK, MessageBoxIcon.Asterisk)\r
\r
- 'Lets start the process monitor to keep an eye on things.\r
- hbcliMonitor = New ProcessMonitor()\r
- Dim t = New Thread(AddressOf hbcliMonitor.tmrProcCheck)\r
- t.Start()\r
- Else\r
- query = QueryEditorText.Text\r
- Shell("""" + ApplicationPath + "\hbcli.exe""" + query)\r
+ 'Lets start the process monitor to keep an eye on things.\r
+ hbcliMonitor = New ProcessMonitor()\r
+ Dim t = New Thread(AddressOf hbcliMonitor.tmrProcCheck)\r
+ t.Start()\r
+ Else\r
+ query = QueryEditorText.Text\r
+\r
+ Dim params As String = query\r
+ Dim proc As New System.Diagnostics.Process\r
+ proc = System.Diagnostics.Process.Start("""" + ApplicationPath + "\hbcli.exe""", params)\r
MessageBox.Show("The Handbrake encoder (CLI) will now start and should be encoding your video.", "Alert", MessageBoxButtons.OK, MessageBoxIcon.Asterisk)\r
\r
- 'Lets start the process monitor to keep an eye on things.\r
- hbcliMonitor = New ProcessMonitor()\r
- Dim t = New Thread(AddressOf hbcliMonitor.tmrProcCheck)\r
- t.Start()\r
- End If\r
- Catch ex As Exception\r
+ 'Lets start the process monitor to keep an eye on things.\r
+ hbcliMonitor = New ProcessMonitor()\r
+ Dim t = New Thread(AddressOf hbcliMonitor.tmrProcCheck)\r
+ t.Start()\r
+ End If\r
+ Catch ex As Exception\r
MessageBox.Show("Unable to launch the HandBrake encoder.", "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)\r
- MessageBox.Show(ex.ToString) ' Debug\r
- End Try\r
+ MessageBox.Show(ex.ToString) ' Debug\r
+ End Try\r
\r
End Sub\r
\r
\r
End Sub\r
'-----------------------------------------------\r
+\r
End Class
\ No newline at end of file