frmmain.vb

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

		Me.Text1.RightToLeft = System.Windows.Forms.RightToLeft.No
		Me.Text1.ScrollBars = System.Windows.Forms.ScrollBars.None
		Me.Text1.TabStop = True
		Me.Text1.Visible = True
		Me.Text1.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D
		Me.Text1.Name = "Text1"
		Me.Label2.Text = "Track:"
		Me.Label2.Size = New System.Drawing.Size(41, 17)
		Me.Label2.Location = New System.Drawing.Point(8, 24)
		Me.Label2.TabIndex = 9
		Me.Label2.TextAlign = System.Drawing.ContentAlignment.TopLeft
		Me.Label2.BackColor = System.Drawing.SystemColors.Control
		Me.Label2.Enabled = True
		Me.Label2.ForeColor = System.Drawing.SystemColors.ControlText
		Me.Label2.Cursor = System.Windows.Forms.Cursors.Default
		Me.Label2.RightToLeft = System.Windows.Forms.RightToLeft.No
		Me.Label2.UseMnemonic = True
		Me.Label2.Visible = True
		Me.Label2.AutoSize = False
		Me.Label2.BorderStyle = System.Windows.Forms.BorderStyle.None
		Me.Label2.Name = "Label2"
		Me.frmTime.Text = "快进/快退"
		Me.frmTime.Size = New System.Drawing.Size(209, 49)
		Me.frmTime.Location = New System.Drawing.Point(8, 48)
		Me.frmTime.TabIndex = 2
		Me.frmTime.BackColor = System.Drawing.SystemColors.Control
		Me.frmTime.Enabled = True
		Me.frmTime.ForeColor = System.Drawing.SystemColors.ControlText
		Me.frmTime.RightToLeft = System.Windows.Forms.RightToLeft.No
		Me.frmTime.Visible = True
		Me.frmTime.Name = "frmTime"
		Me.Text2.AutoSize = False
		Me.Text2.Size = New System.Drawing.Size(25, 19)
		Me.Text2.Location = New System.Drawing.Point(8, 16)
		Me.Text2.TabIndex = 5
		Me.Text2.Text = "5"
		Me.Text2.AcceptsReturn = True
		Me.Text2.TextAlign = System.Windows.Forms.HorizontalAlignment.Left
		Me.Text2.BackColor = System.Drawing.SystemColors.Window
		Me.Text2.CausesValidation = True
		Me.Text2.Enabled = True
		Me.Text2.ForeColor = System.Drawing.SystemColors.WindowText
		Me.Text2.HideSelection = True
		Me.Text2.ReadOnly = False
		Me.Text2.Maxlength = 0
		Me.Text2.Cursor = System.Windows.Forms.Cursors.IBeam
		Me.Text2.MultiLine = False
		Me.Text2.RightToLeft = System.Windows.Forms.RightToLeft.No
		Me.Text2.ScrollBars = System.Windows.Forms.ScrollBars.None
		Me.Text2.TabStop = True
		Me.Text2.Visible = True
		Me.Text2.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D
		Me.Text2.Name = "Text2"
		Me.Command6.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
		Me.Command6.Text = "<<"
		Me.Command6.Size = New System.Drawing.Size(33, 25)
		Me.Command6.Location = New System.Drawing.Point(112, 16)
		Me.Command6.TabIndex = 4
		Me.Command6.BackColor = System.Drawing.SystemColors.Control
		Me.Command6.CausesValidation = True
		Me.Command6.Enabled = True
		Me.Command6.Cursor = System.Windows.Forms.Cursors.Default
		Me.Command6.RightToLeft = System.Windows.Forms.RightToLeft.No
		Me.Command6.TabStop = True
		Me.Command6.Name = "Command6"
		Me.Command7.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
		Me.Command7.Text = ">>"
		Me.Command7.Size = New System.Drawing.Size(33, 25)
		Me.Command7.Location = New System.Drawing.Point(152, 16)
		Me.Command7.TabIndex = 3
		Me.Command7.BackColor = System.Drawing.SystemColors.Control
		Me.Command7.CausesValidation = True
		Me.Command7.Enabled = True
		Me.Command7.Cursor = System.Windows.Forms.Cursors.Default
		Me.Command7.RightToLeft = System.Windows.Forms.RightToLeft.No
		Me.Command7.TabStop = True
		Me.Command7.Name = "Command7"
		Me.Label1.Text = "Seconds"
		Me.Label1.Size = New System.Drawing.Size(65, 17)
		Me.Label1.Location = New System.Drawing.Point(40, 16)
		Me.Label1.TabIndex = 6
		Me.Label1.TextAlign = System.Drawing.ContentAlignment.TopLeft
		Me.Label1.BackColor = System.Drawing.SystemColors.Control
		Me.Label1.Enabled = True
		Me.Label1.ForeColor = System.Drawing.SystemColors.ControlText
		Me.Label1.Cursor = System.Windows.Forms.Cursors.Default
		Me.Label1.RightToLeft = System.Windows.Forms.RightToLeft.No
		Me.Label1.UseMnemonic = True
		Me.Label1.Visible = True
		Me.Label1.AutoSize = False
		Me.Label1.BorderStyle = System.Windows.Forms.BorderStyle.None
		Me.Label1.Name = "Label1"
		Me.Command4.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
		Me.Command4.Text = "弹出CD"
		Me.Command4.Size = New System.Drawing.Size(81, 25)
		Me.Command4.Location = New System.Drawing.Point(16, 16)
		Me.Command4.TabIndex = 1
		Me.Command4.BackColor = System.Drawing.SystemColors.Control
		Me.Command4.CausesValidation = True
		Me.Command4.Enabled = True
		Me.Command4.Cursor = System.Windows.Forms.Cursors.Default
		Me.Command4.RightToLeft = System.Windows.Forms.RightToLeft.No
		Me.Command4.TabStop = True
		Me.Command4.Name = "Command4"
		Me.Command3.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
		Me.Command3.Text = "关闭CD"
		Me.Command3.Size = New System.Drawing.Size(81, 25)
		Me.Command3.Location = New System.Drawing.Point(128, 16)
		Me.Command3.TabIndex = 0
		Me.Command3.BackColor = System.Drawing.SystemColors.Control
		Me.Command3.CausesValidation = True
		Me.Command3.Enabled = True
		Me.Command3.Cursor = System.Windows.Forms.Cursors.Default
		Me.Command3.RightToLeft = System.Windows.Forms.RightToLeft.No
		Me.Command3.TabStop = True
		Me.Command3.Name = "Command3"
		Me.Controls.Add(Command2)
		Me.Controls.Add(Frame2)
		Me.Controls.Add(Frame1)
		Me.Controls.Add(frmTime)
		Me.Controls.Add(Command4)
		Me.Controls.Add(Command3)
		Me.Frame2.Controls.Add(Label5)
		Me.Frame2.Controls.Add(Label4)
		Me.Frame2.Controls.Add(Label3)
		Me.Frame1.Controls.Add(Command1)
		Me.Frame1.Controls.Add(Command5)
		Me.Frame1.Controls.Add(Text1)
		Me.Frame1.Controls.Add(Label2)
		Me.frmTime.Controls.Add(Text2)
		Me.frmTime.Controls.Add(Command6)
		Me.frmTime.Controls.Add(Command7)
		Me.frmTime.Controls.Add(Label1)
	End Sub
