MP3valWrapper Class

Public NotInheritable Class MP3valWrapper
	Implements IDisposable

Dim instance As MP3valWrapper

public ref class MP3valWrapper sealed : IDisposable

[<SealedAttribute>]
type MP3valWrapper = 
    class
        interface IDisposable
    end

No code example is currently available or this language may not be supported.

Public Class Form1 : Inherits Form

    Friend WithEvents MP3Val As New MP3ValWrapper("C:\Program Files (x86)\MP3 Val\mp3val.exe")

    Private Sub Test() Handles MyBase.Shown

        ' Analyzes an MP3 file.
        MP3Val.Analyze("C:\File.mp3")

        ' Fix an MP3 file.
        MP3Val.Fix("C:\File.mp3")

    End Sub

    Private Sub MP3Val_Started(ByVal sender As Object, ByVal e As MP3ValStartedEventArgs) _
    Handles MP3Val.Started

        Dim sb As New System.Text.StringBuilder
        With sb
            .AppendLine(String.Format("Starting a ""{0}"" task", e.Task.ToString()))
            .AppendLine(String.Format("Input file is: ""{0}""", e.File))
            .AppendLine(String.Format("mp3val.exe process id. (PID) is: {0}", CStr(DirectCast(sender, MP3ValWrapper).Process.Id)))
        End With

        Debug.WriteLine(String.Format("Start Time: {0}", Date.Now.ToLongTimeString))
        Debug.WriteLine(sb.ToString())

    End Sub

    Private Sub MP3Val_Exited(ByVal sender As Object, ByVal e As MP3ValExitedEventArgs) _
    Handles MP3Val.Exited

        Dim sb As New System.Text.StringBuilder

        sb.AppendLine(String.Format("Finished a ""{1}"" task in file ""{2}""{0}",
                                    Environment.NewLine,
                                    e.Task.ToString(),
                                    e.File))

        sb.AppendLine(String.Format("File information:{0}{1}{0}",
                                    Environment.NewLine,
                                    e.InfoMessage))

        sb.AppendLine("Warnings found:")
        If e.Warnings.Count <> 0 Then
            For Each wrn As String In e.Warnings
                sb.AppendLine(wrn)
            Next wrn
        Else
            sb.AppendLine("Any" & Environment.NewLine)
        End If

        sb.AppendLine("Errors found:")
        If e.Errors.Count <> 0 Then
            For Each err As String In e.Errors
                sb.AppendLine(err)
            Next err
        Else
            sb.AppendLine("Any" & Environment.NewLine)
        End If

        sb.AppendLine(String.Format("File need fix?: {0}",
                                    CStr(e.FileNeedFix)))

        If e.Task = MP3ValTask.Fix Then
            sb.AppendLine(String.Format("File was fixed?: {0}",
                                         CStr(e.FileIsFixed)))
        End If

        Debug.WriteLine(sb.ToString())
        Debug.WriteLine(String.Format("End Time: {0}", Date.Now.ToLongTimeString))

    End Sub

End Class

No code example is currently available or this language may not be supported.

No code example is currently available or this language may not be supported.

No code example is currently available or this language may not be supported.

No code example is currently available or this language may not be supported.