'声明
Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" (ByVal lpstrCommand As String, ByVal lpstrReturnString As String, ByVal uReturnLength As Long, ByVal hwndCallback As Long) As Long
'播放
private sub button1_click()
mcisendstring("play myvoice", "c:\my.mid", 0, 0)
end sub
'停止
private sub button2_click()
mcisendstring("stop myvoice", "c:\my.mid", 0, 0)
end sub
Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" (ByVal lpstrCommand As String, ByVal lpstrReturnString As String, ByVal uReturnLength As Long, ByVal hwndCallback As Long) As Long
'播放
private sub button1_click()
mcisendstring("play myvoice", "c:\my.mid", 0, 0)
end sub
'停止
private sub button2_click()
mcisendstring("stop myvoice", "c:\my.mid", 0, 0)
end sub
解决方案 »
- webbrowser的document问题
- 请教在excel中当数据长度大于表格长度时,自动换行的问题,求帮忙!!!
- 用WebBrower显示word文档,如何做到用户无法修改内容?
- 关于用树型控件(TreeView)与数据库相连的方法及思路!(高手请进)
- 第三个100分,祝大家新新快乐,年年有余!!
- 颜色指定的思路
- 如何用得到当前运行的所有程序,然后选择一个可以结束进程。我有一个程序可以结束当前的,但我想结束人意的一个,谁可以教我。
- 新手几个问题(数据库,vb环境,)
- 怎样截获别的应用程序发给我的窗体的resize消息,我要把这个消息扔掉。
- 使用VB打开1个html文件,如何自动获得页面上的所有URL,还包括如何自动登陆页面!
- 怎样把Drivelistbox与Dirlistbox两个控件联起来?
- VB问题欢迎指教,谢谢!
可以在点击flash按钮的时候,接受flash用fscommand传递过来的参数也许这个对你有用