用VB的mediaplay控件,可以播放WAV
解决方案 »
- 此变数使用了VisualBasic 不支援的Automation
- 乱码
- 帮我看看有关多参数查询的问题
- 紧急求助!!!
- 用printer对象怎么实现打印?怎么把需要打印的内容送到printer中,比如一个文本框中的内容,然后怎么打印?最好给个例子。
- winsock 可以直接发16进制吗?如能怎么发?
- 怎么在datagrid控件的某个单元格中实现下拉列表,又要麻烦大家,真是有点不好意思了。
- 怎么样将数据导入到EXCEL中分两个SHEETS打印??
- 如何利用VB使用GBK中的日文汉字?
- 如何在VB制作的安装程序中注册OCX控件,救命!救命!!!十万火急!!
- 在什么地方可以查到API函数里用到的一些常数的值?
- 苦恼中:ACCESS 为什么经常坏表!
http://www.csdn.net/expert/topic/652/652471.xml?temp=.7990991
Private Declare Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA" (ByVal lpszSoundName As String, ByVal uFlags As Long) As Long
Private Const SND_ASYNC = &H1Private Sub cmdPlay_Load()
sndPlaySound "C:\SoundFile.WAV", SND_ASYNC '播放
End SubPrivate Sub cmdStop_Click()
sndPlaySound "", SND_ASYNC '停止
End Sub