我用MMcontrol做了一个简单的播放器,但不知道怎样在程序中控制它的音量,求教高手.

我顶上去

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


给你代码 自己摸索吧

谢谢啊~~我会摸索的,不明白的地方我还要请教.

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
请问这部份要放在哪里的?

放在窗体的通用声明段...

text1的值是MMcontrol的音量吗?MMcontrol的哪个属性是表示它的音量的?

  用的是ＡＰＩ　不是你说的那个控件．．

API...头晕....