' *************************************************************************
' **模 块 名：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