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

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

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)

标签：

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