#End Region 
#Region "升级支持"
	Private Shared m_vb6FormDefInstance As frmMain
	Private Shared m_InitializingDefInstance As Boolean
	Public Shared Property DefInstance() As frmMain
		Get
			If m_vb6FormDefInstance Is Nothing OrElse m_vb6FormDefInstance.IsDisposed Then
				m_InitializingDefInstance = True
				m_vb6FormDefInstance = New frmMain()
				m_InitializingDefInstance = False
			End If
			DefInstance = m_vb6FormDefInstance
		End Get
		Set
			m_vb6FormDefInstance = Value
		End Set
	End Property
#End Region 
	Dim Snd As CDAudio
	
	Private Sub Command1_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles Command1.Click
		Snd.SeekCDtoX(Val(Text1.Text))
	End Sub
	
	Private Sub Command3_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles Command3.Click
		Dim Total As Integer
		Dim CDLength As String
		
		Snd.CloseCD()
		Total = Snd.GetNumTracks
		Label3.Text = "共" & Str(Total) & " 首"
		Label4.Text = "正在播第 " & Text1.Text & " 首"
		CDLength = Snd.GetCDLength
		Label5.Text = "CD的长度为： " & CDLength
	End Sub
	
	Private Sub Command4_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles Command4.Click
		Snd.EjectCD()
		Label3.Text = ""
		Label4.Text = ""
		Label4.Text = ""
		Label5.Text = ""
	End Sub
	
	Private Sub Command5_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles Command5.Click
		Snd.StopPlay()
	End Sub
	
	Private Sub Command6_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles Command6.Click
		Snd.ReWind(Val(Text2.Text) * 1000)
	End Sub
	
	Private Sub Command7_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles Command7.Click
		Snd.FastForward(Val(Text2.Text) * 1000)
	End Sub
	
	
	
	Private Sub frmMain_Load(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles MyBase.Load
		Snd = New CDAudio
		Snd.ReadyDevice()
		
		Label3.Text = ""
		Label4.Text = ""
		Label5.Text = ""
		
		Command3_Click(Command3, New System.EventArgs())
	End Sub
	
	'UPGRADE_WARNING: Form 事件 frmMain.Unload 具有新的行为。 单击以获得更多信息：ms-help://MS.MSDNVS/vbcon/html/vbup2065.htm
	Private Sub frmMain_Closed(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles MyBase.Closed
		Snd.StopPlay()
		Snd.UnloadAll()
	End Sub
	
	Private Sub Text1_TextChanged(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles Text1.TextChanged
		Label4.Text = "正在播第 " & Text1.Text & " 首"
	End Sub
End Class