播放器音量控制问题！急！！在线＝＝

[840206]

我用的是ＭＣＩ这个控件做的播放器只播放ＤＡＴ格式的文件，现在音量控制不了！请问怎么控制那！用Slider1来控制，怎么写代码？我写的有错误，不知道怎么改啊？说是需求对象！
Private Sub Slider1_Click()
Dim i As CommonDialog1.FileName
Dim lv As Long, rv As Long
i = MPEGplay.setvolume(lv * Slider1.Value / 50, rv * Slider1.Value / 50)
End Sub

[840206]

大侠们赶紧来啊！急啊！

[leongwong]

楼主看看这个贴子，或许对你有帮助！
http://www.fesoo.net/bbs/dispbbs.asp?boardid=26&id=2226

[840206]

呵呵，那个帖子没用啊，没有关于音量控制的啊！

[840206]

高手赶紧进啊，小弟很急啊！

[xihongjian]

我这里有个简单的例子：
Private Declare Function waveOutSetVolume Lib "Winmm" (ByVal wDeviceID As Integer, ByVal dwVolume As Long) As Integer
Private Declare Function waveOutGetVolume Lib "Winmm" (ByVal wDeviceID As Integer, dwVolume As Long) As Integer
Private Sub Command1_Click()
Dim a, i As Long
Dim tmp As String
a = waveOutGetVolume(0, i)
tmp = "&h" & Right(Hex$(i), 4)
Text1 = CLng(tmp)
End Sub
Private Sub Command2_Click()
Dim a, i As Long
Dim tmp, vol As String
vol = Text1
tmp = Right((Hex$(vol + 65536)), 4)
vol = CLng("&H" & tmp & tmp)
a = waveOutSetVolume(0, vol)
End Sub

两个Command一个Text


可以控制系统音量 看能用上吗。

[killer0902]

刚好我写VOD写到了这里，说下我的方法
模块中调用Public 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



程序中我把音量写在写在Slider1_Click()过程中的
lReturn = mciSendString("setaudio d:\ok\AVSEQ01.DAT volume to " & Slider1.Value, vbNullString, 0, 0)
其中Slider1.Value就是音量大小