MSGBOX弹出来的窗体放到最顶层

Question

假如我现在使用了API把当前窗体放到最上,
但我使用了msgbox "a"弹出语句,他是窗体的底层,给窗体档住啦看不见了.如何可以使MSGBOX弹出来的窗体放到最顶层

Answer 1

//假如我现在使用了API把当前窗体放到最上,
因為你已經把它放在最上面了﹐這是理所當然要把msgbox"a"擋住﹐你不想給它擋住﹐你只好不用那個API函數

Answer 2

msgbox "a"弹出语句
//弹出之前用setwindowpos把窗体在置后

Answer 3

显示完毕后在用setwindowpos把窗体在置前

Answer 4

可以自己做个MsgBox更有个性啊>试试吧!

Answer 5

setwindowpos 语法如何使用呢？这种方法最好了

Answer 6

Option Explicit
Private Declare Function SetWindowPos Lib "user32" ( _
ByVal hwnd As Long, _
ByVal hWndInsertAfter As Long, _
ByVal x As Long, ByVal y As Long, _
ByVal cx As Long, ByVal cy As Long, _
ByVal wFlags As Long _
                                                ) As Long
Const HWND_TOPMOST = -1
Const HWND_NONTOPMOST = -2
Const SWP_SHOWWINDOW = &H40
Private Sub Command1_Click()
    Dim retValue As Long
    retValue = SetWindowPos(Me.hwnd, HWND_TOPMOST, Me.CurrentX, Me.CurrentY, 300, 300, SWP_SHOWWINDOW)End SubPrivate Sub Command2_Click()
    Dim retValue As Long
    retValue = SetWindowPos(Me.hwnd, HWND_NONTOPMOST, Me.CurrentX, Me.CurrentY, 300, 300, SWP_SHOWWINDOW)End Sub

Answer 7

Command1是置顶的,Command2是取消置顶的