微软核心模块shell32.dll的应用

本文主要是介绍微软核心模块shell32.dll的应用，希望对大家解决编程问题提供一定的参考价值，需要的开发者们随着小编来一起学习吧！

没有想到shell32.dll还隐藏着很多实用的功能函数，比如打开文件夹，查找电脑，最小化所有窗体等等，这个shell32.dll既是一个标准的COM，还是一个可以作为普通的DLL进行函数引用。

' *************************************************************************
' **模块名：frmDemo
' **说    明：YFsoft 版权所有2006 - 2007(C)
' **创建人：叶帆
' **日    期：2006-08-29 10:55:17
' **修改人：
' **日    期：
' **描    述：微软核心模块shell32.dll的应用
' **版    本：V1.0.0
' *************************************************************************
Option Explicit
Dim MsShell As New Shell

' *************************************************************************
' **函数名：cmdTest_Click
' **输    入：Index(Integer) -
' **输    出：无
' **功能描述：
' **全局变量：
' **调用模块：
' **作    者：叶帆
' **日    期：2006-08-29 10:55:19
' **修改人：
' **日    期：
' **版    本：V1.0.0
' *************************************************************************
Private Sub cmdTest_Click(Index As Integer )
     On Error GoTo ToExit ' 打开错误陷阱
     ' ------------------------------------------------
   Select Case Index
     ' ------------------------------------------------
     Case 0 :                            ' 查找电脑
      MsShell.FindComputer
     Case 1 :                            ' 文件运行
      MsShell.FileRun
     Case 2 :                            ' 查找文件夹
       MsgBox MsShell.BrowseForFolder( Me .hWnd, " 查找文件夹 " , 0 ).Title
     Case 3 :                            ' 层叠窗口
      MsShell.CascadeWindows
     Case 4 :                            ' 查找文件
      MsShell.FindFiles
     Case 5 :                            ' Windows帮助
      MsShell.Help
     Case 6 :                            ' 窗口最小化
      MsShell.MinimizeAll
     Case 7 :                            ' 恢复最小化
        MsShell.UndoMinimizeALL
     Case 8 :                            ' 打开文件
       MsShell.Open ( " c:windows otepad.exe " )
     Case 9 :                            ' 设置时间
       MsShell.SetTime
     Case 10 :                           ' 关闭计算机
       MsShell.ShutdownWindows
     Case 11 :                           ' 水平窗口
       MsShell.TileHorizontally
     Case 12 :                           ' 垂直窗口
       MsShell.TileVertically
     Case 13 :                           ' 路径名称
        MsgBox MsShell.NameSpace( " c:windowssystem32 " ).Title
   End Select

     ' ------------------------------------------------
     Exit Sub
     ' ----------------
ToExit:
     MsgBox Err.Description
End Sub

这篇关于微软核心模块shell32.dll的应用的文章就介绍到这儿，希望我们推荐的文章对编程师们有所帮助！