杭州交通信息网厄齐尔中场梳理:在VB中，WinXP系统下，怎样调用WMPalyer、音量管理和电源管理面板？
来源：百度文库 编辑：杭州交通信息网 时间：2024/05/15 03:15:24
新建一个窗体，在窗体中加入三个按钮，再将以下代码copy就可以了
Private Declare Function WinExec Lib "kernel32" _
(ByVal lpCmdLine As String, ByVal nCmdShow As Long) As Long
Private Sub Command1_Click()
Dim ss As Long
ss = WinExec("C:\Program Files\Windows Media Player\wmplayer.exe", 1)
End Sub
Private Sub Command2_Click()
Dim ss As Long
ss = WinExec("control.exe powercfg.cpl", 1)
End Sub
Private Sub Command3_Click()
Dim ss As Long
ss = WinExec("control.exe mmsys.cpl", 1)
End Sub
刚在windows XP ,VB6.0环境下测试过。