窗体问题，高分赠送！

[xhbe]

如何实现窗体层叠排列、横向平铺、纵向平铺、全部最小化、全部最大化。需要源程序,分不够可以在加！

[zyl910]

Arrange 方法


用以重排 MDIForm 对象中的窗口或图标。不支持命名参数。

语法

object.Arrange arrangement

Arrange 方法的语法包含下列部分：

部分 描述
object 必需的。是一个对象表达式，其值为“应用于”列表中的一个对象。
Arrangement 必需的。一个数值或常数，如“设置值”中所描述的，它指定如何重排 MDIForm 中的窗口或图标。


设置值

arrangement 的设置值有：

常数 值 描述
vbCascade 0 层叠所有非最小化 MDI 子窗体。
vbTileHorizontal 1 水平平铺所有非最小化 MDI 子窗体。
vbTileVertical 2 垂直平铺所有非最小化 MDI 子窗体。
vbArrangeIcons 3 重排最小化 MDI 子窗体的图标。


说明

上述常数在 Visual Basic (VB) 的对象浏览器中的对象库里列出。

即使 MDIForm 对象被最小化，仍要重排窗口或图标。MDIForm 最大化时可以看到重排的结果。



Arrange 方法示例
本示例使用 Arrange 方法重排一个 MDI 窗体中的窗口和图标。要检验此示例，可将本例代码粘贴到带有一个 MDI 子窗体（被命名为 Form1，其 MDIChild 属性设定为 True）和一个图片框（名为 Picture1 ）的被命名为 MDIForm1 的 MDI 窗体的声明部分，然后按 F5 并单击图片框中任何地方查看 Arrange 方法的效果。

Const FORMCOUNT = 5
Dim F(1 To FORMCOUNT) As New Form1
Private Sub MDIForm_Load ()
Dim I ' 声明局部变量。
Load Form1 ' 加载原始 Form1 窗体。
For I = 1 To FORMCOUNT
F(I).Caption = "Form" & I + 1 ' 改变副本上的标题。
Next I
End Sub

Private Sub Picture1_Click ()
Static ClickCount ' 声明变量。
Dim I, PrevWidth, Start
ClickCount = ClickCount + 1 ' 增量单击计数器。
Select Case ClickCount
Case 1
MDIForm1.Arrange 1 ' 水平平铺。
Case 2
MDIForm1.Arrange 2 ' 垂直平铺。
Case 3 ' 最小化每个窗体。
PrevWidth = MDIForm1.Width ' 取 MDI 的窗体宽度。
MDIForm1.Width = PrevWidth / 2 ' 将它除以 2。
Form1.WindowState = 1 ' 使该原件最小化。
For I = 1 To FORMCOUNT ' 看F的每一实例。
F(I).WindowState = 1 ' 最小化F的每个副本。
Next I
Start = Timer
Do
Loop Until Timer = Start + 5
MDIForm1.Width = PrevWidth ' 回复到原始尺寸。
MDIForm1.Arrange 3 ' 重排图标。
End Select
End Sub

[chenyu5188]

UP

就用楼上的哈

[zhenxizhou]

up

[Arcan]

我感觉楼主的意思是对所有程序的窗口进行这个操作，如果仅仅是对MID子窗体进行这些操作这道题未免太简单了一点，甚至根本不用写代码，直接用向导生成一个多文档界面什么都解决了。