Question

vb编写的程序判断其它程序获得和失去焦点

例如我用VB写的程序A.exe 启动时调用Calc.exe(计算器)程序，如果Calc.exe已启动则Calc.exe获得焦点，否则启动Calc.exe，但A.exe要保持在Calc.exe的前面，如果Calc.exe失去焦点则A.exe也失去焦点，就记事本的查找对话框一样的效果。

Answer 1

你的程序保持在最顶层即可，然后用窗口标题查询findwindow函数找Calc。

Answer 2

Private Declare Function icePub_activForm Lib "icePubDll.dll" (ByVal strFormTitle As String) As Integer

Dim a2 As Integer
Dim str1 As String

str1 = "计算器"
'窗体标题

a2 = icePub_activForm(str1)

Private Declare Function icePub_open Lib "icePubDll.dll" (ByVal strPath As String) As Integer

Dim a2 As Integer

a2 = icePub_open("calc.exe")