mp3play.vb

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

        Me.Command3.RightToLeft = System.Windows.Forms.RightToLeft.No
        Me.Command3.Size = New System.Drawing.Size(57, 29)
        Me.Command3.TabIndex = 3
        Me.Command3.Text = "Open"
        '
        'Frame1
        '
        Me.Frame1.BackColor = System.Drawing.SystemColors.Control
        Me.Frame1.Controls.AddRange(New System.Windows.Forms.Control() {Me.Command13, Me.Text1})
        Me.Frame1.ForeColor = System.Drawing.SystemColors.ControlText
        Me.Frame1.Name = "Frame1"
        Me.Frame1.RightToLeft = System.Windows.Forms.RightToLeft.No
        Me.Frame1.Size = New System.Drawing.Size(152, 54)
        Me.Frame1.TabIndex = 0
        Me.Frame1.TabStop = False
        Me.Frame1.Text = "MP3PLAY OCX Ver:"
        '
        'Command13
        '
        Me.Command13.BackColor = System.Drawing.SystemColors.Control
        Me.Command13.Cursor = System.Windows.Forms.Cursors.Default
        Me.Command13.Location = New System.Drawing.Point(82, 16)
        Me.Command13.Name = "Command13"
        Me.Command13.RightToLeft = System.Windows.Forms.RightToLeft.No
        Me.Command13.Size = New System.Drawing.Size(58, 31)
        Me.Command13.TabIndex = 55
        Me.Command13.Text = "About"
        '
        'Text1
        '
        Me.Text1.AcceptsReturn = True
        Me.Text1.AutoSize = False
        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(13, 21)
        Me.Text1.MaxLength = 0
        Me.Text1.Name = "Text1"
        Me.Text1.RightToLeft = System.Windows.Forms.RightToLeft.No
        Me.Text1.Size = New System.Drawing.Size(43, 23)
        Me.Text1.TabIndex = 1
        Me.Text1.Text = ""
        '
        'Form1
        '
        Me.AutoScaleBaseSize = New System.Drawing.Size(6, 14)
        Me.ClientSize = New System.Drawing.Size(610, 431)
        Me.Controls.AddRange(New System.Windows.Forms.Control() {Me.Mp3Play1, Me.Frame15, Me.Frame14, Me.Frame13, Me.Frame12, Me.Frame11, Me.Frame10, Me.Frame9, Me.Frame8, Me.Frame7, Me.Frame6, Me.Frame5, Me.Frame4, Me.Frame3, Me.Frame2, Me.Frame1})
        Me.Location = New System.Drawing.Point(243, 231)
        Me.Name = "Form1"
        Me.StartPosition = System.Windows.Forms.FormStartPosition.Manual
        Me.Text = "MP3PLAY.OCX Test"
        CType(Me.Mp3Play1, System.ComponentModel.ISupportInitialize).EndInit()
        Me.Frame15.ResumeLayout(False)
        Me.Frame14.ResumeLayout(False)
        Me.Frame13.ResumeLayout(False)
        Me.Frame12.ResumeLayout(False)
        Me.Frame11.ResumeLayout(False)
        Me.Frame10.ResumeLayout(False)
        Me.Frame9.ResumeLayout(False)
        Me.Frame8.ResumeLayout(False)
        Me.Frame7.ResumeLayout(False)
        Me.Frame6.ResumeLayout(False)
        Me.Frame5.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 
	
	Private Sub Command1_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles Command1.Click
		
		On Error GoTo error_handle
		
		Text3.Text = CStr(Mp3Play1.Play)
		
		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
			Mp3Play1.SetErrorMode(1)
			Command10.Text = "on"
		Else
			Mp3Play1.SetErrorMode(0)
			Command10.Text = "off"
		End If
		
	End Sub
	
	Private Sub Command11_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles Command11.Click
		
		On Error GoTo error_handle
		
		HScroll1.Value = Mp3Play1.GetVolumeLeftP
		Text27.Text = CStr(Mp3Play1.GetVolumeLeftP)
		
		Exit Sub
error_handle: 
		Text21.Text = ErrorToString()
		Resume Next
	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
		Mp3Play1.AboutBox()
		
		
	End Sub
	
	Private Sub Command14_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles Command14.Click
		On Error GoTo error_handle
		Text26.Text = CStr(Mp3Play1.Pause)
		Exit Sub
