使用 endPlay Sound函数 1)在VBNe中,调用AP函数必须先进行声明,它们的格式分别为 Declare Function snd PlaySound Lib"winmm. dll" Alias"snd Play Sound (By Val SoundName As String, By Val Flags As Long)As Long (2)在程序中调用该函数来播放*wav文件 sndPlaySound(“文件名Wav,1) (3)实现如图所示的界面,添加一个按钮控件,一个输入框控件和 个 Open FileDialog控件,用来打开文件 Form1 (4)添加源代码如下: Public class Form1 Declare Function sndPlaySound Lib" winmm.dll Alias snd Playsound (Byal SoundName As String, ByVal Flags As Long) As Long Private Sub Button1 Click(Byal sender As System Object, ByVal As System. EventArgs) Handles Button1. Click Dim filename As String OpenFileDialog 1. ShowDialogo filename =OpenFileDialog 1. FileName TextBox1.Text="正在播放"+ filename sndPlaySound(filename, 1) End Sub End class使用sndPlaySound函数 （1）在VB.Net中，调用API函数必须先进行声明，它们的格式分别为： Declare Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA" _ (ByVal SoundName As String, ByVal Flags As Long) As Long （2）在程序中调用该函数来播放*.wav文件： sndPlaySound (“文件名.wav”, 1 ） （3）实现如图所示的界面，添加一个按钮控件，一个输入框控件和一 个OpenFileDialog控件，用来打开文件 （4）添加源代码如下： Public Class Form1 Declare Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA" _ (ByVal SoundName As String, ByVal Flags As Long) As Long Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim filename As String OpenFileDialog1.ShowDialog() filename = OpenFileDialog1.FileName TextBox1.Text = "正在播放" + filename sndPlaySound (filename, 1) End Sub End Class