我如何描述矩阵中的按钮？

Question

我有一个 16*16 矩阵，我试图将它们定义为 vb.net 中的矩阵系列。然后我用这个矩阵做一些视觉展示，比如led展示。

---

    Dim n As Integer = 16
    Dim l As Integer = 16
    Dim x(n - 1, l - 1) As Integer
    Dim i, j, k As Integer
    For i = 0 To n - 1
        For j = 0 To l - 1
            For k = 1 To 256
                If j= k mod16 then
                buton(k) = x(i, j)
               end if 
            Next

        Next
    Next***

我尝试应用一种算法。但它不起作用。我怎样才能做到这一点？感谢您的关注..

Answer 1

好的，我不久前写过这样的东西 - 我已经根据您的需要对其进行了调整，并且它在我的电脑上运行正常。您需要像这样创建数组 X

Dim x(15,15) As Button

要使用按钮填充数组，请使用此方法..

Private Sub InitializeArray()

    Dim btnslist As New List(Of Button)
    Dim btnNum As Integer
    Dim btnName As String
    Dim splitButtonName() As String
    'add all the buttons to a list
    For Each btnControl As Object In Controls
        Dim btn As Button
        'get button number and add it to the list if it is >0 and <=256
        If TypeOf btnControl Is Button Then
            btn = CType(btnControl, Button)
            'get the button number
            splitButtonName = Split(btn.Name, "n")
            If CInt(splitButtonName(1)) > 0 And CInt(splitButtonName(1)) <= 256 Then
                btnslist.Add(btn)
            End If
        End If
    Next
    'add the buttons to the matrix in the right order
    For i As Integer = 0 To 15
        For j As Integer = 0 To 15
            For k As Integer = 0 To 255
                btnNum = i * 16 + j + 1
                btnName = "Button" & btnNum.ToString
                If btnslist(k).Name = btnName Then
                    x(i, j) = btnslist(k)
                    Exit For
                End If

            Next
        Next
    Next
End Sub