请问如何在VB中切换两应用程序？

Question

如何在VB中切换两应用程序？
比如c:\a.exe和d:\b.exe之间如何通过onclick（）切换？谢谢

Answer 1

第一个工程
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function AllowSetForegroundWindow Lib "user32.dll" (ByVal dwProcessId As Long) As Long
Private Declare Function SetForegroundWindow Lib "user32" (ByVal hwnd As Long) As LongPrivate Sub Command1_Click()
    Dim mWnd As Long, hProcessID As Long
    mWnd = FindWindow(vbNullString, "这是测试窗口2")
    If mWnd = 0 Then
        MsgBox "没有发现文件"
        Exit Sub
    End If
    lHandle = SetForegroundWindow(mWnd)
End Sub

Answer 2

第二个工程
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function SetForegroundWindow Lib "user32" (ByVal hwnd As Long) As Long
Private Sub Command1_Click()
    Dim mWnd As Long, hProcessID As Long
    mWnd = FindWindow(vbNullString, "这是测试窗口1")
    If mWnd = 0 Then
        MsgBox "没有发现这个文件"
        Exit Sub
    End If
    lHandle = SetForegroundWindow(mWnd)
End Sub

Answer 3

使用FindWindow找到程序主窗口，再利用SetForegroundWindow将它激活，便实现了应用程序的切换！！！如上例子。