mp3enc.vb

这是一本用Visual Studio.NET进行多媒体编程的读物

        Me.Text1.BackColor = System.Drawing.SystemColors.Window
        Me.Text1.Cursor = System.Windows.Forms.Cursors.IBeam
        Me.Text1.ForeColor = System.Drawing.SystemColors.WindowText
        Me.Text1.Location = New System.Drawing.Point(14, 16)
        Me.Text1.MaxLength = 0
        Me.Text1.Name = "Text1"
        Me.Text1.RightToLeft = System.Windows.Forms.RightToLeft.No
        Me.Text1.Size = New System.Drawing.Size(85, 25)
        Me.Text1.TabIndex = 1
        Me.Text1.Text = ""
        '
        'Form1
        '
        Me.AutoScaleBaseSize = New System.Drawing.Size(6, 14)
        Me.ClientSize = New System.Drawing.Size(561, 356)
        Me.Controls.AddRange(New System.Windows.Forms.Control() {Me.Mp3Enc1, Me.Text8, Me.Text7, Me.Command8, Me.Command7, Me.Mp3Play1, Me.Frame10, Me.Frame5, Me.Frame13, Me.Command13, Me.Frame14, Me.Frame12, Me.Frame11, Me.Frame9, Me.Frame8, Me.Frame6, Me.Frame4, Me.Frame3, Me.Frame2, Me.Frame1})
        Me.Location = New System.Drawing.Point(191, 185)
        Me.Name = "Form1"
        Me.StartPosition = System.Windows.Forms.FormStartPosition.Manual
        Me.Text = "MP3ENC.OCX Test"
        CType(Me.Mp3Enc1, System.ComponentModel.ISupportInitialize).EndInit()
        CType(Me.Mp3Play1, System.ComponentModel.ISupportInitialize).EndInit()
        Me.Frame10.ResumeLayout(False)
        Me.Frame5.ResumeLayout(False)
        Me.Frame13.ResumeLayout(False)
        Me.Frame14.ResumeLayout(False)
        Me.Frame12.ResumeLayout(False)
        Me.Frame11.ResumeLayout(False)
        Me.Frame9.ResumeLayout(False)
        Me.Frame8.ResumeLayout(False)
        Me.Frame6.ResumeLayout(False)
        Me.Frame4.ResumeLayout(False)
        Me.Frame3.ResumeLayout(False)
        Me.Frame2.ResumeLayout(False)
        Me.Frame1.ResumeLayout(False)
        Me.ResumeLayout(False)

    End Sub
#End Region 
#Region "升级支持"
	Private Shared m_vb6FormDefInstance As Form1
	Private Shared m_InitializingDefInstance As Boolean
	Public Shared Property DefInstance() As Form1
		Get
			If m_vb6FormDefInstance Is Nothing OrElse m_vb6FormDefInstance.IsDisposed Then
				m_InitializingDefInstance = True
				m_vb6FormDefInstance = New Form1()
				m_InitializingDefInstance = False
			End If
			DefInstance = m_vb6FormDefInstance
		End Get
		Set
			m_vb6FormDefInstance = Value
		End Set
	End Property
#End Region 
	Dim kbits As Object
	Dim start_time As Integer
	
	Private Sub Command1_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles Command1.Click
		On Error GoTo error_handle
		Text5.Text = ""
		start_time = VB.Timer()
		Text3.Text = CStr(Mp3Enc1.Encode)
		Exit Sub
error_handle: 
		Text21.Text = ErrorToString()
		Resume Next
	End Sub
	
	Private Sub Command10_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles Command10.Click
		If Command10.Text = "off" Then
			Mp3Enc1.SetErrorMode(1)
			Command10.Text = "on"
		Else
			Mp3Enc1.SetErrorMode(0)
			Command10.Text = "off"
		End If
	End Sub
	
	Private Sub Command12_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles Command12.Click
		On Error GoTo error_handle
        Text25.Text = CStr(Mp3Play1.Authorize(Text23.Text, Text24.Text))
		Exit Sub
error_handle: 
		Text21.Text = ErrorToString()
        Resume Next
    End Sub

    Private Sub Command13_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles Command13.Click
        Mp3Enc1.AboutBox()
    End Sub

    Private Sub Command14_Click()
        Dim Text26 As Object
        On Error GoTo error_handle
        Text26.Text = "Mp3Enc1.Pause"
        Exit Sub
error_handle:
        Text21.Text = ErrorToString()
        Resume Next
    End Sub

    Private Sub Command2_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles Command2.Click
        On Error GoTo error_handle
        Mp3Enc1.BitRate = kbits
        Exit Sub
error_handle:
        Text21.Text = ErrorToString()
        Resume Next
    End Sub

    Private Sub Command3_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles Command3.Click
        On Error GoTo error_handle
        Dim StrWav As Object
        Dim StrMp3 As String
        StrWav = Text27.Text
        StrMp3 = Text22.Text
        Text2.Text = CStr(Mp3Enc1.Open(StrWav, StrMp3))
        Exit Sub
