文件名称：调用外部程序代码
文件大小：24KB
文件格式：DOC
更新时间：2017-05-25 03:12:24
调用
Private Sub Command1_Click() '程序A On Error GoTo ShellErr Shell App.Path & "\shutdown.exe" '程序B Exit Sub ShellErr: If Err.Number = 53 Then MsgBox "程序不完整,请重新下载" End Sub
调用外部程序代码
【文件属性】：
文件名称：调用外部程序代码
文件大小：24KB
文件格式：DOC
更新时间：2017-05-25 03:12:24
调用
Private Sub Command1_Click() '程序A On Error GoTo ShellErr Shell App.Path & "\shutdown.exe" '程序B Exit Sub ShellErr: If Err.Number = 53 Then MsgBox "程序不完整,请重新下载" End Sub