我在一个mid 父窗体中打开了几个子窗体 怎样把某一个子窗体设置为最顶层的受我控制的窗体

[youandme520]

我在一个mid 父窗体中打开了几个子窗体 怎样把某一个子窗体设置为最顶层的受我控制的窗体

[1v1chen]

在你要控制的窗体上写下这一段
Private Sub Form_Load()
Dim i As Integer
i = SetWindowPos&(Me.hwnd, -1, 0, 0, 0, 0, 3)
end sub

[youandme520]

无效

[cool_man]

用form1.ZOrder置顶

[aeonwang]

在最置为顶层的窗体的load事件中加入以下代码：
Private Sub Form_Load()
其它子窗体1.enable=false;
其它子窗体2.enable=false;
其它子窗体3.enable=false;
其它子窗体4.enable=false;
.....
end sub

在该窗体的unload事件中加入以下代码

Private Sub Form_unLoad()
其它子窗体1.enable=true;
其它子窗体2.enable=true;
其它子窗体3.enable=true;
其它子窗体4.enable=true;
.....
end sub

[youandme520]

谢谢

[aeonwang]

这样当该子窗体获得焦点时，就可以控制为最顶层的了

[LuBingLin]

如果想在mid 父窗体中控其他窗口，那么那个窗口必须为有模式窗口。

[LuBingLin]

打开时使用
子窗口.Show 1,MID窗口

[lyxhappy]

楼上的正解

[jilong4]

子窗体.show
子窗体.SetFocus