1
如何使用vb6减少我的音量?如何减少我的音量使用vb6
如何使用vb6减少我的音量?如何减少我的音量使用vb6
尝试用这样的事情:
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
哇哇它的工作原理...伟大的一个大感谢名单 – subanki 2010-07-11 08:58:31
+1只是为了能够找出提问者想要的东西! – 2010-07-11 12:21:07