waveplay.vb

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

		Me.Command3.Text = "&Missing Cursor"
		Me.Command3.Size = New System.Drawing.Size(121, 33)
		Me.Command3.Location = New System.Drawing.Point(8, 136)
		Me.Command3.TabIndex = 2
		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.Command2.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
		Me.Command2.Text = "Elvis' &Demise"
		Me.Command2.Size = New System.Drawing.Size(137, 33)
		Me.Command2.Location = New System.Drawing.Point(144, 216)
		Me.Command2.TabIndex = 9
		Me.Command2.BackColor = System.Drawing.SystemColors.Control
		Me.Command2.CausesValidation = True
		Me.Command2.Enabled = True
		Me.Command2.Cursor = System.Windows.Forms.Cursors.Default
		Me.Command2.RightToLeft = System.Windows.Forms.RightToLeft.No
		Me.Command2.TabStop = True
		Me.Command2.Name = "Command2"
		Me.Command1.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
		Me.Command1.Text = "&I'm OK, Your OK"
		Me.Command1.Size = New System.Drawing.Size(121, 33)
		Me.Command1.Location = New System.Drawing.Point(8, 56)
		Me.Command1.TabIndex = 0
		Me.Command1.BackColor = System.Drawing.SystemColors.Control
		Me.Command1.CausesValidation = True
		Me.Command1.Enabled = True
		Me.Command1.Cursor = System.Windows.Forms.Cursors.Default
		Me.Command1.RightToLeft = System.Windows.Forms.RightToLeft.No
		Me.Command1.TabStop = True
		Me.Command1.Name = "Command1"
		Me.Label1.TextAlign = System.Drawing.ContentAlignment.TopCenter
		Me.Label1.Text = "这个例子中包含了很多有趣的声音，并采用Windows API函数播放这些声音文件!"
		Me.Label1.ForeColor = System.Drawing.Color.Blue
		Me.Label1.Size = New System.Drawing.Size(265, 33)
		Me.Label1.Location = New System.Drawing.Point(8, 16)
		Me.Label1.TabIndex = 11
		Me.Label1.BackColor = System.Drawing.SystemColors.Control
		Me.Label1.Enabled = True
		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.Controls.Add(Command11)
		Me.Controls.Add(Command10)
		Me.Controls.Add(Command9)
		Me.Controls.Add(Command8)
		Me.Controls.Add(Command7)
		Me.Controls.Add(Command6)
		Me.Controls.Add(Command5)
		Me.Controls.Add(Command4)
		Me.Controls.Add(Command3)
		Me.Controls.Add(Command2)
		Me.Controls.Add(Command1)
		Me.Controls.Add(Label1)
	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 Soundname As String
	Dim wFlags As Short
	Dim x As Short
	Dim Location_Renamed As String
	Private Sub Command1_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles Command1.Click
		Location_Renamed = "E:\sound" 'CurDir()
		Soundname = Location_Renamed & "\" & "ok.wav" '"c:\VB\WAVEPLAY\OK.WAV"
		wFlags = SND_ASYNC Or SND_NODEFAULT
		x = sndPlaySound(Soundname, wFlags)
	End Sub
	
	Private Sub Command10_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles Command10.Click
		Location_Renamed = "E:\sound" 'CurDir()
		Soundname = Location_Renamed & "\" & "ok.wav" '"c:\VB\WAVEPLAY\UHUH.WAV"
		wFlags = SND_ASYNC Or SND_NODEFAULT
		x = sndPlaySound(Soundname, wFlags)
	End Sub
	
	Private Sub Command11_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles Command11.Click
		Location_Renamed = "E:\sound" 'CurDir()
		Soundname = Location_Renamed & "\" & "gcrowd.WAV" '"c:\VB\WAVEPLAY\gcrowd.WAV"
		wFlags = SND_ASYNC Or SND_NODEFAULT
		x = sndPlaySound(Soundname, wFlags)
		
		End
	End Sub
	
	
	Private Sub Command2_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles Command2.Click
		Location_Renamed = "E:\sound" 'CurDir()
		Soundname = Location_Renamed & "\" & "DONUTS.WAV" ' "c:\VB\WAVEPLAY\DONUTS.WAV"
		wFlags = SND_ASYNC Or SND_NODEFAULT
		x = sndPlaySound(Soundname, wFlags)
	End Sub
	
	
	Private Sub Command3_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles Command3.Click
		Location_Renamed = "E:\sound" 'CurDir()
		Soundname = Location_Renamed & "\" & "FINDCURSOR.WAV" '"c:\VB\WAVEPLAY\FINDCURSOR.WAV"
		wFlags = SND_ASYNC Or SND_NODEFAULT
		x = sndPlaySound(Soundname, wFlags)
	End Sub
	
	
	Private Sub Command4_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles Command4.Click
		Location_Renamed = "E:\sound" 'CurDir()
		Soundname = Location_Renamed & "\" & "FINDFILE.WAV" '"c:\VB\WAVEPLAY\FINDFILE.WAV"
		wFlags = SND_ASYNC Or SND_NODEFAULT
		x = sndPlaySound(Soundname, wFlags)
	End Sub
	
	
	Private Sub Command5_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles Command5.Click
		Location_Renamed = "E:\sound" 'CurDir()
		Soundname = Location_Renamed & "\" & "IKNOW.WAV" '"c:\VB\WAVEPLAY\IKNOW.WAV"
		wFlags = SND_ASYNC Or SND_NODEFAULT
		x = sndPlaySound(Soundname, wFlags)
	End Sub
	
	
	Private Sub Command6_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles Command6.Click
		Location_Renamed = "E:\sound" 'CurDir()
		Soundname = Location_Renamed & "\" & "IWANT.WAV" ' "c:\VB\WAVEPLAY\IWANT.WAV"
		wFlags = SND_ASYNC Or SND_NODEFAULT
		x = sndPlaySound(Soundname, wFlags)
		
	End Sub
	
	
	Private Sub Command7_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles Command7.Click
		Location_Renamed = "E:\sound" 'CurDir()
		Soundname = Location_Renamed & "\" & "OHMY.WAV" ' "c:\VB\WAVEPLAY\OHMY.WAV"
		wFlags = SND_ASYNC Or SND_NODEFAULT
		x = sndPlaySound(Soundname, wFlags)
	End Sub
	
	
	Private Sub Command8_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles Command8.Click
		Location_Renamed = "E:\sound" 'CurDir()
		Soundname = Location_Renamed & "\" & "OPENHELP.WAV" '"c:\VB\WAVEPLAY\OPENHELP.WAV" '
		wFlags = SND_ASYNC Or SND_NODEFAULT
		x = sndPlaySound(Soundname, wFlags)
	End Sub
	
	
	Private Sub Command9_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles Command9.Click
		Location_Renamed = "E:\sound" 'CurDir()
		Soundname = Location_Renamed & "\" & "SEEHOW.WAV" ' "c:\VB\WAVEPLAY\SEEHOW.WAV" '
		wFlags = SND_ASYNC Or SND_NODEFAULT
		x = sndPlaySound(Soundname, wFlags)
	End Sub
	
	
	Private Sub Form1_Load(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles MyBase.Load
		SetBounds(VB6.TwipsToPixelsX((VB6.PixelsToTwipsX(System.Windows.Forms.Screen.PrimaryScreen.Bounds.Width) - VB6.PixelsToTwipsX(Me.Width)) / 2), VB6.TwipsToPixelsY((VB6.PixelsToTwipsY(System.Windows.Forms.Screen.PrimaryScreen.Bounds.Height) - VB6.PixelsToTwipsY(Me.Height)) / 2), 0, 0, Windows.Forms.BoundsSpecified.X Or Windows.Forms.BoundsSpecified.Y)
		Location_Renamed = "E:\sound" 'CurDir()
		Soundname = "d:\demo1.wav"
		'"c:\VB\WAVEPLAY\START.WAV"
		wFlags = SND_ASYNC Or SND_NODEFAULT
		x = sndPlaySound(Soundname, wFlags)
	End Sub
End Class