问题描述
如题,我设计了一个查询窗口,希望像wingdows程序那样显示,设Me.TopMost=True,然后使用其它程序时查询窗口一直在最前,怎样才能解决?是不是不应该这么做?我究竟该怎么做????????
解决方案
解决方案二:
VBCode:PrivateDeclareFunctionSetWindowPosLib"user32"(ByValhwndAsLong,ByValhWndInsertAfterAsLong,ByValxAsLong,ByValyAsLong,ByValcxAsLong,ByValcyAsLong,ByValwFlagsAsLong)AsLongPrivateSubForm_Load()DimrtnMove(Screen.Width-Width)2,(Screen.Height-Height)2'使窗体在程序运行后处于屏幕中心rtn=SetWindowPos(Form1.hwnd,-1,0,0,0,0,3)'如果将函数API中的-1改为-2则取消窗体总在最前面EndSub
时间: 2024-08-22 11:20:02