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

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

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

如果单击第一个形式的按钮。他们将每次按钮单击时都会创建重复形式。