VB窗体中有一个命令按钮标题为打开"设备管理器",如何编写代码,使其单击打开windows自带的设备管理器?
1个回答
2013-07-10
展开全部
'添加命令按钮(command1),复制下面代码,有问题追问Private Sub Command1_Click()
file = Environ$("windir") & "\system32\devmgmt.msc"
If Dir(file) <> "" Then
Call Shell("cmd /c " & file)
End If
End SubPrivate Sub Form_Load()
Command1.Caption = "打开设备管理器"
End Sub
file = Environ$("windir") & "\system32\devmgmt.msc"
If Dir(file) <> "" Then
Call Shell("cmd /c " & file)
End If
End SubPrivate Sub Form_Load()
Command1.Caption = "打开设备管理器"
End Sub
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询