Question

vb中如何让一个窗口保持最前

vb中如何让一个窗口保持最前？就是说用 徽标键 或者 Ctrl+Alt+Del 或者 其它方式使该窗口不活动了也在最前面。

Answer 1

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 LongPrivate Const HWND_TOPMOST = -1Private Const SWP_NOMOVE = &H2Private Const SWP_NOSIZE = &H1Private Const HWND_NOTOPMOST = -2
Private Sub Command1_Click() '取消最前
SetWindowPos Me.hwnd, HWND_NOTOPMOST, 0, 0, 0, 0, SWP_NOMOVE + SWP_NOSIZE
End SubPrivate Sub form_load() '最前显示SetWindowPos Me.hwnd, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOMOVE + SWP_NOSIZEEnd Sub

Answer 2

你在form_load事件里写，看看~retValue = SetWindowPos(Me.hwnd, HWND_TOPMOST, Me.CurrentX, Me.CurrentY, 300, 300,
SWP_SHOWWINDOW)

Answer 3

timer1.interval设为1并让他一直Form1.show