主题：调用外部程序，一闪就完成了，怎么暂停或按任意键退出

按照论坛里面介绍的方法：

 

方法一：在pytest.py里面暂停即可。

 

https://www.baidu.com/baidu?wd=python+%E6%8C%89%E4%BB%BB%E6%84%8F%E9%94%AE

 

方法二：调出cmd.exe窗口，再调用执行命令

 

Dim p As new Process()
p.StartInfo.FileName = "cmd.exe"
p.StartInfo.UseShellExecute = False '关闭Shell的使用
p.StartInfo.RedirectStandardInput = True '重定向标准输入
p.StartInfo.CreateNoWindow = False '设置不显示窗口
p.Start()
p.StandardInput.WriteLine("ping baidu.com")
'p.StandardInput.WriteLine("exit")

甜甜好能干，什么都会，真没看错人

甜，在窗口设计里面点运行外部PY就没问题，但是在自动打开的主窗口就出现问题了，：：  未将对象引用设置到对象的实例。

 

是怎么回事呢？

 

 

此主题相关图片如下：微信图片_20190528190720.png

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目1.rar

Proc.File = ProjectPath & "date.py"

可以了，谢谢蓝天白云

.NET Framework 版本：2.0.50727.8940
Foxtable 版本：2018.10.9.1
错误所在事件：窗口,窗口1,Button1,Click
详细错误信息：
未将对象引用设置到对象的实例。

 

今天又不行了，

 

 

 

 

 

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目1.rar

延时长一点，即可

 

Dim Proc As New Process
 Proc.File = ProjectPath & "date.py"
Proc.Start()
System.Threading.Thread.Sleep(3000)
SetParent(Proc.MainWindowHandle, e.Form.BaseForm.Handle.ToInt32())

或者改成

 

Dim Proc As New Process
Proc.File = ProjectPath & "date.py"
Proc.Start()
Do While Proc.MainWindowHandle = 0
    application.Doevents
Loop

SetParent(Proc.MainWindowHandle, e.Form.BaseForm.Handle.ToInt32())

在原电脑上运行正常，没有错误提示。今天换到另外一台电脑上运行，又出现这个问题.