如何让窗体总在最上层

[doggy]

如何让窗体总在最上层而不被别的窗体遮住，谢谢！

[doggy]

谢谢大家

[limengchen]

该站点的“程序员大本营”中有代码。

[thomasz2]

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

[beegee]

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

[NiceFeather]

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

[Tenner]

用这个程序
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 Long

Public 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