请问VB编程高手们：

来源：百度知道 编辑：UC知道 时间：2024/06/16 11:56:19
在 开始》》》所有程序（WinXP）》》》附件》》》娱乐 菜单中 音量控制 有一个名为音量控制的快捷方式，单击它，打开程序 音量控制，请问：如何利用VB现有控件编出同样功能的音量控制程序，我需要这些代码及控件用于我编写的音频文件播放器，十万火急！！！谢谢！！！如果成功了本人一定追加！！！

呵呵!楼上的蹭分啊!
为了声音再加个控件不是很值哈!

下面的程序不是我写的!但是很不错!一个vb类,提供了很全的vb操作方法!使用简单

先新建个类clsVolume,把下面文件复制进去
=======================================开始
Option Explicit

Private hmem As Long

Const MMSYSERR_NOERROR = 0
Const MAXPNAMELEN = 32
Const MIXER_LONG_NAME_CHARS = 64
Const MIXER_SHORT_NAME_CHARS = 16
Const MIXER_GETLINEINFOF_COMPONENTTYPE = &H3&
Const MIXER_GETCONTROLDETAILSF_VALUE = &H0&
Const MIXER_SETCONTROLDETAILSF_VALUE = &H0&
Const MIXER_GETLINECONTROLSF_ONEBYTYPE = &H2&
Const MIXERLINE_COMPONENTTYPE_DST_FIRST = &H0&
Const MIXERLINE_COMPONENTTYPE_SRC_FIRST = &H1000&
Const MIXERLINE_COMPONENTTYPE_DST_SPEAKERS = _
(MIXERLINE_COMPONENTTYPE_DST_FIRST + 4)
Const MIXERLINE_COMPONENTTYPE_SRC_MICROPHONE = _
(MIXERLINE_COMPONENTTYPE_SRC_FIRST + 3)
Const MIXERLINE_COMPONENTTYPE_SRC_LINE = _
(MIXERLINE_COMPONENTTYPE_SRC_FIRS