神马品牌网韩国彩1.5分彩开奖号码:在VB中，WinXP系统下，怎样调用WMPalyer、音量管理和电源管理面板？
来源：百度文库 编辑：神马品牌网 时间：2024/05/01 17:07:03
新建一个窗体，在窗体中加入三个按钮，再将以下代码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环境下测试过。