MP3GainWrapper Class

Public NotInheritable Class MP3GainWrapper
	Implements IDisposable

Dim instance As MP3GainWrapper

public ref class MP3GainWrapper sealed : IDisposable

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

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

Public Class Form1 : Inherits Form

    Friend WithEvents MP3Gain As New MP3GainWrapper(".\MP3Gain.exe")

    Private Sub Test() Handles MyBase.Shown

        ' Checks if file contains APEv2 mp3gain tag
        MsgBox(MP3Gain.FileHasTagInfo("C:\File.mp3"))

        ' Set the global volume Gain of file to "89" db (In a scale of "0-100"),
        ' and preserve the datetime of file.
        MP3Gain.SetGain("C:\File.mp3", gainLevel:=89, preserveDatestamp:=True)

        ' Apply a volume change of +5 db,
        ' in the curent global volume gain of file.
        MP3Gain.ApplyGain("C:\File.mp3", +5)

        ' Apply a volume change of -5 db,
        ' in the curent global volume gain of file.
        MP3Gain.ApplyGain("C:\File.mp3", -5)

        ' Apply a volume change of +10 db,
        ' in the curent volume gain of the Left channel of an Stereo file.
        MP3Gain.ApplyChannelGain("C:\File.mp3", MP3GainChannel.Left, +10)

        ' Apply a volume change of -10 db,
        ' in the curent volume gain of the Right channel of an Stereo file.
        MP3Gain.ApplyChannelGain("C:\File.mp3", MP3GainChannel.Right, -10)

        ' Undo all volume gain changes made in file.
        MP3Gain.UndoGain("C:\File.mp3")

    End Sub

    Private Sub MP3Gain_Started(ByVal sender As Object, ByVal e As MP3GainStartedEventArgs) _
    Handles MP3Gain.Started

        ProgressBar1.Value = ProgressBar1.Minimum

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

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

    End Sub

    Private Sub MP3Gain_Exited(ByVal sender As Object, ByVal e As MP3GainExitedEventArgs) _
    Handles MP3Gain.Exited

        If (e.Task <> MP3GainOperation.CheckTagInfo) Then

            Dim sb As New Global.System.Text.StringBuilder

            sb.AppendLine(String.Format("Finished a ""{0}"" task", e.Task.ToString()))
            sb.AppendLine(String.Format("Input file is: ""{0}""", e.File))
            sb.AppendLine(String.Format("mp3gain process PID is: {0}", DirectCast(sender, MP3GainWrapper).Process.Id))

            If Not String.IsNullOrEmpty(e.InfoMessage) Then
                sb.AppendLine(String.Format("Operation Information: {0}", e.InfoMessage))
            End If

            If Not String.IsNullOrEmpty(e.ErrorMessage) Then
                sb.AppendLine(String.Format("Error Information: {0}", e.ErrorMessage))
            End If

            If e.GainLevel <> 0 Then
                sb.AppendLine(String.Format("Volume gain change: {0}", CStr(e.GainLevel)))
            End If

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

        End If

    End Sub

    Sub MP3Gain_ProgressUpdated(ByVal sender As Object, ByVal e As MP3GainProgressChangedEventArgs) _
    Handles MP3Gain.ProgressChanged

        Label1.Text = CStr(e.Percent)
        ProgressBar1.Value = e.Percent
        Application.DoEvents()

    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.