diff options
| author | sr55 <[email protected]> | 2007-06-22 13:46:22 +0000 |
|---|---|---|
| committer | sr55 <[email protected]> | 2007-06-22 13:46:22 +0000 |
| commit | 70754deeb712347b39cfbac01f120f744da04a94 (patch) | |
| tree | 2deeaec945b1ecc4342d528e98641bb9bd9fc951 /win/Handbrake/frmDVDData.vb | |
| parent | bfa6064c75f9e1166248aadd085ead1cafa7c3f4 (diff) | |
# Start of Version 2.3
- New Title drop down menu's Added
- Fixed Profile bug where if anamorphic was selected when the profile was clicked, the resolution boxes would not be filled out.
- Fixed Anamorphic and Chapter markers were saved in the wrong order.
- Added version tag code to avoid having to update all the windows manually. Pulls version straight from settings file now.
git-svn-id: svn://svn.handbrake.fr/HandBrake/trunk@628 b64f7644-9d1e-0410-96f1-a4d463321fa5
Diffstat (limited to 'win/Handbrake/frmDVDData.vb')
| -rw-r--r-- | win/Handbrake/frmDVDData.vb | 50 |
1 files changed, 50 insertions, 0 deletions
diff --git a/win/Handbrake/frmDVDData.vb b/win/Handbrake/frmDVDData.vb new file mode 100644 index 000000000..ca2d5f53f --- /dev/null +++ b/win/Handbrake/frmDVDData.vb @@ -0,0 +1,50 @@ +Imports System.IO
+
+Public Class frmDvdData
+
+
+ Private Sub frmSelect_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
+ Dim break As Boolean = False
+ Dim ErrorCounter As Integer = 0
+
+ Try
+ Dim file_path As String = Application.StartupPath
+ rtf_dvdInfo.Text = ""
+
+ Dim line As StreamReader = File.OpenText(file_path & "\dvdinfo.dat")
+ Dim readLine
+
+ readLine = "------- DVD Information -------"
+ While readLine <> Nothing
+
+ If (rtf_dvdInfo.Text = "") Then
+ rtf_dvdInfo.Text = readLine
+ Else
+ rtf_dvdInfo.Text = rtf_dvdInfo.Text & vbCrLf & readLine
+ End If
+ readLine = line.ReadLine()
+
+ If break = True Then
+ readLine = Nothing
+ ElseIf readLine = "" Then
+ readLine = " "
+ ErrorCounter = ErrorCounter + 1
+ If ErrorCounter = 5 Then
+ readLine = Nothing
+ End If
+ readLine = Nothing
+ Else
+ ErrorCounter = 0
+ End If
+
+ End While
+ Catch ex As Exception
+ MessageBox.Show(ex.ToString) ' Debug
+ End Try
+ '# -- END
+ End Sub
+
+ Private Sub btn_close_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_close.Click
+ Me.Close()
+ End Sub
+End Class
\ No newline at end of file |