時(shí)間：2009-08-04 09:50 來(lái)源：www.msaccessonline.com 作者：佚名 閱讀：次

我們可以通過(guò)ShellExecute來(lái)執(zhí)行“打開(kāi)”，“查找”，“資源管理器”或“打印”操作

必要的聲明：
' nShowCmd
Public Const SW_HIDE = 0
Public Const SW_SHOWNORMAL = 1
Public Const SW_SHOWMINIMIZED = 2
Public Const SW_SHOWMAXIMIZED = 3
Public Const SW_MAXIMIZE = 3
Public Const SW_SHOWNOACTIVATE = 4
Public Const SW_SHOW = 5
Public Const SW_MINIMIZE = 6
Public Const SW_SHOWMINNOACTIVE = 7
Public Const SW_SHOWNA = 8
Public Const SW_RESTORE = 9

' Error Code
Public Const ERROR_FILE_NOT_FOUND = 2
Public Const ERROR_PATH_NOT_FOUND = 3
Public Const ERROR_BAD_FORMAT = 11

Public Const SE_ERR_FNF = 2
Public Const SE_ERR_PNF = 3
Public Const SE_ERR_accessDENIED = 5
Public Const SE_ERR_OOM = 8
Public Const SE_ERR_SHARE = 26
Public Const SE_ERR_ASSOCINCOMPLETE = 27
Public Const SE_ERR_DDETIMEOUT = 28
Public Const SE_ERR_DDEFAIL = 29
Public Const SE_ERR_DDEBUSY = 30
Public Const SE_ERR_NOASSOC = 31
Public Const SE_ERR_DLLNOTFOUND = 32

Public 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



“打開(kāi)”操作
ShellExecute Me.hwnd, "open", _
Text1.Text, _
vbNullString, vbNullString, _
SW_SHOWNORMAL


“查找”操作
ShellExecute Me.hwnd, "find", _
LocalDir, _
vbNullString, vbNullString, _
SW_SHOWNORMAL


“打印”操作
ShellExecute Me.hwnd, "print", _
Text1.Text, _
vbNullString, vbNullString, _
SW_SHOWNORMAL


“資源管理器”
ShellExecute Me.hwnd, "explore", _
LocalDir, _
vbNullString, vbNullString, _
SW_SHOWNORMAL


打開(kāi)“我的文檔”
ShellExecute Me.hwnd, _
"open", "explorer", _
vbNullString, vbNullString, _
SW_SHOWNORMAL


打開(kāi)“我的電腦”
' 我的電腦
' HKEY_CLASSES_ROOT\CLSID' {20D04FE0-3AEA-1069-A2D8-08002B30309D}

ShellExecute Me.hwnd, "open", _
"explorer", _
"::{20D04FE0-3AEA-1069-A2D8-08002B30309D}", _
vbNullString, SW_SHOWNORMAL


打開(kāi)“網(wǎng)上鄰居”
' 網(wǎng)上鄰居
' HKEY_CLASSES_ROOT\CLSID' {208D2C60-3AEA-1069-A2D7-08002B30309D}

ShellExecute Me.hwnd, "open", _
"explorer", _
"::{208D2C60-3AEA-1069-A2D7-08002B30309D}", _
vbNullString, SW_SHOWNORMAL


打開(kāi)“回收站”
' 回收站
' HKEY_CLASSES_ROOT\CLSID' {645FF040-5081-101B-9F08-00AA002F954E}

ShellExecute Me.hwnd, "open", _
"explorer", _
"::{645FF040-5081-101B-9F08-00AA002F954E}", _
vbNullString, SW_SHOWNORMAL

(責(zé)任編輯：admin)

上一篇：在VB中使用API函數(shù)(什么是API? )
下一篇：Access API集中營(yíng)--增加臨時(shí)使用的字體

• ·API函數(shù)詳細(xì)解釋
• ·Access從剪切版里復(fù)制和粘貼數(shù)據(jù)
• ·Access利用api實(shí)現(xiàn)打開(kāi)/關(guān)閉光驅(qū)
• ·應(yīng)用程序開(kāi)機(jī)自動(dòng)啟動(dòng)（注冊(cè)表操作技巧
• ·Access VBA 判斷網(wǎng)絡(luò)是否連通的多種辦
• ·什么是ADP,了解ADP的優(yōu)缺點(diǎn)
• ·優(yōu)秀產(chǎn)品大全--通用票據(jù)打印軟件(新)
• ·[技巧分享]多條Shell語(yǔ)句執(zhí)行導(dǎo)致判斷
• ·在access中可以調(diào)用API函數(shù)GetFileInfo
• ·Access API集中營(yíng)--增加臨時(shí)使用的字體
• ·API ShellExecute 功能說(shuō)明及應(yīng)用示例
• ·在VB中使用API函數(shù)(什么是API? )
• ·API實(shí)現(xiàn)完美的圖片出現(xiàn)效果（轉(zhuǎn)）
• ·API 設(shè)置調(diào)整系統(tǒng)當(dāng)前時(shí)間
• ·如何檢測(cè)以及設(shè)置鍵盤(pán)狀態(tài)
• ·不關(guān)閉當(dāng)前數(shù)據(jù)庫(kù)COPY當(dāng)前數(shù)據(jù)庫(kù)