走近VB.Net(十) 播放声音文件(9)

Me.BackColor = color.BlanchedAlmond ''''改变背景色为BlanchedAlmond

Me.BorderStyle = FormBorderStyle.None ''''改变窗体边框为none,没有标题栏

button1.Text = "播放上段" : button2.Text = "播放下段" : button3.Text = "退出程序"

AxMMControl1.TimeFormat = 0

AxMMControl1.DeviceType = "waveaudio" ''''定义播放*.wav格式

AxMMControl1.filename = System.WinForms.Application.StartUpPath & "\" & "muli.wav" ''''载入文件， System.WinForms.Application.StartUpPath为当前目录的意思

AxMMControl1.Command = "open" ''''打开载入的文件

AxMMControl1.Visible = False ''''使控件不可见，在后台工作

End Sub

End Class

至于从几毫秒开始到几毫秒结束，是把不同的声音文件使用如acoustica.exe这样的声音编辑程序整理成一个文件，记住先使用windows的录音机录下来，这样生成的文件较小,把一些杂音，空白都剪切掉，这样就是很小了。

VB.Net中文站网址：http://vbnetcn.126.com

标签：

版权申明：本站文章部分自网络，如有侵权，请联系：west999com@outlook.com
特别注意：本站所有转载文章言论不代表本站观点，本站所提供的摄影照片，插画，设计作品，如需使用，请与原作者联系，版权归原作者所有