您的位置：程序门 -> vb -> 多媒体

ｖｂ里播放音乐的问题．谢谢了

[收藏此页] [打印本页]选择字色：背景色：字体：[大][中][小]

ｖｂ里播放音乐的问题．谢谢了

发表于：2007-11-17 15:28:05 楼主

下面是我在一个程序里关于播放两个声音的代码．出现的情况是，运行后只可以播放一次声音．无论播放那个都可以．但就只能播放一次，在点播放的时候就没有声音了．？？？？谢谢了．
private 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 database_muse1（)
mcisendstring "open c:\mb1msg011.wav alias mc ", 0, 0, 0
mcisendstring "play mc ", 0, 0, 0

end sub
private sub database_muse2（)
mcisendstring "open c:\mb1msg028.wav alias mc ", 0, 0, 0
mcisendstring "play mc ", 0, 0, 0

end sub

private sub command1_click（)
database_yinyue2
end sub

private sub command2_click（)
database_yinyue1
end sub
谢谢了，急等．．．

发表于：2007-11-24 10:39:591楼得分:0

dim playone as boolean

.........................

private sub form_load（)
playone=true
end sub

.........................

private sub command1_click（)
if playone then
database_muse1
playone =not playone
endif
end sub

private sub command2_click（)
if playone then
database_muse2
playone =not playone
endif
end sub

发表于：2007-12-14 18:20:262楼得分:0

播放完了，记得关闭播放，
他自己不会关闭！
代码我好久没动过了，毕设时弄得。

下一篇：使用windows media player控件，用什么参数可以调整声音的速度，即音调可以变慢或变快？
上一篇：媒体？？？？？

其他资讯