VB6从数组中打开表格

问题描述：

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

例如这样的事情。

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

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

答

以下代码将完成您所需的操作。

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

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

我想是这样的： '对于i = 0至UBOUND（表格）'' 暗淡我作为Form' '设置I = Forms.Add（表格（I））'' I.Show vbModal，我' '下一个我' 如果你不理我。我想通过单击一个按钮来从数组中加载表单名称的表单。 –

您可以将评论中的代码放入按钮单击事件中。现在，您的代码将显示所有800个表单。如果这不是您想要的，那么只需提供类似于我的示例的正确表单名称即可。 –

VB6从数组中打开表格

相关推荐