Question

所以我最近陷入了我的VB6编程，在运行* .exe应用程序时，我试图让表单再次出现之后再次出现。

此表单只有一个按钮可以打开* .exe，点击按钮后，相关程序将打开，表单将被隐藏。一旦有问题的程序关闭，表格应该重新出现，虽然在我的情况下它不会。以下是按钮本身的代码：

Private Sub btnClicky_Click()
Dim Res
Dim Filename
Filename = "C:\Windows\notepad.exe"
    Res = Shell(Filename, vbHide)

If IsProcessRunning("Notepad.exe") Then
    Me.Hide
Else
    Me.Show
End If
End Sub

一旦它工作，我会将代码实现到我正在工作的任务中，因为我目前正在办公室实习计划中，我必须创建一个涉及链接多个应用程序的用户界面程序。我们将非常感谢您的帮助。

提前致谢！

Answer 1

更好的方法是封装应用程序，隐藏您的应用程序＆amp;等待进程终止：

.insert('g', ":first-child")

Answer 2

只有在单击按钮时才会执行您的代码，我建议您在表单中插入一个计时器，并且在＆＃34; Timer1_Timer＆＃34;如果你是maust，你测试：

Private Sub Timer1_Timer()
If IsProcessRunning("Notepad.exe") Then
    Me.Hide
Else
    Me.Show
End If
End Sub

通过表单运行* .exe应用程序，然后在应用程序退出后再次显示表单

2 个答案: