把窗体始终显示在最前:
则要用到一个API函数
首先在窗体模块声明API以及一些常量
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
private Const HWND_TOPMOST = -1
private Const HWND_NOTOPMOST = -2
private Const SWP_NOACTIVATE = &H10
private Const SWP_SHOWWINDOW = &H40
窗体最前需要执行以下代码:
SetWindowPos me.hwnd, HWND_TOPMOST, Form1.Left / 15, Form1.Top / 15, Form1.Width / 15, Form1.Height / 15, SWP_NOACTIVATE Or SWP_SHOWWINDOW
取消最前需要执行以下代码:
SetWindowPos me.hwnd, HWND_NOTOPMOST, Form1.Left / 15, Form1.Top / 15, Form1.Width / 15, Form1.Height / 15, SWP_NOACTIVATE Or SWP_SHOWWINDOW
就是上面的了,具体的参数你可以查一下API说明。