新建立类模块:
Option Explicit
Declare FunctionSetWindowPos() FunctionSetWindowPos&Lib"user32"(ByValhwndAsLong,ByValhWndInsertAfterAsLong,ByValXAsLong,ByValYAsLong,ByValcxAsLong,ByValcyAsLong,ByValwFlagsAsLong)
PrivateSubForm_load()SubForm_load()
Dimrtn
'让窗口在顶层
rtn=SetWindowPos(Me.hwnd,-1,0,0,0,0,3)
'取消窗口在顶层
'rtn=SetWindowPos(F_V.hwnd,-2,0,0,0,0,3)
EndSub
Option Explicit
Declare FunctionSetWindowPos() FunctionSetWindowPos&Lib"user32"(ByValhwndAsLong,ByValhWndInsertAfterAsLong,ByValXAsLong,ByValYAsLong,ByValcxAsLong,ByValcyAsLong,ByValwFlagsAsLong)
PrivateSubForm_load()SubForm_load()
Dimrtn
'让窗口在顶层
rtn=SetWindowPos(Me.hwnd,-1,0,0,0,0,3)
'取消窗口在顶层
'rtn=SetWindowPos(F_V.hwnd,-2,0,0,0,0,3)
EndSub