如何判断窗体是否最前

[原来如此]

如何判断窗体是否最前?加入一个if...else...end if语句,如果窗体最前则让他不最前,如果窗体不最前则使他最前?应该如何实现?

[原来如此]

楼上的能说明白点吗

[嗷嗷叫的老马]

.........还不够明白么.

你直接搜索一下那两个东西呢?

[weberli]

用zorder设置

[迈克揉索芙特]

GetActiveWindow + ZOrder

[原来如此]

知道的能贴一下代码吗?

[mokton]

使用三个API函数就可以了GetForegroundWindow() GetWindowTextLength() GetWindowText()

'判断制定窗口是否在最前端
Function header(frmName As String) As Boolean
    hWnd1 = GetForegroundWindow() '得到活动窗口的句柄
    if getCaption(hWnd1) = frmName then
        header = True
    else
        header = False
    End If
End Sub

'根据窗口句柄得到该窗口的标题
Function getCaption(hWnd As Long)
    Dim hWndlength As Long, hWndTitle As String, A As Long
    hWndlength = GetWindowTextLength(hWnd)
    hWndTitle = String$(hWndlength, 0)
    A = GetWindowText(hWnd, hWndTitle, (hWndlength + 1))
    getCaption = hWndTitle
End Function