如何在主窗体上显示一个子窗体，把子窗体显示在一定范围内？

Question

就像在vb中编辑时打开一个窗体一样，最大化后只显示在中间，而把工具箱，资源管理器和属性窗口关掉后，编辑窗体占满整个工作区，怎么实现这种效果呢？

Answer 1

主窗体你使用 MDI 窗体
子窗体就直接可以实现你要的功能了

Answer 2

我的主窗体也是用的MDI窗体，但不会实现具体效果

Answer 3

Move (Screen.Width - Me.Width - MDIfrmHealthCare.picPanel.Width) / 2, (MDIfrmHealthCare.Height - Me.Height - MDIfrmHealthCare.StatusBar.Height) / 4

Answer 4

像vb中的被编辑的窗体移动时，总在工具箱，和属性窗口的下面，而一个工程中只允许加一个MDI窗体，不知怎么实现的？

Answer 5

不知道你要的是不是这个样子
Option Explicit
Private Declare Function SetParent Lib "user32" (ByVal hWndChild As Long, ByVal hWndNewParent As Long) As LongPrivate Sub Command1_Click()
    SetParent Form2.hWnd, Form1.Picture1.hWnd
    Form2.Show
End Sub当然如果真的是这个意思，你要对form2的父窗口做一下处理，因为form2按通常模式（不是最大也不是最小）时显示不完全，要为form2的父窗口加滚动条才可以，或者限制form2

Answer 6

' 可以用下面的方法(Timer中加代码)，也可以用子类处理实现。  :)Option ExplicitPrivate Sub MDIForm_Load()
    Timer1.Interval = 1
End SubPrivate Sub Timer1_Timer()
    If Form1.WindowState = 2 Then
        Form1.WindowState = 0
        Form1.Left = 1000
        Form1.Width = 5000
        Form1.Top = 0
        Form1.Height = 5000
    End If
End Sub