1. 新建一个Form(我使用的是MDIForm,用一般的form也一样,我试过),取名为form1,再建一个窗口取名为form2;
   
2. 为form1建立菜单项(使用按钮也行):
   菜单项:OpenWindow,
   子菜单项:open1、open2、open3,子菜单项设为控件数组，名称取为mnuOpen,索引分别为0、1、2；
   
3. 为菜单mnuOpen编写代码:

Private Sub mnuOpen_Click(Index As Integer)
   Dim myForm As Form '定义变量
   For Each myForm In Forms '使用Forms集合
      If myForm.Caption = "Window" & CStr(Index + 1) Then
      '通过查看窗口标题检查该窗口实例是否已打开
         myform.windowstate=0 '照原来的尺寸大小和位置打开
myForm.SetFocus  '如果已打开,则使其获得焦点
         Set myForm = Nothing '释放资源
         Exit Sub '跳出过程
      End If
    Next
    Set myForm = New Form2 '创建Form2的窗体实例
    Load myForm
    myForm.Caption = "Window" & CStr(Index + 1)
    '设置其Caption属性,也可作其他操作
    myForm.Show
    Set myForm = Nothing
End Sub
---- 在我的控制系统中,也用到了控件的动态增减,下面谈谈实现方法.

---- 假设根据一TextBox(名称为Text1)的内容来决定某Label[名称为Label1(0),定为控件数组,索引值Index为0]控件的数目.在Form中放置一个TextBox控件和一个Label控件,取名如前所述;再放置一个命令按钮Command1.在Command1中编程:

Private Sub Command1_Click()
    If IsNumeric(Text1.Text) = False Then Exit Sub
    '如果Text1中内容不是数字则退出过程
    Dim iCount As Integer, i As Integer
    'iCount为设定的个数,i为计数器
    Dim iIndex As Integer 
    'iIndex为实际个数
    iCount = CInt(Text1.Text)
    If iCount > 0 And iCount < 10 Then
    '假定最多只能放10个Label1
        iIndex = Label1.Count '当前Label1的个数
        If iCount > iIndex Then
        '设定值大于实际值则增加相应数目的控件
            For i = iIndex To iCount - 1
                Load Label1(i)
                With Label1(i)
                    .Left = Label1(0).Left
                    .Top = Label1(i - 1).Top + 350
                    .Visible = True
                End With
            Next i
        ElseIf iCount < iIndex Then
        '设定值小于实际值则删除多余的控件
            For i = iCount To iIndex - 1
                Unload Label1(i)
            Next i
        End If
    End If
End Sub

- 上面的代码在VB5.0和VB6.0中运行通过.
标签：