本示例使用 Shell 函数来完成一个用户指定的应用程序。
' 将第二个参数值设成 1，可让该程序以正常大小的窗口完成，并且拥有焦点。
Dim RetVal
RetVal = Shell("C:\WINDOWS\CALC.EXE", 1) ' 完成Calculator。
Shell 函数
执行一个可执行文件，返回一个 Variant
(Double)，如果成功的话，代表这个程序的任务 ID，若不成功，则会返回 0。
语法
Shell(pathname[,windowstyle])
Shell 函数的语法含有下面这些命名参数：
部分
描述
pathname
必要参数。Variant
(String)，要执行的程序名，以及任何必需的参数或命令行变量，可能还包括目录或文件夹，以及驱动器。
Windowstyle
可选参数。Variant
(Integer)，表示在程序运行时窗口的样式。如果 windowstyle
省略，则程序是以具有焦点的最小化窗口来执行的。
windowstyle 命名参数有以下这些值：
常量
值
描述
vbHide
0
窗口被隐藏，且焦点会移到隐式窗口。
VbNormalFocus
1
窗口具有焦点，且会还原到它原来的大小和位置。
VbMinimizedFocus
2
窗口会以一个具有焦点的图标来显示。
VbMaximizedFocus
3
窗口是一个具有焦点的最大化窗口。
VbNormalNoFocus
4
窗口会被还原到最近使用的大小和位置，而当前活动的窗口仍然保持活动。
VbMinimizedNoFocus
6
窗口会以一个图标来显示。而当前活动的的窗口仍然保持活动。
说明
如果 Shell 函数成功地执行了所要执行的文件，则它会返回程序的任务 ID。任务 ID
是一个唯一的数值，用来指明正在运行的程序。如果 Shell 函数不能打开命名的程序，则会产生错误。
注意 缺省情况下，Shell 函数是以异步方式来执行其它程序的。也就是说，用 Shell 启动的程序可能还没有完成执行过程，就已经执行到 Shell 函数之后的语句追问
这答案是从书上来的吧，我自己的书上没，你能把你的资料发给我吗，加10分
追答百度搜索MSDN
Private Sub Command1_Click()
Dim FilePath As String
'下面123.exe自己替换下，这里就是简单示意一下
FilePath = "C:\Documents and Settings\Administrator\桌面\123.exe"
If Dir(FilePath, vbNormal) <> "" Then
Shell FilePath, vbNormalFocus
Else
MsgBox "文件不存在！", vbCritical, "提示"
End If
End Sub
希望可以帮到你
本回答被提问者采纳你好,请问在VB中如何设计按钮打开另一个程序
' 将第二个参数值设成 1,可让该程序以正常大小的窗口完成,并且拥有焦点。Dim RetValRetVal = Shell("C:\\WINDOWS\\CALC.EXE", 1) ' 完成Calculator。Shell 函数执行一个可执行文件,返回一个 Variant (Double),如果成功的话,代表这个程序的任务 ID,若不成功,则会返回 0。语法Shell(pathname[,windowstyle])Shel...
vb点击一个按钮后再点击下一个按钮才运行一个程序,如果只点击第二个...
声明一个全局的布尔型变量（默认值为False），然后在点击第一个按钮时把这个变量的值设为True，在点击第二个按钮时判断这个变量的值是否为True，是则执行你所谓的“运行一个程序”，再把变量重新恢复为False（以便再次执行）。下面是例子：Dim f As Boolean Private Sub Command1_Click()f = True En...
请问怎么用VB实现点击一个按钮弹出一个对话框
Private Sub Command1_Click()MsgBox "因为你长的不够帅，所以执行了非法操作， " + Chr(13) + " " + Chr(13) + "此程序即将关闭，" + Chr(10) + " " + Chr(13) + "如果有问题，请与供应商联系。", 19, "系统信息"End Sub ...
急急急 vb 如何代码跳转 与暂停
这个问题里单击cmd1后代码为2.show,后面跟停止程序代码,这里包括停止timer控件,停止其他循环等一切东西,还可以加上me.enable=false等等,后面就不再有其他代码了.你的其他代码自己创建一个sub过程,将它们放在里面 单击窗口2的cmd2后,你需要将前面停止的timer控件,循环,还有me.enable=true等重新开始执行,...
VB6中怎样按下一个按钮则弹出一个对话框~~要具体~~
1,输入对话框的用法:Private Sub Command1_Click()h = InputBox("请输入文本框中显示的值")Text1.Text = h End Sub 2,消息对话框 Private Sub Command1_Click()MsgBox ("你好")End Sub 3,通用对话框（打开对话框,另存为对话框,颜色对话框,字体对话框,打印对话框,帮助对话框）对用对话框...
VB如何打开MDB数据库中的一个表
VB中打开数据库的方法有很多，给你一个用ADO打开数据库的方法：首先在“工程”中引用"Microsoft Activex Data Objects 2.8 Library"'安装Offices后就会有的。Dim DB As Connection Dim rs As Recordset Private Sub Command1_Click()Set DB = New ADODB.Connection Set rs = New ADODB.Recordset DB...
vb中一个按钮实现开始和暂停
按钮标题操作就行了，代码如下：Private Sub Command1_Click()If Command1.Caption = "开始" ThenCommand1.Caption = "暂停"'开始后的程序代码...ElseCommand1.Caption = "开始"'暂停后的程序代码...End IfEnd Sub
如何用VB6.0写一个程式 可以获取另一个程式上输入的数据,如在QQ窗体中...
Private Const WM_NCLBUTTONUP = &HA2 '窗口标题栏中左开鼠标左键 Private Const WM_NCMOUSEMOVE = &HA0 '窗口标题栏中移动鼠标 Private Const WM_NCRBUTTONDOWN = &HA4 '窗口标题栏中按下鼠标右键 Private Const WM_NCRBUTTONUP = &HA5 '窗口标题栏中松开鼠标右键 Private Const WM_KEYDOWN =...
用vb编写一个程序。点击开始,label标签中出现“你好世界”,点击退出...
private sub command1_click()text1.text="你好"end sub private sub command2_click()end end sub
在excel主表中怎样用函数或VBA打开其它表
重新打开 Excel ，点击菜单 “工具” → “加载宏”，此时在 “可用加载宏” 可看到多出了一个刚刚保存的加载宏的文件名字的选项，将此项前面的勾打上，即可在以后打开 Excel 时自动加载该宏。此时再按上述第2点中的步骤设置按钮时，在选择“指定宏”时，在弹出的“指定宏”对话框中看不到任何...
