如題，求助：VB代碼實作打開我的電腦
uj5u.com熱心網友回復：
shell "explorer"uj5u.com熱心網友回復：
大神，試了不行啊！我是菜鳥，求全部代碼，跪謝uj5u.com熱心網友回復：
Option Explicit
'打開我的電腦
Private Sub Command1_Click()
Shell "explorer.exe /root,::{20D04FE0-3AEA-1069-A2D8-08002B30309D}", vbNormalFocus
End Sub
uj5u.com熱心網友回復：
這就是全部代碼，怎么不行
uj5u.com熱心網友回復：
3樓代碼測驗通過。難道他想要的是我的電腦屬性？uj5u.com熱心網友回復：
我測驗程序顯示的是打開我的檔案~uj5u.com熱心網友回復：
Shell "explorer.exe ::{20D04FE0-3AEA-1069-A2D8-08002B30309D}"
就可以,不用其他代碼
uj5u.com熱心網友回復：
開VB測驗了一下
Private Sub Command1_Click()
Shell "explorer.exe ::{20D04FE0-3AEA-1069-A2D8-08002B30309D}", vbNormalFocus
End Sub
可以
或者用
ShellExecute
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
Private Sub Command1_Click()
ShellExecute Me.hwnd, "open", "explorer", "::{20D04FE0-3AEA-1069-A2D8-08002B30309D}", vbNullString, 1
End Sub
這樣就可以
uj5u.com熱心網友回復：
試了下，可以打開轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/81828.html
標籤：VB基礎類