新建立类模块:
OptionExplicit
DeclareFunctionSetWindowPos()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
本文介绍了一个使用VBScript实现的SetWindowPos函数的应用实例。该函数来自user32.dll库,用于控制窗口的位置和大小。示例展示了如何通过调用此函数使窗口保持在最前或取消该设置。
1356

被折叠的 条评论
为什么被折叠?



