如何让Form2永远在Form1的上层，但Form2又不能在系统的顶层？我用SetWindowPos无法实现:(

Question

Form1和Form2都是一个工程中的窗体，可别告诉我用
Form2.Show 1

Answer 1

Option ExplicitPrivate Declare Function SetParent Lib "user32" (ByVal hWndChild As Long, ByVal hWndNewParent As Long) As LongPrivate Sub Form_Load()
    
    With Picture1
       
        .Left = 0
        .Top = 0
        .BackColor = vbApplicationWorkspace
    End With
    
    SetParent Form2.hWnd, Me.hWnd
    Form2.Show
End SubPrivate Sub Form_Resize()
  
    With Picture1       .Width = Me.ScaleWidth
       .Height = Me.ScaleHeight
    End With
End Sub

Answer 2

Form2.Show vbModal, Me

Answer 3

Cooly(☆开心就好 ^o^ ☆) 方法有效！
我再问下：如何让Form2只能在Form1范围内移动，就像MDI窗体一样？

Answer 4

又要用API了早知道你就做一个MDI程序不就可以了

Answer 5

'在form1里Private Declare Function SetParent Lib "user32" (ByVal hWndChild As Long, ByVal hWndNewParent As Long) As LongPrivate Sub Form_Load()
  Form2.Show , Form1            
  
  SetParent Form2.hWnd, Form1.hWnd
End Sub

Answer 6

各位大哥前辈们，帮助一下这个对编程有着浓厚兴趣的小弟吧
[email protected]是我的信箱
谢谢各位了