VB6从数组

Question

我在VB6中有一个项目。 我有aprox 800表格。 我可以从列表或数组中打开/加载表单。

例如类似的东西。

Dim I As Integer
Dim Name As String
Dim Forms() As String
Name = "Form1|Form2|Form3|Form4|Form5 ...."
Forms = Split(Name, "|")
For I = 0 To UBound(Forms)
    Form(Forms(I)).Load
Next I

请注意，之前没有加载的表单。

Answer 1

以下代码将满足您的需求。

   Dim f As Form
   Set f = Forms.Add("Form2")
   f.Show vbModal, Me

在此示例中，未加载的表单会动态添加到Forms集合中，然后显示给用户。

Answer 2

VB6新表格+ 1个按钮

Option Explicit
Public I As Integer

Public Sub Command1_Click()
    CreateForm
End Sub

Public Sub CreateForm()
    Dim Form As Form
    I = I + 1
    Set Form = New Form1
    Form.Caption = I
    Form.Show
End Sub

如果单击第一种形式的按钮。他们将创建重复的表单，并在每次单击按钮时增加标题。