音效档播放程式.doc
约4页DOC格式手机打开展开
音效档播放程式,内容齐全,建议下载阅览。①页数 4②字数 305③ 摘要 所需物件:picturebox(1),label(6),commandbutton(2),commondialog(1),mmcontrol(1)。 程式码: const interval = 1000 dim curval as double p...


内容介绍
此文档由会员 快乐浪子 发布
音效档播放程式
内容齐全,建议下载阅览。
①页数 4
②字数 305
③ 摘要
所需物件:PictureBox(1),Label(6),CommandButton(2),CommonDialog(1),MMControl(1)。
程式码:
Const INTERVAL = 1000
Dim CurVal As Double
Private Sub CmdEnd_Click()
MMControl1.Command = "stop"
MMControl1.Command = "close"
End
End Sub
④关键字 程式码
内容齐全,建议下载阅览。
①页数 4
②字数 305
③ 摘要
所需物件:PictureBox(1),Label(6),CommandButton(2),CommonDialog(1),MMControl(1)。
程式码:
Const INTERVAL = 1000
Dim CurVal As Double
Private Sub CmdEnd_Click()
MMControl1.Command = "stop"
MMControl1.Command = "close"
End
End Sub
④关键字 程式码