hello,大家好,又来到了每周一期的知识大课堂啦,每期的知识大课堂,我们都会分享一个实用的知识点。本期的知识大课堂为大家带来的是:shell命令的使用方法。
在很多情况下,我们需要在应用程序中直接打开电脑中的某个文件,如excel、word、ppt、图片、视频等文件。 那么这时候就需要使用到shell命令。 但是shell命令中的参数传递也是非常有讲究的,对于第一次使用的人来说,很可能会难以理解,并且加上此类知识在网上也很难找到,所以会导致学习起来非常困难。 本节课程,我们就一起来学习如何使用shell命令打开任意格式的文件吧。 shell方法
作用:
执行一个可执行文件,返回一个 Variant (Double),如果成功的话,代表这个程序的任务 ID,若不成功,则会返回 0。 语法:
Shell(pathname[,windowstyle])
Shell(pathname[,windowstyle])
参数:
pathname:
必要参数。 用来指定要执行的程序名。 windowstyle:
可选参数。 表示程序运行时的窗口样式。 缺省效果是: 以具有焦点的最小化窗口来执行。 参数windowstyle的取值范围:
0:
窗口被隐藏,且焦点会移到隐式窗口 1:
窗口具有焦点,且会还原到它原来的大小和位置。 2:
窗口会以一个具有焦点的图标来显示。 3:
窗口是一个具有焦点的最大化窗口。 4:
窗口会被还原到最近使用的大小和位置,而当前活动的窗口仍然保持活动。 6:
窗口会以一个图标来显示。 而当前活动的的窗口仍然保持活动。 说明:
shell函数执行成功后,会返回一个任务ID,用来指明正在运行的程序。 如果执行失败,则会出现错误。 另外,shell命令是采用的多进程执行方法,即使shell命令还未执行完成,其下面的代码就已经开始执行了。 举例:打开任意一个文件的方法。
步骤一:
新建工程,添加一个命令按钮,添加一个CommonDialog控件。
步骤二:
添加代码。
Private Sub Command1_Click() Dim x As Long CommonDialog1.ShowOpen x = Shell("explorer.exe " & CommonDialog1.FileName,1) If x > 0 Then MsgBox "执行成功,程序ID为:" & x End IfEnd Sub
Private Sub Command1_Click()
Dim x As Long
CommonDialog1.ShowOpen
x = Shell("explorer.exe " & CommonDialog1.FileName,1)
If x > 0 Then
MsgBox "执行成功,程序ID为:" & x
End If
End Sub
步骤三:
运行代码,测试效果。 可以打开任意文件(电脑必须有可执行此文件的应用软件)。 代码重点分析:
CommonDialog控件可以调出打开对话框,用来选择文件,并获取文件路径。
该控件需要额外添加,添加方法为:
在工具箱空白处右键弹出快捷菜单,选择部件,弹出部件对话框,在控件页面找到Microsoft Common Dialog Control 6.0(SP6)。
变量x用来接收shell命令的执行结果。
explorer.exe是windows程序管理器,它的作用是自动调取可以打开该文件的默认应用程序。需要注意的是,此处explorer.exe需要用双引号,并且还需要在explorer.exe后面加一个空格即:
"explorer.exe "。