VB 点击按钮弹出一个窗体后，还能切换回主窗体但是那个打开的窗体还在

Question

也就是 弹出新窗体后，不能激活主窗体，需要关闭那个新窗体才能激活主窗体，我想实现2个来回切换而不关闭。 有谁知道的帮下忙啊，谢谢了

Answer 1

嗯。可能你用惯e语言的缘故吧~
在窗体上放置两个按钮，打开代码窗口，复制以下代码：
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
private
const
hwnd_topmost
=
-1
private
const
hwnd_notopmost
=
-2
private
sub
command1_click()
setwindowpos
me.hwnd,
hwnd_topmost,
0,
0,
0,
0,
3
end
sub
private
sub
command2_click()
setwindowpos
me.hwnd,
hwnd_notopmost,
0,
0,
0,
0,
3
end
sub
private
sub
form_load()
command1.caption
=
"顶置"
command2.caption
=
"正常"
end
sub
程序运行，就可以看到你想要的效果了。