求助：如何保持弹出窗体总在最前面？

netzerg · 发表于 2010-2-3 22:12:28

假设有一主窗体A，点击按钮后弹出一个新的窗体B，如何保持窗体B始终在最前面，即除非把B关闭，否则无法点击窗体A？
谢谢！

netzerg · 发表于 2010-2-4 21:58:14

顶一下！

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

'将下面的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:43

OpenForm方法，acDialog参数
DoCmd.OpenForm FormName, , , , , acDialog

netzerg · 发表于 2010-2-4 22:24:52

谢谢楼上的，搞定了！
也谢谢楼上的楼上！只不过我刚开始学，你这个对我来说难度太高了，先保存着吧
谢谢！

zcquit · 发表于 2010-2-5 10:25:06

谢谢楼上的

zcquit · 发表于 2010-2-5 10:25:29

谢谢楼上的

xsm361 · 发表于 2010-2-22 16:25:27

在窗体属性中设置弹出方式即可

wufeng980114 · 发表于 2010-2-22 20:19:21

学习了

wufeng980114 · 发表于 2011-1-16 22:47:58

谢谢3楼版主

帐号		自动登录	找回密码
密码			注册

[窗体] 求助：如何保持弹出窗体总在最前面？

群介绍
主题无相 (随机显示版	同地区群块其他地区)