在打开有模式窗体后还能"显示"无模式窗体

原来写的一个显示等待窗口的过程，现在用不成了，因为我几乎所有的窗口 都改成了有模式的，即用 .show 1来调用，结果以前的过程用不成了，因为调用等待窗口不能用模式的，否则就真一直等下去了。

在google查了好久，也发贴问了，都没有很好的答案，结果我想了又想终于让我想出一个好办法来：

那就是，即然显示了 模式 窗口后就不能再显示无模式窗口，那么，我先显示那个无模式窗口不就结了！！

于是开始动手

 

Public Sub MsgWinShow(ByVal msg As String, Optional WaitSec As Integer)
Dim w, h, l, t

Load frmMsgWin

frmMsgWin.lblMsg.Caption = msg
With frmMsgWin
    
    SetWindowPos .hwnd, HWND_TOPMOST, 0, 0, 0, 0, Flag
    
    h = .lblMsg.Height + 15 * 40
    w = .lblMsg.Width + 15 * 60
    l = (Screen.Width - w) / 2
    t = (Screen.Height - h) / 2
    .Move l, t, w, h
    .lblMsg.Left = Int(.ScaleWidth - .lblMsg.Width) / 2
    .lblMsg.Top = Int(.ScaleHeight - .lblMsg.Height) / 2
End With
frmMsgWin.MouseP = Screen.MousePointer
Screen.MousePointer = vbHourglass
DoEvents
If WaitSec > 0 Then
    Delay WaitSec * 1000
    Call MsgWinHide
End If
Exit Sub

End Sub

Public Sub MsgWinHide()
frmMsgWin.lblMsg.Caption = ""
frmMsgWin.Left = -2000 * 15
Screen.MousePointer = frmMsgWin.MouseP
End Sub

 

很简单，就是不用时将其移出屏幕外，用的时间显示到屏幕中央，然后设置其 zorder 以使用其置顶。其实用
'SetWindowPos .hwnd, HWND_TOPMOST, 0, 0, 0, 0, Flag
就应该可以了，应该不用再用zorder，但好象效果是一样的！！