显示附加信息 >>>

作者：未详  摘自：未详  编辑：cg1  更新日期：2003-3-21  浏览人次：

专题地址：

http://access911.net/?kbid;73FAB61E1ADC

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   ' 水平平铺。'0就是层叠
      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