我怎么回复不了呢？没权限吗？
vb吧
全部回复
仅看楼主
level 3
楚汉云
楼主
@yjryym
这是我的代码，报错在最后赋值Ba.volume = -7000
Dim mp As New FilgraphManager
Dim Ba As IBasicAudio
Private Sub Form_Load()
mp.RenderFile App.Path & "\江湖.mid"
mp.Run
Set Ba = mp
Ba.volume = -7000
End Sub
2022年04月27日 12点04分
1
level 8
旋彩小伙子🎓
应该是不能调mid的音量，换成mp3文件就可以了
2022年04月28日 00点04分
2
楚汉云
谢谢，问题找到了，@yjryym，在windowsXP可以，但win10不行
2022年04月28日 01点04分
楚汉云
可问题是现在谁还用windowsXP呢？郁闷啊！
2022年04月28日 01点04分
1
