2024年5月29日发(作者：)

示例代码：

1． 打开记事本

Private Sub Command1_Click()

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

End Sub

注：NotePad后有空格

2． 打开QQ登陆界面

Private Sub Command2_Click()

Shell "D:Program ", vbNormalFocus

End Sub

3． 打开Word文档

Private Sub Command3_Click(Index As Integer)

Dim strDir As String

strDir = "E:VB练习"

Select Case Index

Case 0

Shell "C:Program FilesMicrosoft

strDir, vbHide

Case 1

Shell "C:Program FilesMicrosoft

strDir, vbNormalFocus

Case 2

Shell "C:Program FilesMicrosoft

strDir, vbMinimizedNoFocus

Case 3

Shell "C:Program FilesMicrosoft

strDir, vbNormalNoFocus

&

&

&

&

"

"

"

"

Case 4

Shell "C:Program FilesMicrosoft " &

strDir, vbMaximizedFocus

End Select

End Sub

注：C:Program FilesMicrosoft 之后有空格

* 在开始->运行里面能执行的命令用shell函数也行

Shell的语法：Shell(PathName[，WindowStyle])。

PathName为必需参数。类型为String，它指出了要执行的程序名，以及任何需要的参

数或命令行变量，也可以包括路径名。

WindowStyle为可选参数。Integer类型，指定在程序运行时窗口的样式。WindowStyle

有以下这些值。

常量 值 描述

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

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

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

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

VbNormalNoFocus 4

的窗口仍然保持活动。

VbMinimizedNoFocus 6

活动。

窗口会被还原到最近使用的大小和位置，而当前活动

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