Question

vb如何让窗体显示在最前面

Answer 1

引用API函数SetWindowPos就可以解决。下面看看代码：

Private Declare Function SetWindowPos Lib "user32.dll" (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 LongConst SWP_NOMOVE = &H2Const SWP_NOSIZE = &H1Const FLAG = SWP_NOMOVE Or SWP_NOSIZEConst HWND_TOPMOST = -1Const HWND_NOTOPMOST = -2Const HWND_TOP = 0Const HWND_BOTTOM = 1

将窗口设置最前：Call SetWindowPos(Me.hwnd, HWND_TOPMOST, 0, 0, 0, 0, FLAG)取消窗口的最前：Call SetWindowPos(Me.hwnd, HWND_NOTOPMOST, 0, 0, 0, 0, FLAG)函数的第一个参数是根据实际情况改变的，它要求给它传送一个窗口的句柄，这里的 Me.hwnd 就给函数传送了当前窗口的句柄，也就是将当前窗口前置或取消前置。如果要前置其他窗口，那么请向函数传送其他窗口的句柄，这个可以根据：FindWindow API函数获取。