急需vb中音量调节的方法

Question

我使用了一个image控件课拖动（水平），需要实现音量调节。也即是image控件其实就是音量调节器。想实现通过image.left来控制音量调节。希望高手提供指教，最好附上源代码。 

Answer 1

Declare Function waveOutUnprepareHeader Lib "winmm.dll" Alias "waveOutUnprepareHeader" (ByVal hWaveOut As Long, lpWaveOutHdr As WAVEHDR, ByVal uSize As Long) As Long

Answer 2

应该用这个函数
Declare Function waveOutSetVolume Lib "winmm.dll" Alias "waveOutSetVolume" (ByVal uDeviceID As Long, ByVal dwVolume As Long) As Long

Answer 3

我刚在网上搜了好多这个函数使用方法，不过还是不是很明白。假设我设V=image.left，那么我如何继续调用以上函数呢。
本人大一新生正在学习VB中很多弱智问题，希望前辈们多多指教

Answer 4

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

Answer 5

VB6里进行音量控制的类(VB6.0代码):   http://www.m5home.com/blog/article.asp?id=263