vb6 – 在代码中创建控件数组

发布时间：2020-12-17 07:20:43 所属栏目：百科来源：网络整理

导读：这段代码不起作用我想在VB6中的Form_Load上创建一个控件数组,因为我必须为拼字游戏板制作225个它们,并且它们必须精确.我的代码是： Private lblblocks(1 To 225) As LabelPrivate Sub Form_Load()Dim i As Integer,j As IntegerFor i = 1 To 15 For j = 1 To

这段代码不起作用我想在VB6中的Form_Load上创建一个控件数组,因为我必须为拼字游戏板制作225个它们,并且它们必须精确.我的代码是：

Private lblblocks(1 To 225) As Label

Private Sub Form_Load()
Dim i As Integer,j As Integer
For i = 1 To 15
    For j = 1 To 15
        Dim arrnum As Integer
        arrnum = (i - 1) * 15 + j
        Load lblblocks(arrnum)
        With lblblocks(arrnum)
            .Width = 1000
            .Height = 1000
            .Top = (i - 1) * 1000
            .Left = (j - 1) * 1000
            .Visible = True
            .BackColor = Int(Rnd(1) * 255) + &H100 * Int(Rnd(1) * 255) + &H10000 * Int(Rnd(1) * 255)
        End With
    Next j
Next i
End Sub

我使用背景颜色来查看我的所有标签盒.此代码不起作用.我收到错误“对象变量或未设置块变量”.有帮助吗？我不知道出了什么问题.我想将标签盒保存在一个控制数组中,我知道如何在不将其作为控制数组的情况下进行操作.

解决方法

科迪格雷在评论中说得对.我不相信你只能在VB6中的代码中动态创建一个控制数组.您必须在窗体上放置一个控件实例,并为其指定一个Index属性值为零.这将创建一个只有一个元素的控制数组,索引为零.然后,您可以修改代码以生成所需的结果,如下所示：

Private Sub Form_Load()
    Dim i As Integer
    Dim j As Integer

    For i = 0 To 14
        For j = 0 To 14
            Dim tileIdx As Integer
            tileIdx = i * 15 + j

            'If the tile index is zero,we already have that control,'so there's no need to load new instance. Otherwise,use the 
            'Load method to create a new control in the array with the 
            'specified index.
            If tileIdx > 0 Then
                Load lblTile(tileIdx)
            End If

            With lblTile(tileIdx)
                .Width = 1000
                .Height = 1000
                .Top = i * 1000
                .Left = j * 1000
                .Visible = True
                .BackColor = Int(Rnd(1) * 255) + &H100 * Int(Rnd(1) * 255) + &H10000 * Int(Rnd(1) * 255)
            End With
        Next
    Next
End Sub

如注释中所述,您不需要在数组索引零处加载另一个控件实例,因为您在设计时就这样做了.我还从零开始迭代我的数组,以便稍微更容易地计算索引.

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!