如何让窗体总在最上层

Question

用一个API函数 SetWindowPos(),若将一个参数设为HWND_TOPMOST即可，
具体操作可见MSDN，请注意最后一个参数nFlags的选择。

Answer 1

请看此页下端的“程序员大本营”的“Visual Basic”的“VB源码集合”的“用户界面”的“ontop2.zip”例程！

Answer 2

用这个程序
Public 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 LongPublic Sub AlwaysOnTop(TargetForm As Form, Always_On_Top As Boolean)
'******************************************************************
' 名    称: 总在最前过程
' 作    用: 使某一窗口总在最前或取消某一窗口的总在最前
' 参 数 表: TargetForm    As Form           目标窗体
'           Always_On_Top As Boolean        是否总在最前
'******************************************************************
    If Always_On_Top Then
        SetWindowPos TargetForm.hWnd, -1, 0, 0, 0, 0, 3
    Else
        SetWindowPos TargetForm.hWnd, -2, 0, 0, 0, 0, 3
    End If
End Sub

Answer 3

最简单最常规的方法：Form1.Show Modal 即可使窗体总在最前。