Visual Basic

Dim myarray1(3, 4) As List(Of Integer)
 
        Dim myarray2(3, 4) As List(Of Integer)
        Dim mylist As New List(Of Integer)
        For i = 1 To 3
            mylist.Add(i)
        Next
        For i = 0 To 3
            For ii = 0 To 4
                myarray1(i, ii) = New List(Of Integer)
                myarray2(i, ii) = New List(Of Integer)
                myarray1(i, ii).AddRange(mylist)
            Next
        Next
        'Array.Copy(myarray1, myarray2, myarray1.Length)
        myarray2 = CType(myarray1.Clone, Global.System.Collections.Generic.List(Of Integer)(,))
 
        myarray2(2, 2).Clear()

    ' Setup source array of Lists.
    Dim originalLists(3, 4) As List(Of Integer)
 
    For i = 0 To 3
        For j = 0 To 4
            originalLists(i, j) = New List(Of Integer) From {1, 2, 3}
        Next
    Next
 
    ' Now make copies of the original Lists.
    Dim copyLists(3, 4) As List(Of Integer)
 
    For i = 0 To 3
        For j = 0 To 4
            copyLists(i, j) = New List(Of Integer)
            copyLists(i, j).AddRange(originalLists(i, j))
        Next
    Next

Alpherattz wrote:

I'm using DevExpress TreeList and I want to use it as button.

Bastard Programmer from Hell

Private Sub treeList1_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) _
    Handles treeList1.MouseUp
 
    ShowHitInfo(treeList1.CalcHitInfo(New Point(e.X, e.Y)))
End Sub
Private Sub ShowHitInfo(ByVal hi As DevExpress.XtraTreeList.TreeListHitInfo)
 
    Dim msg As String = hi.HitInfoType.ToString() & vbCrLf
    If (hi.Column Is Nothing) Then
        msg &= "No column" & vbCrLf
    Else
        msg &= "Column: " & hi.Column.GetCaption() & vbCrLf
    End If
    If hi.Node Is Nothing Then
        msg &= "No Node" & vbCrLf
    Else
        msg &= "Node: " & hi.Node.Id.ToString() & vbCrLf
    End If
    If hi.Column IsNot Nothing AndAlso hi.Node IsNot Nothing Then
        msg &= "CellValue: " & hi.Node.GetDisplayText(hi.Column.AbsoluteIndex) & vbCrLf
    End If
    MessageBox.Show(msg)
End Sub

Private Sub treeList1_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles treeList1.MouseUp
    If e.Button <> Windows.Forms.MouseButtons.Right Then
        Exit Sub
    End If
    ShowHitInfo(treeList1.CalcHitInfo(New Point(e.X, e.Y)))
End Sub