示例代码：
1． 打开记事本
  Private Sub Command1_Click()
    Shell "Notepad E:\VB练习\添加DTPicker控件.txt ", vbNormalFocus
  End Sub
注：NotePad后有空格
2． 打开QQ登陆界面
  Private Sub Command2_Click()
    Shell "D:\Program Files\Tencent\QQ2009\", vbNormalFocus
  End Sub
3． 打开Word文档
  Private Sub Command3_Click(Index As Integer)
  Dim strDir As String
  strDir = "E:\VB练习\Test.doc"
  Select Case Index
  Case 0
        Shell "C:\Program Files\Microsoft Office\OFFICE11\WINWORD.EXE " & strDir, vbHide
  Case 1
        Shell "C:\Program Files\Microsoft Office\OFFICE11\WINWORD.EXE " & strDir, vbNormalFocus
  Case 2
        Shell "C:\Program Files\Microsoft Office\OFFICE11\WINWORD.EXE " & strDir, vbMinimizedNoFocus
  Case 3
        Shell "C:\Program Files\Microsoft Office\OFFICE11\WINWORD.EXE " & strDir, vbNormalNoFocus
  Case 4
        Shell "C:\Program Files\Microsoft Office\OFFICE11\WINWORD.EXE " & strDir, vbMaximizedFocus
  End Select
  End Sub
注：C:\Program Files\Microsoft Office\OFFICE11\WINWORD.EXE之后有空格
* 在开始->运行里面能执行的命令用shell函数也行
Shell的语法：Shell(PathName[，WindowStyle])。
  PathName为必需参数。类型为String，它指出了要执行的程序名，以及任何需要的参数或命令行变量，也可以包括路径名。
  WindowStyle为可选参数。Integer类型，指定在程序运行时窗口的样式。WindowStyleshell代码有以下这些值。
  常量                  值        描述
VbHide                      0      窗口被隐藏，且焦点会移到隐式窗口。
VbNormalFocus        1      窗口具有焦点，且会还原到它原来的大小和位置。
VbMinimizedFocus    2      窗口会以一个具有焦点的图标来显示（缺省值）。
VbMaximizedFocus    3      窗口是一个具有焦点的最大化窗口。
VbNormalNoFocus    4      窗口会被还原到最近使用的大小和位置，而当前活动的窗口仍然保持活动。
VbMinimizedNoFocus 6    窗口会以一个图标来显示，而当前活动的窗口仍然保持活动。

版权声明：本站内容均来自互联网，仅供演示用，请勿用于商业和其他非法用途。如果侵犯了您的权益请与我们联系QQ:729038198，我们将在24小时内删除。