error_handle: 
		Text21.Text = ErrorToString()
		Resume Next
		
	End Sub
	
	Private Sub Command15_Click()
		Mp3Play1.ChannelMode = 3
		
	End Sub
	
	Private Sub Command2_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles Command2.Click
		On Error GoTo error_handle
		
		Text5.Text = CStr(Mp3Play1.Close)
		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
		Text2.Text = CStr(Mp3Play1.Open(Text22.Text, ""))
		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(Mp3Play1.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
		On Error GoTo error_handle
		Text7.Text = "Bitrate: " & Mp3Play1.BitRate
		Text8.Text = "Total Frame: " & Mp3Play1.FrameCount
		Text9.Text = "Frame notify count: " & Mp3Play1.FrameNotifyCount
		Text10.Text = "Has checksum: " & Mp3Play1.HasChecksums
		Text11.Text = "Is copyrighted: " & Mp3Play1.IsCopyrighted
		Text12.Text = "Is Original: " & Mp3Play1.IsOriginal
		Text13.Text = "Layer: " & Mp3Play1.Layer
		Text14.Text = "MPEG Mode: " & Mp3Play1.MPEGMode
		Text15.Text = "MPEG Version: " & Mp3Play1.MPEGVersion
		Text16.Text = "MS per frame: " & Mp3Play1.MsPerFrame
		Text17.Text = "Sample Frequenz: " & Mp3Play1.SampleFrequency
		Text18.Text = "Total time: " & Mp3Play1.TotalTime
		Exit Sub
error_handle: 
		Text21.Text = ErrorToString()
		Resume Next
		
	End Sub
	
	Private Sub Command6_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles Command6.Click
		On Error GoTo error_handle
		
		Text20.Text = CStr(Mp3Play1.Seek(CDbl(Text6.Text) - 400))
		Exit Sub
error_handle: 
		Text21.Text = ErrorToString()
		Resume Next
		
	End Sub
	
	Private Sub Command7_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles Command7.Click
		On Error GoTo error_handle
		
		Text20.Text = CStr(Mp3Play1.Seek(CDbl(Text6.Text) - 40))
		Exit Sub
error_handle: 
		Text21.Text = ErrorToString()
		Resume Next
		
	End Sub
	
	Private Sub Command8_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles Command8.Click
		On Error GoTo error_handle
		
		Text20.Text = CStr(Mp3Play1.Seek(CDbl(Text6.Text) + 40))
		Exit Sub
error_handle: 
		Text21.Text = ErrorToString()
		Resume Next
		
	End Sub
	
	Private Sub Command9_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles Command9.Click
		On Error GoTo error_handle
		
		Text20.Text = CStr(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(Mp3Play1.Version / 100)
		
	End Sub
	
	'UPGRADE_NOTE: HScroll1.Change 已由事件更改为过程。 单击以获得更多信息：ms-help://MS.MSDNVS/vbcon/html/vbup2010.htm
	Private Sub HScroll1_Change(ByVal newScrollValue As Integer)
		Dim e As Object
		On Error GoTo error_handle
		'UPGRADE_WARNING: 未能解析对象 e 的默认属性。 单击以获得更多信息：ms-help://MS.MSDNVS/vbcon/html/vbup1037.htm
		e = Mp3Play1.SetVolumeP(newScrollValue, newScrollValue)
		Text27.Text = CStr(newScrollValue)
		Exit Sub
error_handle: 
		Text21.Text = ErrorToString()
		Resume Next
	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
		
		'UPGRADE_ISSUE: Shape 属性 Shape1.FillColor 未升级。 单击以获得更多信息：ms-help://MS.MSDNVS/vbcon/html/vbup2064.htm
        'If Shape1.FillColor = &HC000 Then
        'UPGRADE_ISSUE: Shape 属性 Shape1.FillColor 未升级。 单击以获得更多信息：ms-help://MS.MSDNVS/vbcon/html/vbup2064.htm
        'Shape1.FillColor = &HC0
        'Else
			'UPGRADE_ISSUE: Shape 属性 Shape1.FillColor 未升级。 单击以获得更多信息：ms-help://MS.MSDNVS/vbcon/html/vbup2064.htm
        'Shape1.FillColor = &HC000
        'End If
		
	End Sub
	
	Private Sub VScroll1_Change()
		
	End Sub
	Private Sub HScroll1_Scroll(ByVal eventSender As System.Object, ByVal eventArgs As System.Windows.Forms.ScrollEventArgs) Handles HScroll1.Scroll
		Select Case eventArgs.type
			Case System.Windows.Forms.ScrollEventType.EndScroll
				HScroll1_Change(eventArgs.newValue)
		End Select
	End Sub
End Class