error_handle:
        Text21.Text = ErrorToString()
        Resume Next
    End Sub

    Private Sub Command4_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles Command4.Click
        On Error GoTo error_handle
        Text4.Text = CStr(Mp3Enc1.Stop)
        Exit Sub
error_handle:
        Text21.Text = ErrorToString()
        Resume Next
    End Sub

    Private Sub Command5_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles Command5.Click
        Dim e As Object
        e = Mp3Play1.Open(Text22.Text, "")
        Mp3Play1.Play()
    End Sub

    Private Sub Command6_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles Command6.Click
        Mp3Play1.Stop()
    End Sub

    Private Sub Command7_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles Command7.Click
        If Mp3Enc1.AllowDownSample = True Then
            Mp3Enc1.AllowDownSample = False
            Text7.Text = "false"
        Else
            Mp3Enc1.AllowDownSample = True
            Text7.Text = "true"
        End If
    End Sub

    Private Sub Command8_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles Command8.Click
        If Mp3Enc1.DownMix = True Then
            Mp3Enc1.DownMix = False
            Text8.Text = "false"
        Else
            Mp3Enc1.DownMix = True
            Text8.Text = "true"
        End If
    End Sub

    Private Sub Command9_Click()
        Dim Text20 As Object
        On Error GoTo error_handle
        Text20.Text = Mp3Play1.Seek(CDbl(Text6.Text) + 400)
        Exit Sub
error_handle:
        Text21.Text = ErrorToString()
        Resume Next
    End Sub

    Private Sub Form1_Load(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles MyBase.Load
        Text1.Text = CStr(Mp3Enc1.Version / 100)
        kbits = 256000 '缺省情况
    End Sub

    Private Sub Mp3Play1_ActFrame(ByVal eventSender As System.Object, ByVal eventArgs As AxMPEGPLAYLib._DMp3PlayEvents_ActFrameEvent) Handles Mp3Play1.ActFrame
        Text6.Text = CStr(eventArgs.actFrame)
        Text19.Text = CStr((eventArgs.actFrame * Mp3Play1.MsPerFrame) \ 1000)
    End Sub

    Private Sub Mp3Play1_ThreadEnded(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles Mp3Play1.ThreadEnded
        'If Shape1.FillColor = &HC000 Then
        '    Shape1.FillColor = &HC0
        'Else
        '    Shape1.FillColor = &HC000
        'End If
    End Sub

    Private Sub VScroll1_Change()
        Dim e As Object
        Dim vol_right As Object
        Dim vol_left As Object
        Dim VScroll1 As Object
        On Error GoTo error_handle

        vol_left = VScroll1.Value
        vol_right = VScroll1.Value
        vol_left = vol_left * 640
        vol_right = vol_right * 640
        e = Mp3Play1.SetVolume(vol_right, vol_left)
        Exit Sub
error_handle:
        Text21.Text = ErrorToString()
        Resume Next
    End Sub

    Private Sub Mp3Enc1_ActFrame(ByVal eventSender As System.Object, ByVal eventArgs As AxMP3ENCLib._DMp3EncEvents_ActFrameEvent) Handles Mp3Enc1.ActFrame
        Text6.Text = CStr(eventArgs.actFrame)
        Text19.Text = (eventArgs.actFrame * 100 / Mp3Enc1.GetFrameCount) \ 1 & " %"
        Text19.Text = Text19.Text & " Faktor: " & (VB.Timer() - start_time) / (eventArgs.actFrame * 0.026)

    End Sub

    Private Sub Mp3Enc1_ThreadEnded(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles Mp3Enc1.ThreadEnded
        'If Shape1.FillColor = &HC000 Then
        '   Shape1.FillColor = &HC0
        'Else
        '	Shape1.FillColor = &HC000
        'End If
        Text5.Text = (((VB.Timer() - start_time) * 10) \ 1) / 10 & " sec"
    End Sub

    Private Sub Option1_CheckedChanged(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles Option1.CheckedChanged
        If eventSender.Checked Then
            kbits = 32000
        End If
    End Sub

    Private Sub Option2_CheckedChanged(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles Option2.CheckedChanged
        If eventSender.Checked Then
            kbits = 56000
        End If
    End Sub

    Private Sub Option3_CheckedChanged(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles Option3.CheckedChanged
        If eventSender.Checked Then
            kbits = 64000
        End If
    End Sub

    Private Sub Option4_CheckedChanged(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles Option4.CheckedChanged
        If eventSender.Checked Then
            kbits = 96000
        End If
    End Sub

    Private Sub Option5_CheckedChanged(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles Option5.CheckedChanged
        If eventSender.Checked Then
            kbits = 112000
        End If
    End Sub

    Private Sub Option6_CheckedChanged(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles Option6.CheckedChanged
        If eventSender.Checked Then
            kbits = 128000
        End If
    End Sub

    Private Sub Option7_CheckedChanged(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles Option7.CheckedChanged
        If eventSender.Checked Then
            kbits = 256000
        End If
    End Sub
End Class