获取上一个实例的句柄

Question

开始出了点问题现在好了！~~~  查找两次 就能找到 比用枚举好
Public Sub Main()
'On Error Resume Next
    If App.PrevInstance Then
        'MsgBox "一个实例正在运行!", vbInformation, "打开失败"
        '已经打开 应该改成将 打开的事例到前台
        Dim hwnd As Long    '查找的窗口句柄
        '这里提示 地址正在被使用??
        hwnd = FindWindowEx(0, 0, vbNullString, frmMain.Caption)
        If hwnd = frmMain.hwnd Then hwnd = FindWindowEx(0, hwnd, vbNullString, frmMain.Caption)
        'hwnd = FindWindow(vbNullString, frmMain.Caption)    '查找已经打开的Server
        If hwnd <> 0 Then
            If 0 = IsWindowVisible(hwnd) Then ShowWindow hwnd, SW_NORMAL  '显示出来
            SetForegroundWindow hwnd  '找到程序到前台
        End If
        End
    End If
    App.TaskVisible = False
    If ConnDataBase Then
        frmMain.Show
    Else
        Unload frmMain
        End
    End If
End Sub

Answer 1

up---------------------------------------------------------------------------------------------
腰缠70元到月入近10万
http://www.hunbei.com.cn/Article/ArticleShow.asp?ArticleID=453IT工程师 毕业4年我年薪涨到30万 
http://www.hunbei.com.cn/Article/ArticleShow.asp?ArticleID=51126岁青年坐拥千万域名资产 从小玩家变成CEO 
http://www.hunbei.com.cn/Article/ArticleShow.asp?ArticleID=515程序员的酸甜苦辣：告别Coding 
http://www.hunbei.com.cn/Article/ArticleShow.asp?ArticleID=341从月薪3500到700万（一）
http://www.hunbei.com.cn/Article/ArticleShow.asp?ArticleID=170网络草根月赚3000的十种方法
http://www.hunbei.com.cn/Article/ArticleShow.asp?ArticleID=517如果我是女的 我肯定不会嫁给做网站的
http://www.hunbei.com.cn/Article/ArticleShow.asp?ArticleID=512