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

''''上面的代码是对属性的描述，是系统自已生成的，不要随意修改

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)

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