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

最新推荐文章于 2023-05-25 17:48:22 发布

叶帆

最新推荐文章于 2023-05-25 17:48:22 发布

阅读量7k

点赞数

分类专栏：〖VB〗文章标签： shell 微软 integer windows dll c

本文链接：https://blog.csdn.net/yfiot/article/details/1136417

版权

〖VB〗专栏收录该内容

31 篇文章 3 订阅

订阅专栏

没有想到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