shell vb6 命令 重命名_VB Shell函数用法(转)

示例代码：

1．打开记事本

Private Sub Command1_Click()

Shell "Notepad E:\VB练习\添加DTPicker控件.txt ", vbNormalFocus

End Sub

注：NotePad后有空格

要用shell 打开相对路径的txt文件的话可以调用系统的记事本程序，shell "notepad.exe" & "空格" & "文本文件名"

2．打开QQ登陆界面

Private Sub Command2_Click()

Shell "D:\Program Files\Tencent\QQ2009\Bin\qq.exe", 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类型，指定在程序运行时窗口的样式。WindowStyle有以下这些值。

常量 值 描述

VbHide 0 窗口被隐藏，且焦点会移到隐式窗口。

VbNormalFocus 1 窗口具有焦点，且会还原到它原来的大小和位置。

VbMinimizedFocus 2 窗口会以一个具有焦点的图标来显示(缺省值)。

VbMaximizedFocus 3窗口是一个具有焦点的最大化窗口。

VbNormalNoFocus 4 窗口会被还原到最近使用的大小和位置，而当前活动的窗口仍然保持活动。

VbMinimizedNoFocus 6 窗口会以一个图标来显示，而当前活动的窗口仍然保持活动。

总结一下，Shell就是一个打开应用程序的函数，所带的参数为样式参数。