以编程方式向容器添加控件

Fortin 发表于 Dev

福汀

我已经制作了一个包含面板的用户控件，我想向其添加另一个控件。所有这些我都希望以编程方式实现。

实际上，我想创建一个Calandar，较大的列和单元格。

我想将单元格添加到我的列中。然后将我的列添加到我的Calendar对象。

这是我为回忆创建的代码。

创建列：

Private Sub CreateColumns()
    For i = 0 To Calendar.GetUpperBound(0)
        ASFColumns(i) = New ASFcolumn
        With ASFColumns(i)
            .Width = 252
            .Visible = True
            .Left = 250 * i + i + 2
            .Top = 35
        End With
        Me.Controls.Add(ASFColumns(i))
        'AddHandler Calendar(i, j).Click, AddressOf ClickOnCells
    Next
End Sub

添加我的细胞

For i = 0 To Calendar.GetUpperBound(0)
        For j = 0 To Calendar.GetUpperBound(1)
            Calendar(i, j) = New ASFmultiTaskCell
            With Calendar(i, j)
                .Width = 250
                .Visible = True
                .Left = 250 * j + j + 2
                .Top = 33 * i + i + 70
                .BringToFront()
            End With
            'Me.Controls.Add(Calendar(i, j)) 
            ASFColumns(i).Controls.Add(Calendar(i, j))
            AddHandler Calendar(i, j).Click, AddressOf ClickOnCells
        Next
    Next

谢谢

戴夫

我不太确定您要做什么，所以我做了一些事情。我创建了Calendar作为ASFmultiTaskCell的2d数组，这是一个用户控件。下面的代码成功地将用户控件添加到窗体或面板/组框。该事件也适用。

Dim Calendar(2, 3) As ASFmultiTaskCell

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        For i = 0 To Calendar.GetUpperBound(0)
            For j = 0 To Calendar.GetUpperBound(1)
                Calendar(i, j) = New ASFmultiTaskCell
                With Calendar(i, j)
                    .Width = 250
                    .Visible = True
                    .Left = 250 * j + j + 2
                    .Top = 33 * i + i + 70
                    .BringToFront()
                End With

                Me.Controls.Add(Calendar(i, j))
                GroupBox1.Controls.Add(Calendar(i, j))

                AddHandler Calendar(i, j).Click, AddressOf ClickOnCells
            Next
        Next
    End Sub

    Private Sub ClickOnCells()

    End Sub