Office中国论坛/Access中国论坛

标题: 求助：如何保持弹出窗体总在最前面？ [打印本页]

作者: netzerg 时间: 2010-2-3 22:12
标题: 求助：如何保持弹出窗体总在最前面？
假设有一主窗体A，点击按钮后弹出一个新的窗体B，如何保持窗体B始终在最前面，即除非把B关闭，否则无法点击窗体A？
谢谢！

作者: netzerg 时间: 2010-2-4 21:58
顶一下！

作者: 红尘如烟 时间: 2010-2-4 22:14

'将下面的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
'然后调用,如果只是想打开即置顶，一直到窗体关闭，可以将下面的这一句加入到窗体的Load事件过程中
SetWindowPos frm.hwnd, -1, 0, 0, 0, 0, 3 '置顶
SetWindowPos frm.hwnd, -2, 0, 0, 0, 0, 3 '取消置顶

复制代码

作者: t小宝 时间: 2010-2-4 22:14
OpenForm方法，acDialog参数
DoCmd.OpenForm FormName, , , , , acDialog

作者: netzerg 时间: 2010-2-4 22:24
谢谢楼上的，搞定了！
也谢谢楼上的楼上！只不过我刚开始学，你这个对我来说难度太高了，先保存着吧
谢谢！

作者: zcquit 时间: 2010-2-5 10:25
谢谢楼上的

作者: xsm361 时间: 2010-2-22 16:25
在窗体属性中设置弹出方式即可

作者: wufeng980114 时间: 2010-2-22 20:19
学习了

作者: wufeng980114 时间: 2011-1-16 22:47
谢谢3楼版主

作者: 阿邦 时间: 2012-4-19 21:29
为什么显示FRM变量未定义

作者: 阿邦 时间: 2012-4-19 21:35

红尘如烟发表于 2010-2-4 22:14

请问为什么我引用后一直提醒frm未定义

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)