如何使一个MDI窗体的子窗体始终在最上面????

Question

如何使一个MDI窗体的子窗体始终在最上面????

Answer 1

frmMdi.ActiveForm=子窗体
MDI里面的子窗体不能显示有模式的，show 1不能用

Answer 2

定义一API函数
Public 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)
在所窗体中LOAD事件中写如下代码：
Private Sub Form_Load()
    Dim i As Integer
    i = SetWindowPos&(Me.hwnd, -1, 0, 0, 0, 0, 3)
     
End Sub