VB6 从数组打开表单答案

【问题标题】：VB6 Open Forms from arrayVB6 从数组打开表单
【发布时间】：2017-05-04 15:21:40
【问题描述】：

我有一个 VB6 项目。我有大约 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

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

【问题讨论】：

标签： forms vb6

【解决方案1】：

下面的代码将完成你所需要的。

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

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

【讨论】：

我想要这样的东西：For I = 0 to Ubound(Forms)Dim I As FormSet I = Forms.Add(Forms(I))I.Show vbModal, MeNext I如果你理解我的话。我想通过单击按钮从数组中加载带有表单名称的表单。
您可以将评论中的代码放入按钮单击事件中。就目前而言，您的代码将显示所有 800 个表单。如果这不是您想要的，那么只需提供类似于我的示例的正确表单名称。

【解决方案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

如果您单击第一种形式的按钮。每次单击按钮时，他们都会创建带有标题的重复表单。

【讨论】：