Private Declare Function waveOutSetVolume Lib "winmm.dll" (ByVal uDeviceID As Long, ByVal dwVolume As Long) As Long
Private Sub HScroll1_Change()
waveOutSetVolume 0, HScroll1.Value
End Sub
...全文
212打赏收藏
VB,运行下面代码后,右声道为什么坏了
Private Declare Function waveOutSetVolume Lib "winmm.dll" (ByVal uDeviceID As Long, ByVal dwVolume As Long) As Long Private Sub HScroll1_Change() waveOutSetVolume 0, HScroll1.Value End Sub