如何让一个后台窗体弹出在屏幕最前端？

Question

也就是说这个窗体并没有获得焦点，只是在后台运行，触发事件后能弹出并置顶？而不是被其他窗体遮盖。

Answer 1

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 SWP_SHOWWINDOW = &H40
Private Sub Frame1_Click()
Dim retValue As LongretValue = SetWindowPos(Me.hWnd, HWND_TOPMOST, Me.CurrentX, Me.CurrentY, 620, 250, SWP_SHOWWINDOW) '设为最前窗体End Sub

Answer 2

SetWindowPos 在vb中有问题，有时候不能置顶。