VB.net 2010 视频教程 VB.net 2010 视频教程 python基础视频教程
SQL Server 2008 视频教程 c#入门经典教程 Visual Basic从门到精通视频教程
当前位置:
首页 > temp > VB.net教程 >
  • VB.Net播放声音文件3

内容:

    Protected Sub Button1_Click(ByVal sender As Object, 
ByVal e As System.EventArgs) 

        AxMMControl1.From = 8815 '从3000毫秒开始 

        AxMMControl1.To =15624 '从6000毫秒结束 

        AxMMControl1.Command = "play" '播放 

    End Sub 

     

    Protected Sub Button3_Click(ByVal sender As Object, 
ByVal e As System.EventArgs) 

        Me.Dispose() '调用dispose退出程序,释放占用的资源 

    End Sub 

    

    Protected Sub Form1_Click(ByVal sender As Object, ByVal 
e As System.EventArgs) 

        

    End Sub 

     

    Protected Sub Button2_Click(ByVal sender As Object, 
ByVal e As System.EventArgs) 

        AxMMControl1.From = 0 '从 0毫秒开始 

        AxMMControl1.To = 8815 '从3000毫秒结束 

        AxMMControl1.Command = "play" '播放 

    End Sub 

    

    Protected Sub AxMMControl1_OLEDragDrop(ByVal sender As 
Object, ByVal e As AxMCI.DmciEvents_OLEDragDropEvent) 

        

    End Sub 

    

    Public Sub me_load() 

        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的录音机录下来,这样生成的文件较小,把一些杂音,空白都剪切
掉,这样就是很小了。

相关教程