2008-10-8日，在用UMV平台做一个打开后缀名为EXE文件，开始是这么做的。新建一个窗体，加入一个命令控件。在控件的单击事件中，写了如下代码：

Private Sub cmdFtp_Click()
    On Error GoTo Err_cmdFtp_Click

    Dim stAppName As String

    stAppName = CurrentProject.Path & "\LeapFTP\LeapFTP.exe"
    Call Shell(stAppName, 1)

Exit_cmdFtp_Click:
    Exit Sub

Err_cmdFtp_Click:
    MsgBox Err.Description
    Resume Exit_cmdFtp_Click

End Sub

然后在UMV平台中引用。正常。

心里想，UMV平台的功能按钮设置的对象类型可设为宏。我想干脆用宏实现得了，免得做个窗体。

于是在模块中加入以下函数

'打开本系统路径下的绿色软件LeapFTP
Public Function OpenFtp()
    On Error Resume Next
    'On Error GoTo Err_OpenFtp

    Dim stAppName As String

    stAppName = CurrentProject.Path & "\LeapFTP\LeapFTP.exe"
    Call Shell(stAppName, 1)

Exit_OpenFtp:
    Exit Function

Err_OpenFtp:
    MsgBox Err.Description
    Resume Exit_OpenFtp

End Function

然后新建一宏，宏名为OPENLEAPFTP，操作为RUNCODE，函数名称为OPENFTP（）

保存宏，点！号的运行按钮，成功。

退出设计状态，直接打开UMV平台，点击对应的功能按钮，无法打开，失效。

哎，不知道是什么原因。

如果有谁能知道，请帮忙解释一下。