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

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()

文章整理：西部数码--专业提供域名注册、虚拟主机服务
http://www.west263.com
以上信息与文章正文是不可分割的一部分,如果您要转载本文章,请保留以上信息，谢谢!