vb 增加系统音量按钮代码

来源：百度知道 编辑：UC知道 时间：2024/05/29 17:38:45
我想用vb做 按 Command1 增高音量 Command2下降音量 程序 ???
但不知道怎么写,请各位帮我写这个代码.
我相信大家肯定写的了!!!!
请大家帮忙,我可以控制系统声音,但控制不了播放器的声音!!!!!!

给你一个调节音量得例子

'set volume & set mute or not mute
'author:海龙
'mail:hailongxl@21cn.com
'qq:281131020
'msn:antiTears@hotmail.com
'website:http://xsoft.bokee.com
'date:2006-03-28
Option Explicit

Private Declare Function mixerGetNumDevs Lib "winmm.dll" () As Long
Private Declare Function GlobalLock Lib "kernel32" (ByVal hMem As Long) As Long
Private Declare Function mixerClose Lib "winmm.dll" (ByVal hmx As Long) As Long
Private Declare Function GlobalFree Lib "kernel32" (ByVal hMem As Long) As Long
Private Declare Function GlobalUnlock Lib "kernel32" (ByVal hMem As Long) As Long
Private Declare Function GlobalAlloc Lib "kernel32" (ByVal wFlags As Long, ByVal dwBytes As Long) As Long
Private Declare Sub CopyPtrFromStruct Lib "kernel32&quo