可以试一下API,shellexecute

解决方案 »

  1.   

    注意shell函数的第二个参数,它决定了启动后程序的显示情况与是否获得焦点;
    具体的参数,我记不太清楚,在VB编辑器的自动提示里列的有。其实,这个例子用ShellExecute实现更合适一点儿
      

  2.   

    ShellExecute实现更合适
       
      

  3.   

    这个程序不就是windows自带的例子吗?(指闹钟!)
      

  4.   

    执行一个可执行文件,返回一个 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 函数示例
    本示例使用 Shell 函数来完成一个用户指定的应用程序。' 将第二个参数值设成 1,可让该程序以正常大小的窗口完成,并且拥有焦点。
    Dim RetVal
    RetVal = Shell("C:\WINDOWS\CALC.EXE", 1) ' 完成Calculator。