vbAccelerator - Contents of code file: vbalMp3DataWriter_cLameEncoderConfiguration.cls

This file is part of the download VB6 Pluggable CD Ripper, which is described in the article CD Ripping in VB Part 2.

VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
END
Attribute VB_Name = "cLameConfig"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = True
Option Explicit

' ------------------------------------------------------------
' Name:   cLameConfig
' Author: Steve McMahon (steve@vbaccelerator.com)
' Date:   2004-05-06
' Description:
' Implementation of LAME encoder configuration using the
' Plugin configurator.
'
' See http://vbaccelerator.com/
' ------------------------------------------------------------

Implements IPluginConfig

Private m_iSelPreset As Long
Private m_iSelEncoding As Long

Private Property Get IPluginConfig_ParameterCount() As Long
   IPluginConfig_ParameterCount = 2
End Property

Private Property Get IPluginConfig_ParameterDefaultValue(ByVal valueNumber As
 Long) As Long
   '
   '
End Property

Private Property Get IPluginConfig_ParameterName(ByVal locale As String, ByVal
 paramNumber As Long) As String
   '
   Dim sName As String
   Select Case paramNumber
   Case 1
      sName = "Encoding Preset"
   Case 2
      sName = "Bit Rate"
   End Select
   IPluginConfig_ParameterName = sName
   '
End Property

Private Property Get IPluginConfig_ParameterValueCount(ByVal paramNumber As
 Long) As Long
   '
   Dim iCount As Long
   Select Case paramNumber
   Case 1
   Case 2
   End Select
   '
End Property

Private Property Get IPluginConfig_ParameterValueName(ByVal locale As String,
 ByVal paramNumber As Long, ByVal valueNumber As Long) As String
   '
   
   '
End Property

Private Sub IPluginConfig_SetParameterValue(ByVal locale As String, ByVal
 paramNumber As Long, ByVal valueNumber As Long, changedParameterIndexes As
 Variant)
   '
   '
End Sub