Declare Function waveOutUnprepareHeader Lib "winmm.dll" Alias "waveOutUnprepareHeader" (ByVal hWaveOut As Long, lpWaveOutHdr As WAVEHDR, ByVal uSize As Long) As Long
应该用这个函数 Declare Function waveOutSetVolume Lib "winmm.dll" Alias "waveOutSetVolume" (ByVal uDeviceID As Long, ByVal dwVolume As Long) As Long
Private Declare Function SendMessage Lib "user32.dll" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As LongPrivate Sub Command1_Click() '音量增大 SendMessage hwnd, 793, 197266, 655360 End SubPrivate Sub Command2_Click() '音量减小 SendMessage hwnd, 793, 197266, 589824 End SubPrivate Sub Command3_Click() '静音 SendMessage hwnd, 793, 2100912, 524288 End Sub
Declare Function waveOutUnprepareHeader Lib "winmm.dll" Alias "waveOutUnprepareHeader" (ByVal hWaveOut As Long, lpWaveOutHdr As WAVEHDR, ByVal uSize As Long) As Long
Declare Function waveOutSetVolume Lib "winmm.dll" Alias "waveOutSetVolume" (ByVal uDeviceID As Long, ByVal dwVolume As Long) As Long
本人大一新生正在学习VB中很多弱智问题,希望前辈们多多指教
'音量增大
SendMessage hwnd, 793, 197266, 655360
End SubPrivate Sub Command2_Click()
'音量减小
SendMessage hwnd, 793, 197266, 589824
End SubPrivate Sub Command3_Click()
'静音
SendMessage hwnd, 793, 2100912, 524288
End Sub