怎样在程序中让另外一个已经最小化或者是已经放在托盘区的程序的窗口自动跳到最前面来?

Question

看你怎么写触发事件了（在消息环中），如果是窗体，你可以直接show 出来。

Answer 1

Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function ShowWindow Lib "user32" (ByVal hWnd As Long, ByVal nCmdShow As Long) As Long
Private Const SW_SHOWNORMAL = 1Private Sub Command1_Click()
    Dim lngHwnd
    lngHwnd = FindWindow(vbNullString, txtWindowTitle)
    Call ShowWindow(lngHwnd, SW_SHOWNORMAL)
End Sub

Answer 2

junwhj您好： 您的方法我试过， 程序运行的时候，只是有一个窗口闪了一下，就没有了！原来的窗口还是没有跳到最前边来！ 这是怎么回事？